(set-auto-mode): Fix previous change.

diff --git a/lisp/files.el b/lisp/files.el
index 1a0bc74ea9405c500f4fce7ab8c6ba20e5be3117..199f9b13731a9711101b72da2a2d94c803b62772 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -948,8 +948,11 @@ If `enable-local-variables' is nil, this function does not check for a
           ;; 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)))