diff options
| author | Eli Zaretskii <[email protected]> | 2001-04-11 08:02:51 +0000 |
|---|---|---|
| committer | Eli Zaretskii <[email protected]> | 2001-04-11 08:02:51 +0000 |
| commit | e38af9bd2d67f25fb569ae40f199a154993f9088 (patch) | |
| tree | a35b344aee96b9c0f9bdee50460d591bdf8a847b /lisp | |
| parent | 60f8d73535346769b3dd7b5332864a220012d6d5 (diff) | |
(texinfo-font-lock-keywords): Add
fontification for @value, @dfn, @dmn, @acronym, @anchor, and
@inforef. Add an OVERRIDE of `keep' to highlight specs of
keywords whose arguments routinely include @@.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/textmodes/texinfo.el | 14 |
2 files changed, 18 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 361f7af8b5..9e7c4fbe93 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2001-04-11 Eli Zaretskii <[email protected]> + + * textmodes/texinfo.el (texinfo-font-lock-keywords): Add + fontification for @value, @dfn, @dmn, @acronym, @anchor, and + @inforef. Add an OVERRIDE of `keep' to highlight specs of + keywords whose arguments routinely include @@. + 2001-04-10 Gerd Moellmann <[email protected]> * emacs-lisp/advice.el (ad-make-advised-definition): Construct diff --git a/lisp/textmodes/texinfo.el b/lisp/textmodes/texinfo.el index 1dcae0b1d4..fdd6faea84 100644 --- a/lisp/textmodes/texinfo.el +++ b/lisp/textmodes/texinfo.el @@ -323,10 +323,18 @@ chapter." ("@\\([a-zA-Z]+\\|[^ \t\n]\\)" 1 font-lock-keyword-face) ;commands ("^\\*\\(.*\\)[\t ]*$" 1 font-lock-function-name-face t) ;menu items ("@\\(emph\\|strong\\|b\\|i\\|sc\\){\\([^}]+\\)" 2 font-lock-comment-face) - ("@\\(file\\|kbd\\|key\\|url\\|uref\\|email\\){\\([^}]+\\)" 2 font-lock-string-face) + ("@\\(kbd\\|key\\|url\\|uref\\){\\([^}]+\\)" + 2 font-lock-string-face) + ;; The following two groups have an OVERRIDE of `keep' because + ;; their arguments frequently include a @@, and we don't want that + ;; to overwrite the normal fontification of the argument. + ("@\\(file\\|email\\){\\([^}]+\\)" 2 font-lock-string-face keep) ("@\\(samp\\|code\\|var\\|math\\|env\\|command\\|option\\){\\([^}]+\\)" - 2 font-lock-variable-name-face) - ("@\\(cite\\|[ux]?ref\\|pxref\\){\\([^}]+\\)" 2 font-lock-constant-face) + 2 font-lock-variable-name-face keep) + ("@\\(cite\\|x?ref\\|pxref\\|dfn\\|inforef\\){\\([^}]+\\)" + 2 font-lock-constant-face) + ("@\\(anchor\\){\\([^}]+\\)" 2 font-lock-type-face) + ("@\\(dmn\\|acronym\\|value\\){\\([^}]+\\)" 2 font-lock-builtin-face) ("@\\(end\\|itemx?\\) +\\(.+\\)" 2 font-lock-function-name-face keep) (,(concat "^@" (regexp-opt (mapcar 'car texinfo-section-list) t) ".*\n") 0 texinfo-heading-face t)) |