diff options
| -rw-r--r-- | lisp/files.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/files.el b/lisp/files.el index 63dd66be1a8..7784cbe2a4b 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -929,10 +929,11 @@ If `enable-local-variables' is nil, this function does not check for a (and enable-local-variables ;; 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)) + (let ((temp inhibit-first-line-modes-regexps) + (name (file-name-sans-versions buffer-file-name))) (while (and temp (not (string-match (car temp) - buffer-file-name))) + name))) (setq temp (cdr temp))) (not temp)) (search-forward "-*-" (save-excursion |