(auto-mode-alist): Fix .scm, .stk, .ss, .sch entry.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 95cd73fcc3fb732c91c9cd60ede895dc62f7a6d0..0c13d536843fd0bad0327d8ace39f98f0a11d0aa 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2004-02-04  John Paul Wallington  <jpw@gnu.org>
+
+       * files.el (auto-mode-alist): Fix .scm, .stk, .ss, .sch entry.
+
 2004-02-03  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
 
        * x-dnd.el: New file for drag and drop.

diff --git a/lisp/files.el b/lisp/files.el
index a2676176b8633b5cd54ec81b64a8f8ea6574493d..3b178af029b82ca8450fc69da5fff8b5463e7d70 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1619,7 +1619,7 @@ in that case, this function acts as if `enable-local-variables' were t."
      ("\\.ltx\\'" . latex-mode)
      ("\\.dtx\\'" . doctex-mode)
      ("\\.el\\'" . emacs-lisp-mode)
-     ("\\.scm\\|\\.stk\\|\\.ss\\|\\.sch\\'" . scheme-mode)
+     ("\\.\\(scm\\|stk\\|ss\\|sch\\)\\'" . scheme-mode)
      ("\\.l\\'" . lisp-mode)
      ("\\.lisp\\'" . lisp-mode)
      ("\\.f\\'" . fortran-mode)