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

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 65d6bbf955718d02c81f9ae3489609fd9fe44b39..e70a4123ddfb243311615c9cae659279bdbc0dfd 100644 (file)
--- 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 1311f5f825262db11b630357da84ab506d5ed33b..cb5083664a455044b596dadced5edca142c07706 100644 (file)
--- 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