diff options
| author | Stefan Monnier <[email protected]> | 2002-07-07 20:14:28 +0000 |
|---|---|---|
| committer | Stefan Monnier <[email protected]> | 2002-07-07 20:14:28 +0000 |
| commit | 287360825e6a069702170e38ff64e33846ebdabf (patch) | |
| tree | 0315c6cada7ff7b76d15ccbe31bc1580d633a01f /lisp | |
| parent | 867357fb211e8b4a18555026d65f4e266d4f2470 (diff) | |
(texinfo-font-lock-keywords): Disable the automatic environment name update.
(texinfo-clone-environment): Fix it not to incorrectly match prefixes.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/textmodes/texinfo.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el index d31bae4a0d..18d0e614f1 100644 --- a/lisp/textmodes/texinfo.el +++ b/lisp/textmodes/texinfo.el @@ -358,8 +358,8 @@ Subexpression 1 is what goes into the corresponding `@end' statement.") ("@\\(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 @@ Subexpression 1 is what goes into the corresponding `@end' statement.") (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 () |