diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-05-19 06:03:04 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-05-19 06:03:04 +0000 |
| commit | dd573bc0e5b31fabaa671022ea3635b63fe540fc (patch) | |
| tree | 8ab75d2bd40abd73f66b59a9279e1a1c84e4062e /lisp | |
| parent | e44320953357900a80cd0b9a5e8e832f1005c457 (diff) | |
| download | emacs-dd573bc0e5b31fabaa671022ea3635b63fe540fc.tar.gz emacs-dd573bc0e5b31fabaa671022ea3635b63fe540fc.tar.bz2 emacs-dd573bc0e5b31fabaa671022ea3635b63fe540fc.zip | |
* files.el (set-auto-mode): If the buffer's file name is nil,
don't try to compare it against the entries in auto-mode-alist.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/lisp/files.el b/lisp/files.el index 64ba881b71a..6a207dbec7b 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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 () |