# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 956854888 0
# Node ID 2a88fcce2568f30b89a15017df33d92964deac77
# Parent  24e50bfa830edd93ede0508ebad81b8e5f0aba06
(locate-library): Use mapc.
(help-manyarg-func-alist): Add call-process-region.

diff -r 24e50bfa830e -r 2a88fcce2568 lisp/help.el
--- a/lisp/help.el	Thu Apr 27 10:52:35 2000 +0000
+++ b/lisp/help.el	Thu Apr 27 17:01:28 2000 +0000
@@ -944,9 +944,9 @@
 		     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 @@
      (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)")