[Top][All Lists]
[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 11:20:57 -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)