From: Juanma Barranquero <lekktu@gmail.com>
Date: Thu, 6 May 2004 01:12:06 +0000 (+0000)
Subject: (help-argument-name): Default to bold; don't inherit from
X-Git-Tag: ttn-vms-21-2-B4~6403
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1c34b5a97d7a7bf9a29c40fb6928d0c2a1b5532c;p=emacs.git

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