From 1c34b5a97d7a7bf9a29c40fb6928d0c2a1b5532c Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 6 May 2004 01:12:06 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 4 ++++ 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 + * 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)