[Emacs-diffs] /srv/bzr/emacs/trunk r111900: * lisp/textmodes/sgml-mode.el (sgml-syntax-propertize-function):

[Stefan Monnier]

------------------------------------------------------------
revno: 111900
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=13844
author: Dale Sedivec <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2013-02-28 22:43:57 -0500
message:
  * lisp/textmodes/sgml-mode.el (sgml-syntax-propertize-function):
  Return valid syntax-table property value when converting
  quotes within text from string syntax to punctuation syntax.
modified:
  lisp/ChangeLog
  lisp/textmodes/sgml-mode.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-28 21:51:11 +0000
+++ b/lisp/ChangeLog    2013-03-01 03:43:57 +0000
@@ -1,3 +1,9 @@
+2013-02-28  Dale Sedivec  <address@hidden>
+
+       * textmodes/sgml-mode.el (sgml-syntax-propertize-function):
+       Return valid syntax-table property value when converting
+       quotes within text from string syntax to punctuation syntax (bug#13844).
+
 2013-02-28  Juri Linkov  <address@hidden>
 
        * dired-aux.el (dired-diff): If file at point is a backup file,

=== modified file 'lisp/textmodes/sgml-mode.el'
--- a/lisp/textmodes/sgml-mode.el       2013-02-22 02:33:42 +0000
+++ b/lisp/textmodes/sgml-mode.el       2013-03-01 03:43:57 +0000
@@ -312,8 +312,8 @@
 
 (defconst sgml-syntax-propertize-function
   (syntax-propertize-rules
-  ;; Use the `b' style of comments to avoid interference with the -- ... --
-  ;; comments recognized when `sgml-specials' includes ?-.
+   ;; Use the `b' style of comments to avoid interference with the -- ... --
+   ;; comments recognized when `sgml-specials' includes ?-.
   ;; FIXME: beware of <!--> blabla <!--> !!
    ("\\(<\\)!--" (1 "< b"))
     ("--[ \t\n]*\\(>\\)" (1 "> b"))
@@ -322,7 +322,7 @@
     ;; 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)))
-                 "."))))
+           (string-to-syntax ".")))))
   "Syntactic keywords for `sgml-mode'.")
 
 ;; internal