Mercurial > emacs
comparison lisp/files.el @ 57772:c0463887998f
(set-auto-mode): Call `throw' correctly.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Thu, 28 Oct 2004 10:27:06 +0000 |
| parents | 9fe5facda191 |
| children | c139689dbd5d 4056279af756 |
comparison
equal
deleted
inserted
replaced
| 57771:588351906974 | 57772:c0463887998f |
|---|---|
| 1894 (dolist (mode (nreverse modes)) | 1894 (dolist (mode (nreverse modes)) |
| 1895 (if (not (functionp mode)) | 1895 (if (not (functionp mode)) |
| 1896 (message "Ignoring unknown mode `%s'" mode) | 1896 (message "Ignoring unknown mode `%s'" mode) |
| 1897 (setq done t) | 1897 (setq done t) |
| 1898 (or (set-auto-mode-0 mode) | 1898 (or (set-auto-mode-0 mode) |
| 1899 (throw 'nop))))) | 1899 (throw 'nop nil))))) |
| 1900 ;; If we didn't, look for an interpreter specified in the first line. | 1900 ;; If we didn't, look for an interpreter specified in the first line. |
| 1901 ;; As a special case, allow for things like "#!/bin/env perl", which | 1901 ;; As a special case, allow for things like "#!/bin/env perl", which |
| 1902 ;; finds the interpreter anywhere in $PATH. | 1902 ;; finds the interpreter anywhere in $PATH. |
| 1903 (setq mode (save-excursion | 1903 (setq mode (save-excursion |
| 1904 (goto-char (point-min)) | 1904 (goto-char (point-min)) |