diff options
| author | Dave Love <fx@gnu.org> | 2000-09-05 15:16:23 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-09-05 15:16:23 +0000 |
| commit | 3b4429b49044779568646320f55fec9e2ff3e9cc (patch) | |
| tree | d83019de0398d38ede0fe3519ef3e89e0cb86d0d /lisp | |
| parent | 66ffe51c35f4101fc25007324dee0c4db6c8e55c (diff) | |
| download | emacs-3b4429b49044779568646320f55fec9e2ff3e9cc.tar.gz | |
(help-manyarg-func-alist): Add ml-prefix-argument-loop,
insert-before-markers-and-inherit. Now checked systematically!
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/help.el | 15 |
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 |