procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ada-add-extensions): Quote regexp special

Browse source 
characters and append anchor to pattern added to auto-mode-alist.
This commit is contained in:
Andreas Schwab 2001-11-15 15:50:10 +00:00
parent 7fab92237a
commit 1997815f8b
2 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

8
lisp/progmodes/ada-mode.el
View file

@ -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)