From: Dave Love <fx@gnu.org>
Date: Fri, 31 Mar 2000 19:59:07 +0000 (+0000)
Subject: (help-manyarg-func-alist): Correct several omissions.
X-Git-Tag: emacs-pretest-21.0.90~4375
X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/2de477650b66e89d055051c0980bd29b07cd54e0

(help-manyarg-func-alist): Correct several omissions.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index dfaf45023b..1c76db7996 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2000-03-31  Dave Love  <fx@gnu.org>
 
+	* help.el (help-manyarg-func-alist): Correct several omissions.
+
 	* add-log.el: Don't require cl, fortran.
 	(add-log-current-defun-function): Doc fix.
 	(change-log-version-number-regexp-list): Remove SCCS part.  Doc
diff --git a/lisp/help.el b/lisp/help.el
index d0ca865a9d..b36075b811 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1375,6 +1375,11 @@ out of view."
      (format . "(format STRING &rest OBJECTS)")
      (apply . "(apply FUNCTION &rest ARGUMENTS)")
      (run-hooks . "(run-hooks &rest HOOKS)")
+     (run-hook-with-args . "(run-hook-with-args HOOK &rest ARGS)")
+     (run-hook-with-args-until-failure
+      . "(run-hook-with-args-until-failure HOOK &rest ARGS)")
+     (run-hook-with-args-until-success
+      . "(run-hook-with-args-until-success HOOK &rest ARGS)")
      (funcall . "(funcall FUNCTION &rest ARGUMENTS)")
      (append . "(append &rest SEQUENCES)")
      (concat . "(concat &rest SEQUENCES)")
@@ -1409,6 +1414,10 @@ out of view."
      (unwind-protect . "(unwind-protect BODYFORM UNWINDFORMS...)")
      (condition-case . "(condition-case VAR BODYFORM HANDLERS...)")
      (track-mouse . "(track-mouse BOFY ...)")
-     (ml-if . "(ml-if COND THEN ELSE...)"))))
+     (ml-if . "(ml-if COND THEN ELSE...)")
+     (ml-provide-prefix-argument . "(ml-provide-prefix-argument ARG1 ARG2)")
+     (with-output-to-temp-buffer
+	 . "(with-output-to-temp-buffer BUFFNAME BODY ...)")
+     (save-window-excursion . "(save-window-excursion BODY ...)"))))
 
 ;;; help.el ends here