mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(help-argument-name): Reintroduce face.

Browse Source 
(help-default-arg-highlight): Use it, now that
`face-differs-from-default-p' can be trusted.
This commit is contained in:
Juanma Barranquero 2004-06-04 23:26:14 +00:00
parent e2cae76902
commit 8be2a2dd85
2 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
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

17
lisp/help-fns.el
View File

@ -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)