From: John Paul Wallington <jpw@pobox.com>
Date: Thu, 28 Oct 2004 10:29:50 +0000 (+0000)
Subject: (set-auto-mode): Call `throw' correctly.
X-Git-Tag: ttn-vms-21-2-B4~4337
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=8a9cdb8db471a685a344e1b836fa9ab3dee2734f;p=emacs.git

(set-auto-mode): Call `throw' correctly.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 83a01bdd2ed..aa83b78af1e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-10-28  John Paul Wallington  <jpw@gnu.org>
+
+	* files.el (set-auto-mode): Call `throw' correctly.
+
 2004-10-28  Juri Linkov  <juri@jurta.org>
 
 	* info.el (Info-file-list-for-emacs): Add ("Info" . "info")
diff --git a/lisp/files.el b/lisp/files.el
index 83955d26fcc..a4f846fbdee 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1896,7 +1896,7 @@ only set the major mode, if that would change it."
 		(message "Ignoring unknown mode `%s'" mode)
 	      (setq done t)
 	      (or (set-auto-mode-0 mode)
-		  (throw 'nop)))))
+		  (throw 'nop nil)))))
       ;; 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.