diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2004-05-06 01:12:06 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2004-05-06 01:12:06 +0000 |
| commit | 1c34b5a97d7a7bf9a29c40fb6928d0c2a1b5532c (patch) | |
| tree | 12fac24124a6ccbae3cca352c7089017969bc9a2 /lisp/help-fns.el | |
| parent | b03a4fdde7431de46776c0e2e9b0e3680e50c96a (diff) | |
| download | emacs-1c34b5a97d7a7bf9a29c40fb6928d0c2a1b5532c.tar.gz | |
(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.
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index d4c0997bdf7..a94c0ed9dea 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -237,14 +237,14 @@ KIND should be `var' for a variable or `subr' for a subroutine." (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) |