(help-manyarg-func-alist): Add ml-prefix-argument-loop,

insert-before-markers-and-inherit.  Now checked systematically!

2 files changed, 19 insertions, 1 deletions

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  <fx@gnu.org>
+
+        * help.el (help-manyarg-func-alist): Add ml-prefix-argument-loop,
+        insert-before-markers-and-inherit.  Now checked systematically!
+
 2000-09-05  Alex Schroeder  <alex@gnu.org>
 
         * 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