From: Richard M. Stallman 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)))