(ada-add-extensions): Quote regexp special

characters and append anchor to pattern added to auto-mode-alist.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 7e98d055ea784fffd5e0623e8960c8501412f4a5..431b4e14912550ebe431400eaa67fc93d0cb4f4b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-11-15  Andreas Schwab  <schwab@suse.de>
+
+       * progmodes/ada-mode.el (ada-add-extensions): Quote regexp special
+       characters and append anchor to pattern added to auto-mode-alist.
+
 2001-11-15  Andre Spiegel  <spiegel@gnu.org>
 
        * vc.el: Documentation fixes.

diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index b927a7019d4624f603080fa22cf1e6121c00a978..c4eb40a8aeab9e4dbffc2829264b59d41b3cc193 100644 (file)
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -7,7 +7,7 @@
 ;;      Markus Heritsch <Markus.Heritsch@studbox.uni-stuttgart.de>
 ;;      Emmanuel Briot  <briot@gnat.com>
 ;; Maintainer: Emmanuel Briot <briot@gnat.com>
-;; Ada Core Technologies's version:   $Revision: 1.43 $
+;; Ada Core Technologies's version:   $Revision: 1.43.4.1 $
 ;; Keywords: languages ada
 
 ;; This file is part of GNU Emacs.
@@ -937,8 +937,10 @@ name"
         (setcdr tmp (list (cons body (cadr tmp))))
       (add-to-list 'ada-other-file-alist (list reg (list body)))))
 
-  (add-to-list 'auto-mode-alist (cons spec 'ada-mode))
-  (add-to-list 'auto-mode-alist (cons body 'ada-mode))
+  (add-to-list 'auto-mode-alist
+              (cons (concat (regexp-quote spec) "\\'") 'ada-mode))
+  (add-to-list 'auto-mode-alist
+              (cons (concat (regexp-quote body) "\\'") 'ada-mode))
 
   (add-to-list 'ada-spec-suffixes spec)
   (add-to-list 'ada-body-suffixes body)