Mercurial > emacs

comparison lisp/help-fns.el @ 83405:1955a4462bf9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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))))