# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 796945059 0
# Node ID a2a85a29cdd69826d3c21637699fd78cfc6bce7f
# Parent  d7f70df00bb02bcb9026f73d0a4daaff4e16f68a
(set-auto-mode): Fix previous change.

diff -r d7f70df00bb0 -r a2a85a29cdd6 lisp/files.el
--- a/lisp/files.el	Mon Apr 03 21:34:15 1995 +0000
+++ b/lisp/files.el	Mon Apr 03 21:37:39 1995 +0000
@@ -948,8 +948,11 @@
 	   ;; of the regexps in inhibit-first-line-modes-regexps.
 	   (let ((temp inhibit-first-line-modes-regexps)
 		 (name (file-name-sans-versions buffer-file-name)))
-	     (if (string-match inhibit-first-line-modes-suffixes name)
-		 (setq name (substring name 0 (match-beginning 0))))
+	     (while (let ((sufs inhibit-first-line-modes-suffixes))
+		      (while (and sufs (not (string-match (car sufs) name)))
+			(setq sufs (cdr sufs)))
+		      sufs)
+	       (setq name (substring name 0 (match-beginning 0))))
 	     (while (and temp
 			 (not (string-match (car temp) name)))
 	       (setq temp (cdr temp)))