From c1fe251aceb9ca50b130ce1525e66e225aba337e Mon Sep 17 00:00:00 2001 From: Karl Heuer Date: Mon, 17 Jul 1995 22:48:06 +0000 Subject: [PATCH] (auto-mode-alist): Move .scm.[0-9] before nroff-mode. Escape the second period. --- lisp/files.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 80f0b3fea8a..1c3c93878cc 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -866,8 +866,10 @@ run `normal-mode' explicitly." ("changelo\\'" . change-log-mode) ("ChangeLog.[0-9]+\\'" . change-log-mode) ("\\$CHANGE_LOG\\$\\.TXT" . change-log-mode) -;; The following should come after the ChangeLog pattern -;; for the sake of ChangeLog.1, etc. + ("\\.scm\\.[0-9]*\\'" . scheme-mode) +;;; The following should come after the ChangeLog pattern +;;; for the sake of ChangeLog.1, etc. +;;; and after the .scm.[0-9] pattern too. ("\\.[12345678]\\'" . nroff-mode) ("\\.TeX\\'" . tex-mode) ("\\.sty\\'" . latex-mode) @@ -892,7 +894,6 @@ run `normal-mode' explicitly." ("\\.y\\'" . c-mode) ("\\.lex\\'" . c-mode) ("\\.oak\\'" . scheme-mode) - ("\\.scm.[0-9]*\\'" . scheme-mode) ("\\.sgm\\'" . sgml-mode) ("\\.sgml\\'" . sgml-mode) ("\\.dtd\\'" . sgml-mode) -- 2.39.2