(locate-library): Use mapc.

(help-manyarg-func-alist): Add call-process-region.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 02fefd8af9acb8028d867958257e830d9cb6d90d..375666e6571612e47ba71113f6905638f90aa7a0 100644 (file)
--- 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 fed3dd7f691d29e8f3a97e73ce04ba3862a8a2d4..6e343c03ce6c3729a8ead88e6334f3f9182c19a4 100644 (file)
--- 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)")