(ada-add-extensions): Quote regexp special

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

2 files changed, 10 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b17cc6fae70..b3c58ef4df9 100644
--- 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  Stefan Monnier  <monnier@cs.yale.edu>
 
         * server.el (server-process-filter): Run pore/post-comment-hook
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index 85530df2284..4d29dd1650a 100644
--- 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.44 $
+;; Ada Core Technologies's version:   $Revision: 1.45 $
 ;; 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)