Mercurial > emacs
comparison lisp/help-funs.el @ 40145:3dd955e01bcc
(help-manyarg-func-alist): Variable removed.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Sun, 21 Oct 2001 15:28:44 +0000 |
| parents | e156a441da6f |
| children | 6fbc91a79b0b |
comparison
equal
deleted
inserted
replaced
| 40144:b4ffca20829f | 40145:3dd955e01bcc |
|---|---|
| 433 (save-excursion | 433 (save-excursion |
| 434 (set-buffer standard-output) | 434 (set-buffer standard-output) |
| 435 ;; Return the text we displayed. | 435 ;; Return the text we displayed. |
| 436 (buffer-string))))))) | 436 (buffer-string))))))) |
| 437 | 437 |
| 438 | |
| 439 ;; `help-manyarg-func-alist' is defined primitively (in doc.c). | |
| 440 ;; New primitives with `MANY' or `UNEVALLED' arglists should be added | |
| 441 ;; to this alist. | |
| 442 ;; The parens and function name are redundant, but it's messy to add | |
| 443 ;; them in `documentation'. | |
| 444 | |
| 445 ;; This will find any missing items: | |
| 446 ;; (let (l) | |
| 447 ;; (mapatoms (lambda (x) | |
| 448 ;; (if (and (fboundp x) | |
| 449 ;; (subrp (symbol-function x)) | |
| 450 ;; (not (numberp (cdr (subr-arity (symbol-function x))))) | |
| 451 ;; (not (assq x help-manyarg-func-alist))) | |
| 452 ;; (push x l)))) | |
| 453 ;; l) | |
| 454 (defconst help-manyarg-func-alist | |
| 455 (purecopy | |
| 456 '((apply . "(apply FUNCTION &rest ARGUMENTS)") | |
| 457 (run-hooks . "(run-hooks &rest HOOKS)") | |
| 458 (run-hook-with-args . "(run-hook-with-args HOOK &rest ARGS)") | |
| 459 (run-hook-with-args-until-failure | |
| 460 . "(run-hook-with-args-until-failure HOOK &rest ARGS)") | |
| 461 (run-hook-with-args-until-success | |
| 462 . "(run-hook-with-args-until-success HOOK &rest ARGS)") | |
| 463 (funcall . "(funcall FUNCTION &rest ARGUMENTS)") | |
| 464 (start-process . "(start-process NAME BUFFER PROGRAM &rest PROGRAM-ARGS)") | |
| 465 (setq-default . "(setq-default SYMBOL VALUE [SYMBOL VALUE...])") | |
| 466 (save-excursion . "(save-excursion &rest BODY)") | |
| 467 (save-current-buffer . "(save-current-buffer &rest BODY)") | |
| 468 (save-restriction . "(save-restriction &rest BODY)") | |
| 469 (or . "(or CONDITIONS ...)") | |
| 470 (and . "(and CONDITIONS ...)") | |
| 471 (if . "(if COND THEN ELSE...)") | |
| 472 (cond . "(cond CLAUSES...)") | |
| 473 (progn . "(progn BODY ...)") | |
| 474 (prog1 . "(prog1 FIRST BODY...)") | |
| 475 (prog2 . "(prog2 X Y BODY...)") | |
| 476 (setq . "(setq SYM VAL SYM VAL ...)") | |
| 477 (quote . "(quote ARG)") | |
| 478 (function . "(function ARG)") | |
| 479 (defun . "(defun NAME ARGLIST [DOCSTRING] BODY...)") | |
| 480 (defmacro . "(defmacro NAME ARGLIST [DOCSTRING] BODY...)") | |
| 481 (defvar . "(defvar SYMBOL [INITVALUE DOCSTRING])") | |
| 482 (defconst . "(defconst SYMBOL INITVALUE [DOCSTRING])") | |
| 483 (let* . "(let* VARLIST BODY...)") | |
| 484 (let . "(let VARLIST BODY...)") | |
| 485 (while . "(while TEST BODY...)") | |
| 486 (catch . "(catch TAG BODY...)") | |
| 487 (unwind-protect . "(unwind-protect BODYFORM UNWINDFORMS...)") | |
| 488 (condition-case . "(condition-case VAR BODYFORM HANDLERS...)") | |
| 489 (track-mouse . "(track-mouse BODY ...)") | |
| 490 (with-output-to-temp-buffer | |
| 491 . "(with-output-to-temp-buffer BUFFNAME BODY ...)") | |
| 492 (save-window-excursion . "(save-window-excursion BODY ...)") | |
| 493 (find-operation-coding-system | |
| 494 . "(find-operation-coding-system OPERATION ARGUMENTS ...)")))) | |
| 495 | |
| 496 | 438 |
| 497 (provide 'help-funs) | 439 (provide 'help-funs) |
| 498 | 440 |
| 499 ;;; help-funs.el ends here | 441 ;;; help-funs.el ends here |
| 500 | |
| 501 |