Commit 3b4429b4 authored by Dave Love's avatar Dave Love

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

insert-before-markers-and-inherit.  Now checked systematically!
parent 66ffe51c
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.
......
......@@ -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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment