(sgml-tag-syntax-table): Remove prefix

flag from "'" entry in sgml-tag-syntax-table.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b696ad971a0f647f5a8a1aa138ca0af8e660d495..23aeac84ca5e4d7beb49f3032a24c4c49015be62 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,4 +1,9 @@
-2008-09-19  Miles Bader  <Miles Bader <miles@gnu.org>>
+2008-09-19  Martin Rudalics  <rudalics@gmx.at>
+
+       * textmodes/sgml-mode.el (sgml-tag-syntax-table): Remove prefix
+       flag from "'" entry in sgml-tag-syntax-table.  (Bug#946)
+
+2008-09-19  Miles Bader  <miles@gnu.org>
 
        * comint.el (comint-output-filter): Make field properties for
        output text front-sticky.

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 67ed335a9c08c404050fccb54037b1d895517a2e..9310e7609076c7ac008051d2613785282ed467af 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -158,6 +158,9 @@ This takes effect when first loading the `sgml-mode' library.")
   (let ((table (sgml-make-syntax-table sgml-specials)))
     (dolist (char '(?\( ?\) ?\{ ?\} ?\[ ?\] ?$ ?% ?& ?* ?+ ?/))
       (modify-syntax-entry char "." table))
+    (unless (memq ?' sgml-specials)
+      ;; Avoid that skipping a tag backwards skips any "'" prefixing it.
+      (modify-syntax-entry ?' "w" table))
     table)
   "Syntax table used to parse SGML tags.")