From: Glenn Morris <rgm@gnu.org>
Date: Fri, 24 Aug 2007 02:30:59 +0000 (+0000)
Subject: Nikolaj Schumacher  <n_schumacher at web.de>  (tiny change)
X-Git-Tag: emacs-pretest-23.0.90~11349
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=43fcc18a256823e093a3aea795451f71e795c553;p=emacs.git

Nikolaj Schumacher  <n_schumacher at web.de>  (tiny change)

(eldoc-highlight-function-argument): New face.
(eldoc-highlight-function-argument): Use it.
---

diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el
index 8b2538d299c..1d2441f884a 100644
--- a/lisp/emacs-lisp/eldoc.el
+++ b/lisp/emacs-lisp/eldoc.el
@@ -101,6 +101,11 @@ truncated to make more of the arglist or documentation string visible."
  enable argument list to fit on one line" truncate-sym-name-if-fit))
   :group 'eldoc)
 
+(defface eldoc-highlight-function-argument
+  '((t (:inherit bold)))
+  "Face used for the argument at point in a function's argument list."
+  :group 'eldoc)
+
 ;;; No user options below here.
 
 (defvar eldoc-message-commands-table-size 31
@@ -303,7 +308,7 @@ highlights argument number INDEX. "
 In the absence of INDEX, just call `eldoc-docstring-format-sym-doc'."
   (let ((start          nil)
 	(end            0)
-	(argument-face  'bold))
+	(argument-face  'eldoc-highlight-function-argument))
     ;; Find the current argument in the argument string.  We need to
     ;; handle `&rest' and informal `...' properly.
     ;;