From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 1 May 1995 15:49:09 +0000 (+0000)
Subject: (set-auto-mode): If buffer has no file, use buffer name.
X-Git-Tag: emacs-19.34~4222
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4bc3d240cc7e837b900430c23177a5457c0565f9;p=emacs.git

(set-auto-mode): If buffer has no file, use buffer name.
---

diff --git a/lisp/files.el b/lisp/files.el
index 6a46ab0b762..630480bd064 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -947,7 +947,9 @@ If `enable-local-variables' is nil, this function does not check for a
 	   ;; Don't look for -*- if this file name matches any
 	   ;; of the regexps in inhibit-first-line-modes-regexps.
 	   (let ((temp inhibit-first-line-modes-regexps)
-		 (name (file-name-sans-versions buffer-file-name)))
+		 (name (if buffer-file-name
+			   (file-name-sans-versions buffer-file-name)
+			 (buffer-name))))
 	     (while (let ((sufs inhibit-first-line-modes-suffixes))
 		      (while (and sufs (not (string-match (car sufs) name)))
 			(setq sufs (cdr sufs)))