From: Dave Love <fx@gnu.org>
Date: Tue, 5 Sep 2000 15:16:23 +0000 (+0000)
Subject: (help-manyarg-func-alist): Add ml-prefix-argument-loop,
X-Git-Tag: emacs-pretest-21.0.90~1787
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=3b4429b49044779568646320f55fec9e2ff3e9cc;p=emacs.git

(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 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