(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.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2da583d85fe419f711b4e491750bd12d77da8c08..3f1a467b0d26e1c516fbedb78207c357907c9b1c 100644 (file)
--- 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 d4c0997bdf72eb3bf2e808828075f283e91b5d91..a94c0ed9dea459956ad895c619416a6814d7cd13 100644 (file)
--- 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)