Mercurial > emacs
changeset 87684:9349c39d2ae0
* testmodes/sgml-mode.el (sgml-tag-syntax-table): Initialize this
constant with a computation on sgml-specials rather than a literal
list. Without this change the syntax table is generated
incorrectly, and the mode will think it's in a comment following
any instance of the string "--".
| author | Eric S. Raymond <esr@snark.thyrsus.com> |
|---|---|
| date | Wed, 09 Jan 2008 16:21:29 +0000 |
| parents | 6c04697c250d |
| children | 9b8e42b90c3b |
| files | lisp/ChangeLog lisp/textmodes/sgml-mode.el |
| diffstat | 2 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Wed Jan 09 12:48:42 2008 +0000 +++ b/lisp/ChangeLog Wed Jan 09 16:21:29 2008 +0000 @@ -1,3 +1,11 @@ +2008-01-09 Eric S. Raymond <esr@snark.thyrsus.com> + + * testmodes/sgml-mode.el (sgml-tag-syntax-table): Initialize this + constant with a computation on sgml-specials rather than a literal + list. Without this change the syntax table is generated + incorrectly, and the mode will think it's in a comment following + any instance of the string "--". + 2008-01-09 Tassilo Horn <tassilo@member.fsf.org> * doc-view.el (doc-view-mode-p): Add EPS as supported type.
--- a/lisp/textmodes/sgml-mode.el Wed Jan 09 12:48:42 2008 +0000 +++ b/lisp/textmodes/sgml-mode.el Wed Jan 09 16:21:29 2008 +0000 @@ -159,7 +159,7 @@ "Syntax table used in SGML mode. See also `sgml-specials'.") (defconst sgml-tag-syntax-table - (let ((table (sgml-make-syntax-table '(?- ?\" ?\')))) + (let ((table (sgml-make-syntax-table sgml-specials))) (dolist (char '(?\( ?\) ?\{ ?\} ?\[ ?\] ?$ ?% ?& ?* ?+ ?/)) (modify-syntax-entry char "." table)) table)