# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1083805877 0
# Node ID c5998b5120f60e5d5d24d6c4fb7482a86299e2c7
# Parent  2f8b73100987c2c487aa41afc0b2e223a31aacfe
(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 -r 2f8b73100987 -r c5998b5120f6 lisp/help-fns.el
--- 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)