(set-auto-mode): Discard versions from file name before

testing inhibit-first-line-modes-regexps.

1 files changed, 3 insertions, 2 deletions

diff --git a/lisp/files.el b/lisp/files.el
index 63dd66be1a8..7784cbe2a4b 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -929,10 +929,11 @@ If `enable-local-variables' is nil, this function does not check for a
       (and enable-local-variables
            ;; Don't look for -*- if this file name matches any
            ;; of the regexps in inhibit-first-line-modes-regexps.
-           (let ((temp inhibit-first-line-modes-regexps))
+           (let ((temp inhibit-first-line-modes-regexps)
+                 (name (file-name-sans-versions buffer-file-name)))
              (while (and temp
                          (not (string-match (car temp)
-                                            buffer-file-name)))
+                                            name)))
                (setq temp (cdr temp)))
              (not temp))
            (search-forward "-*-" (save-excursion