From: Dale Sedivec Date: Fri, 1 Mar 2013 03:43:57 +0000 (-0500) Subject: * lisp/textmodes/sgml-mode.el (sgml-syntax-propertize-function): X-Git-Tag: emacs-24.3.90~173^2~6^2~19 X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/4a83d19e56d3d13f254b406fcd569ba9b5fe0cfd * 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. Fixes: debbugs:13844 --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 44109a5095..5ce0e6b597 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2013-02-28 Dale Sedivec + + * 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 * dired-aux.el (dired-diff): If file at point is a backup file, diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index fb0dc84b0e..33dfa27733 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -312,8 +312,8 @@ Any terminating `>' or `/' is not matched.") (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 @@ Any terminating `>' or `/' is not matched.") ;; 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