# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1203276249 0
# Node ID b0f27575dc50763103774cf76fbb069d402e5386
# Parent  86666002b78d27c22b648ffa93c59388b77ad96d
(ada-font-lock-syntactic-keywords):
Recognize ''' just like any other char-constant.

diff -r 86666002b78d -r b0f27575dc50 lisp/ChangeLog
--- a/lisp/ChangeLog	Sun Feb 17 19:09:15 2008 +0000
+++ b/lisp/ChangeLog	Sun Feb 17 19:24:09 2008 +0000
@@ -1,3 +1,8 @@
+2008-02-17  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* progmodes/ada-mode.el (ada-font-lock-syntactic-keywords):
+	Recognize ''' just like any other char-constant.
+
 2008-02-16  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 	* vc-hooks.el (vc-find-root): Remove initial loop because it's not
diff -r 86666002b78d -r b0f27575dc50 lisp/progmodes/ada-mode.el
--- a/lisp/progmodes/ada-mode.el	Sun Feb 17 19:09:15 2008 +0000
+++ b/lisp/progmodes/ada-mode.el	Sun Feb 17 19:24:09 2008 +0000
@@ -5182,12 +5182,9 @@
 
 (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