Re: table-recognize and default-major-mode

[Richard M. Stallman]

This is a patch I am thinking of installing.  Does it fix this
problem?

*** files.el    22 Jul 2005 00:55:52 -0400      1.781
--- files.el    23 Jul 2005 17:30:32 -0400      
***************
*** 1464,1470 ****
              buf)
          ;; Create a new buffer.
          (setq buf (create-file-buffer filename))
-         (set-buffer-major-mode buf)
          ;; find-file-noselect-1 may use a different buffer.
          (find-file-noselect-1 buf filename nowarn
                                rawfile truename number))))))
--- 1464,1469 ----
***************
*** 1538,1543 ****
--- 1537,1543 ----
          (progn
            (set-buffer-multibyte nil)
            (setq buffer-file-coding-system 'no-conversion)
+           (set-buffer-major-mode buf)
            (make-local-variable 'find-file-literally)
            (setq find-file-literally t))
        (after-find-file error (not nowarn)))
***************
*** 1727,1733 ****
  or from Lisp without specifying the optional argument FIND-FILE;
  in that case, this function acts as if `enable-local-variables' were t."
    (interactive)
!   (or find-file (funcall (or default-major-mode 'fundamental-mode)))
    (let ((enable-local-variables (or (not find-file) enable-local-variables)))
      (report-errors "File mode specification error: %s"
        (set-auto-mode))
--- 1727,1733 ----
  or from Lisp without specifying the optional argument FIND-FILE;
  in that case, this function acts as if `enable-local-variables' were t."
    (interactive)
!   (funcall (or default-major-mode 'fundamental-mode))
    (let ((enable-local-variables (or (not find-file) enable-local-variables)))
      (report-errors "File mode specification error: %s"
        (set-auto-mode))