Commit 8be2a2dd authored by Juanma Barranquero's avatar Juanma Barranquero

(help-argument-name): Reintroduce face.

(help-default-arg-highlight): Use it, now that
`face-differs-from-default-p' can be trusted.
parent e2cae769
2004-06-05 Juanma Barranquero <lektu@terra.es>
* 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 <matt@stchem.bham.ac.uk> (tiny change)
* textmodes/table.el: Sentence commands added to Point Motion
......
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment