1912 |
(message "Ignoring unknown mode `%s'" mode) |
(message "Ignoring unknown mode `%s'" mode) |
1913 |
(setq done t) |
(setq done t) |
1914 |
(or (set-auto-mode-0 mode keep-mode-if-same) |
(or (set-auto-mode-0 mode keep-mode-if-same) |
1915 |
|
;; continuing would call minor modes again, toggling them off |
1916 |
(throw 'nop nil))))) |
(throw 'nop nil))))) |
1917 |
;; 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. |
1918 |
;; As a special case, allow for things like "#!/bin/env perl", which |
;; As a special case, allow for things like "#!/bin/env perl", which |
1925 |
;; Map interpreter name to a mode, signalling we're done at the |
;; Map interpreter name to a mode, signalling we're done at the |
1926 |
;; same time. |
;; same time. |
1927 |
done (assoc (file-name-nondirectory mode) |
done (assoc (file-name-nondirectory mode) |
1928 |
interpreter-mode-alist))) |
interpreter-mode-alist)) |
1929 |
|
(if done |
1930 |
|
(set-auto-mode-0 (cdr done) keep-mode-if-same))) |
1931 |
;; If we found an interpreter mode to use, invoke it now. |
;; If we found an interpreter mode to use, invoke it now. |
1932 |
(if done |
(unless done |
|
(set-auto-mode-0 (cdr done) keep-mode-if-same) |
|
1933 |
(if (setq done (save-excursion |
(if (setq done (save-excursion |
1934 |
(goto-char (point-min)) |
(goto-char (point-min)) |
1935 |
(assoc-default nil magic-mode-alist |
(assoc-default nil magic-mode-alist |