# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 799343349 0
# Node ID 919ac497342ef6a35c616c9d5cdd0913168ac951
# Parent  b56f6afa16eceb20564c907881e0bf7b679b8c20
(set-auto-mode): If buffer has no file, use buffer name.

diff -r b56f6afa16ec -r 919ac497342e lisp/files.el
--- a/lisp/files.el	Mon May 01 05:23:49 1995 +0000
+++ b/lisp/files.el	Mon May 01 15:49:09 1995 +0000
@@ -947,7 +947,9 @@
 	   ;; 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)))