Mercurial > emacs
changeset 55909:b917393b9c8c
(help-argument-name): Reintroduce face.
(help-default-arg-highlight): Use it, now that
`face-differs-from-default-p' can be trusted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 04 Jun 2004 23:25:00 +0000 |
| parents | 3146bd943af1 |
| children | 4fbbfb3ab1c3 |
| files | lisp/help-fns.el |
| diffstat | 1 files changed, 11 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/help-fns.el Fri Jun 04 22:50:04 2004 +0000 +++ b/lisp/help-fns.el Fri Jun 04 23:25:00 2004 +0000 @@ -237,14 +237,19 @@ (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)