Mercurial > emacs
diff lisp/help-fns.el @ 55381:c5998b5120f6
(help-argument-name): Default to bold; don't inherit from
font-lock-variable-name-face.
(help-do-arg-highlight): Grok also ARGth occurrences in the docstring.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Thu, 06 May 2004 01:11:17 +0000 |
parents | 07c85e772ee2 |
children | 765deb51a826 |
line wrap: on
line diff
--- a/lisp/help-fns.el Thu May 06 00:46:57 2004 +0000 +++ b/lisp/help-fns.el Thu May 06 01:11:17 2004 +0000 @@ -237,14 +237,14 @@ (concat "src/" file) file))))) -(defface help-argument-name '((t (:inherit font-lock-variable-name-face))) +(defface help-argument-name '((t (:weight bold))) "Face to highlight function arguments in docstrings.") (defun help-do-arg-highlight (doc args) (while args (let ((arg (prog1 (car args) (setq args (cdr args))))) (setq doc (replace-regexp-in-string - (concat "\\<\\(" arg "\\)\\(?:es\\|s\\)?\\>") + (concat "\\<\\(" arg "\\)\\(?:es\\|s\\|th\\)?\\>") (propertize arg 'face 'help-argument-name) doc t t 1)))) doc)