Mercurial > emacs

comparison lisp/help.el @ 28735:2a88fcce2568

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(locate-library): Use mapc. (help-manyarg-func-alist): Add call-process-region.
author Dave Love <fx@gnu.org>
date Thu, 27 Apr 2000 17:01:28 +0000
parents 74b19c6efdd1
children 383f9592d9dd
comparison
equal deleted inserted replaced
28734:24e50bfa830e 28735:2a88fcce2568
942 (interactive (list (read-string "Locate library: ") 942 (interactive (list (read-string "Locate library: ")
943 nil nil 943 nil nil
944 t)) 944 t))
945 (let (result) 945 (let (result)
946 (catch 'answer 946 (catch 'answer
947 (mapcar 947 (mapc
948 (lambda (dir) 948 (lambda (dir)
949 (mapcar 949 (mapc
950 (lambda (suf) 950 (lambda (suf)
951 (let ((try (expand-file-name (concat library suf) dir))) 951 (let ((try (expand-file-name (concat library suf) dir)))
952 (and (file-readable-p try) 952 (and (file-readable-p try)
953 (null (file-directory-p try)) 953 (null (file-directory-p try))
954 (progn 954 (progn
1382 '((list . "(list &rest OBJECTS)") 1382 '((list . "(list &rest OBJECTS)")
1383 (vector . "(vector &rest OBJECTS)") 1383 (vector . "(vector &rest OBJECTS)")
1384 (make-byte-code . "(make-byte-code &rest ELEMENTS)") 1384 (make-byte-code . "(make-byte-code &rest ELEMENTS)")
1385 (call-process 1385 (call-process
1386 . "(call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)") 1386 . "(call-process PROGRAM &optional INFILE BUFFER DISPLAY &rest ARGS)")
1387 (call-process-region
1388 . "(call-process-region START END PROGRAM &optional DELETE BUFFER DISPLAY &rest ARGS)")
1387 (string . "(string &rest CHARACTERS)") 1389 (string . "(string &rest CHARACTERS)")
1388 (+ . "(+ &rest NUMBERS-OR-MARKERS)") 1390 (+ . "(+ &rest NUMBERS-OR-MARKERS)")
1389 (- . "(- &optional NUMBER-OR-MARKER &rest MORE-NUMBERS-OR-MARKERS)") 1391 (- . "(- &optional NUMBER-OR-MARKER &rest MORE-NUMBERS-OR-MARKERS)")
1390 (* . "(* &rest NUMBERS-OR-MARKERS)") 1392 (* . "(* &rest NUMBERS-OR-MARKERS)")
1391 (/ . "(/ DIVIDEND DIVISOR &rest DIVISORS)") 1393 (/ . "(/ DIVIDEND DIVISOR &rest DIVISORS)")