From 8be2a2dd85a1883526924a652bde209ad3b48c8b Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 4 Jun 2004 23:26:14 +0000 Subject: [PATCH] (help-argument-name): Reintroduce face. (help-default-arg-highlight): Use it, now that `face-differs-from-default-p' can be trusted. --- lisp/ChangeLog | 6 ++++++ lisp/help-fns.el | 17 +++++++++++------ 2 files changed, 17 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 6c734a57948..3922ef9bf41 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-06-05 Juanma Barranquero + + * help-fns.el (help-argument-name): Reintroduce face. + (help-default-arg-highlight): Use it, now that + `face-differs-from-default-p' can be trusted. + 2004-06-05 Matt Hodges (tiny change) * textmodes/table.el: Sentence commands added to Point Motion diff --git a/lisp/help-fns.el b/lisp/help-fns.el index e7e09a431bd..03ea5bef653 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -237,14 +237,19 @@ KIND should be `var' for a variable or `subr' for a subroutine." (concat "src/" file) file))))) +;;;###autoload +(defface help-argument-name '((((supports :slant italic)) :inherit italic)) + "Face to highlight argument names in *Help* buffers.") + (defun help-default-arg-highlight (arg) "Default function to highlight arguments in *Help* buffers. -It returns ARG in lowercase italics, if the display supports it; -else ARG is returned in uppercase normal." - (let ((attrs '(:slant italic))) - (if (display-supports-face-attributes-p attrs) - (propertize (downcase arg) 'face attrs) - arg))) +It returns ARG in face `help-argument-name'; ARG is also +downcased if it displays differently than the default +face (according to `face-differs-from-default-p')." + (propertize (if (face-differs-from-default-p 'help-argument-name) + (downcase arg) + arg) + 'face 'help-argument-name)) (defun help-do-arg-highlight (doc args) (with-syntax-table (make-syntax-table emacs-lisp-mode-syntax-table) -- 2.39.2