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

Use syntax-ppss on a position *before* the char we want to change.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c4b6e2a8414732a0e59ec37895ecd349b8a65939..e5e5c7e629cd3d9de35116bf38cb1e2680bbed81 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,8 +1,13 @@
+2008-07-05  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * textmodes/sgml-mode.el (sgml-font-lock-syntactic-keywords):
+       Use syntax-ppss on a position *before* the char we want to change.
+
 2008-07-04  Dan Nicolaescu  <dann@ics.uci.edu>
 
        * vc-dir.el (vc-dir-query-replace-regexp): New function.
        (vc-dir-tool-bar-map, vc-dir-menu-map): Bind it.
-       (vc-dir-mode-map): Likewise
+       (vc-dir-mode-map): Likewise.
 
 2008-07-03  Juanma Barranquero  <lekktu@gmail.com>
 

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index d28f55bd70ab5da6132c2e92e757c771c25a4b36..67ed335a9c08c404050fccb54037b1d895517a2e 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -292,7 +292,11 @@ Any terminating `>' or `/' is not matched.")
   '(("\\(<\\)!--" (1 "< b"))
     ("--[ \t\n]*\\(>\\)" (1 "> b"))
     ;; Double quotes outside of tags should not introduce strings.
-    ("\\\"" (0 (if (zerop (car (syntax-ppss))) "."))))
+    ;; Be careful to call `syntax-ppss' on a position before the one we're
+    ;; going to change, so as not to need to flush the data we just computed.
+    ("\"" (0 (if (prog1 (zerop (car (syntax-ppss (match-beginning 0))))
+                   (goto-char (match-end 0)))
+                 "."))))
   "Syntactic keywords for `sgml-mode'.")
 
 ;; internal