From: Michael Heerdegen <michael_heerdegen@web.de>
Date: Mon, 18 Feb 2013 01:30:27 +0000 (-0500)
Subject: * lisp/emacs-lisp/eldoc.el (eldoc-highlight-function-argument):
X-Git-Tag: emacs-24.3.90~173^2~7^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=587feed443522f738b65b57b22a31cc8a25525c5;p=emacs.git

* lisp/emacs-lisp/eldoc.el (eldoc-highlight-function-argument):
Use font-lock-keyword-face for macros and special forms.

Fixes: debbugs:8345
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3d5308875de..b1d1c1e7fd0 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-18  Michael Heerdegen  <michael_heerdegen@web.de>
+
+	* emacs-lisp/eldoc.el (eldoc-highlight-function-argument):
+	Use font-lock-keyword-face for macros and special forms (bug#8345).
+
 2013-02-17  Didier Verna  <didier@didierverna.net>
 
 	* net/network-stream.el (network-stream-open-starttls):
diff --git a/lisp/emacs-lisp/eldoc.el b/lisp/emacs-lisp/eldoc.el
index 0f01857381c..5a6b486dcd0 100644
--- a/lisp/emacs-lisp/eldoc.el
+++ b/lisp/emacs-lisp/eldoc.el
@@ -356,7 +356,8 @@ In the absence of INDEX, just call `eldoc-docstring-format-sym-doc'."
 	(setq doc (copy-sequence args))
 	(add-text-properties start end (list 'face argument-face) doc))
       (setq doc (eldoc-docstring-format-sym-doc
-		 sym doc 'font-lock-function-name-face))
+		 sym doc (if (functionp sym) 'font-lock-function-name-face
+                           'font-lock-keyword-face)))
       doc)))
 
 ;; Return a string containing a brief (one-line) documentation string for