1896 |
(message "Ignoring unknown mode `%s'" mode) |
(message "Ignoring unknown mode `%s'" mode) |
1897 |
(setq done t) |
(setq done t) |
1898 |
(or (set-auto-mode-0 mode) |
(or (set-auto-mode-0 mode) |
1899 |
(throw 'nop))))) |
(throw 'nop nil))))) |
1900 |
;; If we didn't, look for an interpreter specified in the first line. |
;; 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 |
;; As a special case, allow for things like "#!/bin/env perl", which |
1902 |
;; finds the interpreter anywhere in $PATH. |
;; finds the interpreter anywhere in $PATH. |