Re: help-default-arg-highlight

[Kim F. Storm]

Juri Linkov <address@hidden> writes:

> (defun help-default-arg-highlight (arg)
>   (propertize (downcase arg) 'face '(:foreground "SkyBlue4")))
> 
> But I don't understand why not to use a special `help-argument-name'
> face like it was already added to help-fns.el but eventually removed.
> Redefining a function is too ugly way to customize a face.  It makes
> sense to redefine the function only when the user don't want to
> downcase the arguments.

What about this:

(defcustom help-default-arg-highlight-attributes '(:slant italic))

(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 help-default-arg-highlight-attributes)
   (if (and attrs
        (display-supports-face-attributes-p attrs))
        (propertize (downcase arg) 'face attrs)
      arg)))

Setting that var to nil would undo this feature.

-- 
Kim F. Storm  http://www.cua.dk