# HG changeset patch
# User John Paul Wallington <jpw@pobox.com>
# Date 1098959226 0
# Node ID c0463887998f4ea6713dd96d8426b02589f06a24
# Parent  588351906974c8a5cf49f7d0b1077f596524467f
(set-auto-mode): Call `throw' correctly.

diff -r 588351906974 -r c0463887998f lisp/files.el
--- a/lisp/files.el	Thu Oct 28 09:02:04 2004 +0000
+++ b/lisp/files.el	Thu Oct 28 10:27:06 2004 +0000
@@ -1896,7 +1896,7 @@
 		(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.