mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-27 19:31:38 +00:00
Code Issues Releases Activity

(set-auto-mode): Fix previous change.

Browse Source
This commit is contained in:
Karl Heuer 1995-04-03 21:37:39 +00:00
parent d007f5c889
commit 38832b4c51
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/files.el
View File

@ -948,8 +948,11 @@ If `enable-local-variables' is nil, this function does not check for a
;; of the regexps in inhibit-first-line-modes-regexps.
(let ((temp inhibit-first-line-modes-regexps)
(name (file-name-sans-versions buffer-file-name)))
(if (string-match inhibit-first-line-modes-suffixes name)
(setq name (substring name 0 (match-beginning 0))))
(while (let ((sufs inhibit-first-line-modes-suffixes))
(while (and sufs (not (string-match (car sufs) name)))
(setq sufs (cdr sufs)))
sufs)
(setq name (substring name 0 (match-beginning 0))))
(while (and temp
(not (string-match (car temp) name)))
(setq temp (cdr temp)))