diff options
| author | Dave Love <fx@gnu.org> | 2000-04-27 17:02:42 +0000 |
|---|---|---|
| committer | Dave Love <fx@gnu.org> | 2000-04-27 17:02:42 +0000 |
| commit | e3e36d741fcc5d7ec1737183b61576df29fe8bc5 (patch) | |
| tree | cebf51204e420ec5c4c4d14768076dc00e670a46 | |
| parent | 353964e3915a55393ff21cf3aa6de5fcc56e8c3e (diff) | |
| download | emacs-e3e36d741fcc5d7ec1737183b61576df29fe8bc5.tar.gz | |
(locate-library): Use mapc.
(help-manyarg-func-alist): Add call-process-region.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/help.el | 6 |
2 files changed, 9 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 02fefd8af9a..375666e6571 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2000-04-27 Dave Love <fx@gnu.org> + + * help.el (locate-library): Use mapc. + (help-manyarg-func-alist): Add call-process-region. + 2000-04-27 Gerd Moellmann <gerd@gnu.org> * subr.el (add-minor-mode): Use `set' instead of `setq'. diff --git a/lisp/help.el b/lisp/help.el index fed3dd7f691..6e343c03ce6 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -944,9 +944,9 @@ and the file name is displayed in the echo area." t)) (let (result) (catch 'answer - (mapcar + (mapc (lambda (dir) - (mapcar + (mapc (lambda (suf) (let ((try (expand-file-name (concat library suf) dir))) (and (file-readable-p try) @@ -1384,6 +1384,8 @@ out of view." (make-byte-code . "(make-byte-code &rest ELEMENTS)") (call-process . "(call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)") + (call-process-region + . "(call-process-region START END PROGRAM &optional DELETE BUFFER DISPLAY &rest ARGS)") (string . "(string &rest CHARACTERS)") (+ . "(+ &rest NUMBERS-OR-MARKERS)") (- . "(- &optional NUMBER-OR-MARKER &rest MORE-NUMBERS-OR-MARKERS)") |