Mercurial > emacs
comparison lisp/help-fns.el @ 83405:1955a4462bf9
Merged from miles@gnu.org--gnu-2005 (patch 659-663)
Patches applied:
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-659
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-660
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-661
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-662
Update from CVS
* miles@gnu.org--gnu-2005/emacs--cvs-trunk--0--patch-663
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-445
author | Karoly Lorentey <lorentey@elte.hu> |
---|---|
date | Sat, 03 Dec 2005 14:25:50 +0000 |
parents | 03934708f1e9 9c628f17433c |
children | de425e4eb0bc |
comparison
equal
deleted
inserted
replaced
83404:69e184bbba16 | 83405:1955a4462bf9 |
---|---|
221 (setq file (replace-match ".c" t t file))) | 221 (setq file (replace-match ".c" t t file))) |
222 (if (string-match "\\.c\\'" file) | 222 (if (string-match "\\.c\\'" file) |
223 (concat "src/" file) | 223 (concat "src/" file) |
224 file))))) | 224 file))))) |
225 | 225 |
226 ;;;###autoload | |
227 (defface help-argument-name '((((supports :slant italic)) :inherit italic)) | 226 (defface help-argument-name '((((supports :slant italic)) :inherit italic)) |
228 "Face to highlight argument names in *Help* buffers." | 227 "Face to highlight argument names in *Help* buffers." |
229 :group 'help) | 228 :group 'help) |
230 | 229 |
231 (defun help-default-arg-highlight (arg) | 230 (defun help-default-arg-highlight (arg) |
434 ((or (stringp def) | 433 ((or (stringp def) |
435 (vectorp def)) | 434 (vectorp def)) |
436 (format "\nMacro: %s" (format-kbd-macro def))) | 435 (format "\nMacro: %s" (format-kbd-macro def))) |
437 (t "[Missing arglist. Please make a bug report.]"))) | 436 (t "[Missing arglist. Please make a bug report.]"))) |
438 (high (help-highlight-arguments use doc))) | 437 (high (help-highlight-arguments use doc))) |
439 (insert (car high) "\n") | 438 (let ((fill-begin (point))) |
439 (insert (car high) "\n") | |
440 (fill-region fill-begin (point))) | |
440 (setq doc (cdr high)))) | 441 (setq doc (cdr high)))) |
441 (let ((obsolete (and | 442 (let ((obsolete (and |
442 ;; function might be a lambda construct. | 443 ;; function might be a lambda construct. |
443 (symbolp function) | 444 (symbolp function) |
444 (get function 'byte-obsolete-info)))) | 445 (get function 'byte-obsolete-info)))) |