mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* files.el (set-auto-mode): If the buffer's file name is nil,

Browse source 
don't try to compare it against the entries in auto-mode-alist.
This commit is contained in:
Jim Blandy 1993-05-19 06:03:04 +00:00
parent e443209533
commit dd573bc0e5
1 changed files with 11 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/files.el
View file

@ -798,16 +798,17 @@ If `enable-local-variables' is nil, this function does not check for a
(setq mode (buffer-substring beg (point))))))
(setq mode (buffer-substring beg end)))))
(setq mode (intern (concat (downcase mode) "-mode")))
(let ((alist auto-mode-alist)
(name buffer-file-name))
(let ((case-fold-search (eq system-type 'vax-vms)))
;; Remove backup-suffixes from file name.
(setq name (file-name-sans-versions name))
;; Find first matching alist entry.
(while (and (not mode) alist)
(if (string-match (car (car alist)) name)
(setq mode (cdr (car alist))))
(setq alist (cdr alist)))))))
(if buffer-file-name
(let ((alist auto-mode-alist)
(name buffer-file-name))
(let ((case-fold-search (eq system-type 'vax-vms)))
;; Remove backup-suffixes from file name.
(setq name (file-name-sans-versions name))
;; Find first matching alist entry.
(while (and (not mode) alist)
(if (string-match (car (car alist)) name)
(setq mode (cdr (car alist))))
(setq alist (cdr alist))))))))
(if mode (funcall mode))))
(defun hack-local-variables-prop-line ()