emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/progmodes/ada-mode.el


From: Andreas Schwab
Subject: [Emacs-diffs] Changes to emacs/lisp/progmodes/ada-mode.el
Date: Thu, 15 Nov 2001 10:49:18 -0500

Index: emacs/lisp/progmodes/ada-mode.el
diff -u emacs/lisp/progmodes/ada-mode.el:1.45 
emacs/lisp/progmodes/ada-mode.el:1.46
--- emacs/lisp/progmodes/ada-mode.el:1.45       Tue Nov 13 22:49:57 2001
+++ emacs/lisp/progmodes/ada-mode.el    Thu Nov 15 10:49:18 2001
@@ -7,7 +7,7 @@
 ;;      Markus Heritsch <address@hidden>
 ;;      Emmanuel Briot  <address@hidden>
 ;; Maintainer: Emmanuel Briot <address@hidden>
-;; Ada Core Technologies's version:   $Revision: 1.45 $
+;; Ada Core Technologies's version:   $Revision: 1.46 $
 ;; Keywords: languages ada
 
 ;; This file is part of GNU Emacs.
@@ -937,8 +937,10 @@
         (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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]