# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1026072868 0
# Node ID 00a9017b13654d828cfec3a541c6d16d22c5876f
# Parent  0695dbe46ee5a69aa78a95a6df3d75dfa4236e99
(texinfo-font-lock-keywords): Disable the automatic environment name update.
(texinfo-clone-environment): Fix it not to incorrectly match prefixes.

diff -r 0695dbe46ee5 -r 00a9017b1365 lisp/textmodes/texinfo.el
--- a/lisp/textmodes/texinfo.el	Sun Jul 07 19:50:56 2002 +0000
+++ b/lisp/textmodes/texinfo.el	Sun Jul 07 20:14:28 2002 +0000
@@ -358,8 +358,8 @@
     ("@\\(anchor\\){\\([^}]+\\)" 2 font-lock-type-face)
     ("@\\(dmn\\|acronym\\|value\\){\\([^}]+\\)" 2 font-lock-builtin-face)
     ("@\\(end\\|itemx?\\) +\\(.+\\)" 2 font-lock-keyword-face keep)
-    (,texinfo-environment-regexp
-     1 (texinfo-clone-environment (match-beginning 1) (match-end 1)) keep)
+    ;; (,texinfo-environment-regexp
+    ;;  1 (texinfo-clone-environment (match-beginning 1) (match-end 1)) keep)
     (,(concat "^@" (regexp-opt (mapcar 'car texinfo-section-list) t)
 	       ".*\n") 0 texinfo-heading-face t))
   "Additional expressions to highlight in TeXinfo mode.")
@@ -377,7 +377,8 @@
 	    (forward-word 1)
 	    (texinfo-next-unmatched-end))
 	  (skip-syntax-forward "^w")
-	  (when (looking-at (regexp-quote (buffer-substring start end)))
+	  (when (looking-at
+		 (concat (regexp-quote (buffer-substring start end)) "\\>"))
 	    (text-clone-create start end 'spread "\\w*")))))))
 
 (defun texinfo-outline-level ()