Mercurial > emacs

changeset 67615:38379232f2f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-auto-mode): If search for mode specification failed, look for an interpreter specified on the first line.
author Eli Zaretskii <eliz@gnu.org>
date Fri, 16 Dec 2005 15:41:21 +0000
parents d77c3edcebd3
children 3f5505fbf91f
files lisp/files.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/files.el	Fri Dec 16 14:32:51 2005 +0000
+++ b/lisp/files.el	Fri Dec 16 15:41:21 2005 +0000
@@ -2098,7 +2098,8 @@
 	      (setq done t)
 	      (or (set-auto-mode-0 mode keep-mode-if-same)
 		  ;; continuing would call minor modes again, toggling them off
-		  (throw 'nop nil)))))
+		  (throw 'nop nil))))))
+    (unless done
       ;; If we didn't, look for an interpreter specified in the first line.
       ;; As a special case, allow for things like "#!/bin/env perl", which
       ;; finds the interpreter anywhere in $PATH.