diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/help-fns.el | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2da583d85fe..3f1a467b0d2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2004-05-06 Juanma Barranquero <lektu@terra.es> + * help-fns.el (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. + * ehelp.el (electric-help-command-loop): Check whether the last character is visible, not (point-max). 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) |