(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 b17cc6fae70706b3885a4acd82b43fb351303221..b3c58ef4df93ce6f905579375051edd1e07852e0 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  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 85530df22848e841fd1418def86d259ef719ac04..4d29dd1650abc76246d7a5b50cf391359d7c0efe 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.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)