From 4bc3d240cc7e837b900430c23177a5457c0565f9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Mon, 1 May 1995 15:49:09 +0000 Subject: [PATCH] (set-auto-mode): If buffer has no file, use buffer name. --- lisp/files.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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))) -- 2.39.5