# HG changeset patch
# User Eric S. Raymond <esr@snark.thyrsus.com>
# Date 1199895689 0
# Node ID 9349c39d2ae0e1459c1fd162e97197738123b6ea
# Parent  6c04697c250d91744b7dfcdaa85aa3bc503c29c8
* 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 "--".

diff -r 6c04697c250d -r 9349c39d2ae0 lisp/ChangeLog
--- 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.
diff -r 6c04697c250d -r 9349c39d2ae0 lisp/textmodes/sgml-mode.el
--- 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)