From 3b4429b49044779568646320f55fec9e2ff3e9cc Mon Sep 17 00:00:00 2001 From: Dave Love Date: Tue, 5 Sep 2000 15:16:23 +0000 Subject: [PATCH] (help-manyarg-func-alist): Add ml-prefix-argument-loop, insert-before-markers-and-inherit. Now checked systematically! --- lisp/ChangeLog | 5 +++++ lisp/help.el | 15 ++++++++++++++- 2 files changed, 19 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 65d6bbf9557..e70a4123ddf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-09-05 Dave Love + + * help.el (help-manyarg-func-alist): Add ml-prefix-argument-loop, + insert-before-markers-and-inherit. Now checked systematically! + 2000-09-05 Alex Schroeder * sql.el (sql-postgres): Use sql-postgres-options. 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 -- 2.39.2