mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(ada-font-lock-syntactic-keywords):

Browse source 
Recognize ''' just like any other char-constant.
This commit is contained in:
Stefan Monnier 2008-02-17 19:24:09 +00:00
parent 596c21cf32
commit ed3b86bfb7
2 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -5182,12 +5182,9 @@ Return nil if no body was found."
(defconst ada-font-lock-syntactic-keywords
;; Mark single quotes as having string quote syntax in 'c' instances.
;; As a special case, ''' will not be highlighted, but if we do not
;; set this special case, then the rest of the buffer is highlighted as
;; a string
;; This sets the properties of the characters, so that ada-in-string-p
;; correctly handles '"' too...
'(("[^a-zA-Z0-9)]\\('\\)[^'\n]\\('\\)" (1 (7 . ?')) (2 (7 . ?')))
;; We used to explicitly avoid ''' as a special case for fear the buffer
;; be highlighted as a string, but it seems this fear is unfounded.
'(("[^a-zA-Z0-9)]\\('\\)[^\n]\\('\\)" (1 (7 . ?')) (2 (7 . ?')))
("^[ \t]*\\(#\\(if\\|else\\|elsif\\|end\\)\\)" (1 (11 . ?\n)))))
(defvar ada-font-lock-keywords