* files.el (set-auto-mode): If the buffer's file name is nil,

	don't try to compare it against the entries in auto-mode-alist.

diff --git a/lisp/files.el b/lisp/files.el
index 64ba881b71a9967d9f7a29b3f0d76ab1d30218ad..6a207dbec7b872ac4473085f3fd5d70379f2a3ab 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -798,16 +798,17 @@ If `enable-local-variables' is nil, this function does not check for a
                             (setq mode (buffer-substring beg (point))))))
                   (setq mode (buffer-substring beg end)))))
          (setq mode (intern (concat (downcase mode) "-mode")))
-       (let ((alist auto-mode-alist)
-             (name buffer-file-name))
-         (let ((case-fold-search (eq system-type 'vax-vms)))
-           ;; Remove backup-suffixes from file name.
-           (setq name (file-name-sans-versions name))
-           ;; Find first matching alist entry.
-           (while (and (not mode) alist)
-             (if (string-match (car (car alist)) name)
-                 (setq mode (cdr (car alist))))
-             (setq alist (cdr alist)))))))
+       (if buffer-file-name
+           (let ((alist auto-mode-alist)
+                 (name buffer-file-name))
+             (let ((case-fold-search (eq system-type 'vax-vms)))
+               ;; Remove backup-suffixes from file name.
+               (setq name (file-name-sans-versions name))
+               ;; Find first matching alist entry.
+               (while (and (not mode) alist)
+                 (if (string-match (car (car alist)) name)
+                     (setq mode (cdr (car alist))))
+                 (setq alist (cdr alist))))))))
     (if mode (funcall mode))))
 
 (defun hack-local-variables-prop-line ()