diff options
| author | Dave Love <fx@gnu.org> | 2000-09-05 15:14:15 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-09-05 15:14:15 +0000 |
| commit | c32a0f75c60179c5f98a32de8b0d09fe9901bf39 (patch) | |
| tree | c9ce2102844c32c9bf28070941798ef65cb1cfb9 /lisp/help.el | |
| parent | 6c7fff251ade4c9a5aada6065ff41674ed6a5458 (diff) | |
| download | emacs-c32a0f75c60179c5f98a32de8b0d09fe9901bf39.tar.gz | |
(help-manyarg-func-alist): Add ml-prefix-argument-loop,
insert-before-markers-and-inherit. Now checked systematically!
Diffstat (limited to 'lisp/help.el')
| -rw-r--r-- | lisp/help.el | 15 |
1 files changed, 14 insertions, 1 deletions
diff --git a/lisp/help.el b/lisp/help.el index 1311f5f8252..cb5083664a4 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -1476,6 +1476,16 @@ out of view." ;; to this alist. ;; The parens and function name are redundant, but it's messy to add ;; them in `documentation'. + +;; This will find any missing items: +;; (let (l) +;; (mapatoms (lambda (x) +;; (if (and (fboundp x) +;; (subrp (symbol-function x)) +;; (not (numberp (cdr (subr-arity (symbol-function x))))) +;; (not (assq x help-manyarg-func-alist))) +;; (push x l)))) +;; l) (defconst help-manyarg-func-alist (purecopy '((list . "(list &rest OBJECTS)") @@ -1548,10 +1558,13 @@ out of view." (track-mouse . "(track-mouse BODY ...)") (ml-if . "(ml-if COND THEN ELSE...)") (ml-provide-prefix-argument . "(ml-provide-prefix-argument ARG1 ARG2)") + (ml-prefix-argument-loop . "(ml-prefix-argument-loop ...)") (with-output-to-temp-buffer . "(with-output-to-temp-buffer BUFFNAME BODY ...)") (save-window-excursion . "(save-window-excursion BODY ...)") (find-operation-coding-system - . "(find-operation-coding-system OPERATION ARGUMENTS ...)")))) + . "(find-operation-coding-system OPERATION ARGUMENTS ...)") + (insert-before-markers-and-inherit + . "(insert-before-markers-and-inherit &rest ARGS)")))) ;;; help.el ends here |