diff options
| author | Juanma Barranquero | 2004-05-09 22:41:34 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2004-05-09 22:41:34 +0000 |
| commit | 55fdba3190d3fd2311b9c169c2170e9c0d1f7e49 (patch) | |
| tree | 8acb83a2a8f23f9e7d75dc6b36710dc7be903b0a | |
| parent | f0529fe18149c46448178e60cc7475e5e9ce02d0 (diff) | |
| download | emacs-55fdba3190d3fd2311b9c169c2170e9c0d1f7e49.tar.gz emacs-55fdba3190d3fd2311b9c169c2170e9c0d1f7e49.zip | |
(help-argument-name): Default to italic.
(help-highlight-arguments): Always return (usage . doc).
| -rw-r--r-- | lisp/help-fns.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 724cfb3b504..df8f9359853 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el | |||
| @@ -237,7 +237,7 @@ KIND should be `var' for a variable or `subr' for a subroutine." | |||
| 237 | (concat "src/" file) | 237 | (concat "src/" file) |
| 238 | file))))) | 238 | file))))) |
| 239 | 239 | ||
| 240 | (defface help-argument-name '((t (:weight bold))) | 240 | (defface help-argument-name '((t (:slant italic))) |
| 241 | "Face to highlight function arguments in docstrings.") | 241 | "Face to highlight function arguments in docstrings.") |
| 242 | 242 | ||
| 243 | (defun help-do-arg-highlight (doc args) | 243 | (defun help-do-arg-highlight (doc args) |
| @@ -273,9 +273,9 @@ KIND should be `var' for a variable or `subr' for a subroutine." | |||
| 273 | ;; Highlight aguments in the USAGE string | 273 | ;; Highlight aguments in the USAGE string |
| 274 | (setq usage (help-do-arg-highlight (buffer-string) args)) | 274 | (setq usage (help-do-arg-highlight (buffer-string) args)) |
| 275 | ;; Highlight arguments in the DOC string | 275 | ;; Highlight arguments in the DOC string |
| 276 | (setq doc (and doc (help-do-arg-highlight doc args))))) | 276 | (setq doc (and doc (help-do-arg-highlight doc args)))))) |
| 277 | ;; Return value is like the one from help-split-fundoc, but highlighted | 277 | ;; Return value is like the one from help-split-fundoc, but highlighted |
| 278 | (cons usage doc))) | 278 | (cons usage doc)) |
| 279 | 279 | ||
| 280 | ;;;###autoload | 280 | ;;;###autoload |
| 281 | (defun describe-function-1 (function) | 281 | (defun describe-function-1 (function) |