[Emacs-diffs] /srv/bzr/emacs/trunk r111823: * lisp/emacs-lisp/eldoc.el (eldoc-highlight-function-argument):

[Stefan Monnier]

------------------------------------------------------------
revno: 111823
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=8345
author: Michael Heerdegen <address@hidden>
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sun 2013-02-17 20:30:27 -0500
message:
  * lisp/emacs-lisp/eldoc.el (eldoc-highlight-function-argument):
  Use font-lock-keyword-face for macros and special forms.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/eldoc.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-17 19:01:46 +0000
+++ b/lisp/ChangeLog    2013-02-18 01:30:27 +0000
@@ -1,3 +1,8 @@
+2013-02-18  Michael Heerdegen  <address@hidden>
+
+       * 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  <address@hidden>
 
        * net/network-stream.el (network-stream-open-starttls):

=== modified file 'lisp/emacs-lisp/eldoc.el'
--- a/lisp/emacs-lisp/eldoc.el  2013-01-01 09:11:05 +0000
+++ b/lisp/emacs-lisp/eldoc.el  2013-02-18 01:30:27 +0000
@@ -356,7 +356,8 @@
        (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