Function: find-lisp-insert-directory

find-lisp-insert-directory is a byte-compiled function defined in find-lisp.el.gz.

Signature

(find-lisp-insert-directory DIR FILE-PREDICATE DIRECTORY-PREDICATE SORT-FUNCTION)

Documentation

Insert the results of find-lisp-find-files in the current buffer.

Source Code

;; Defined in /usr/src/emacs/lisp/find-lisp.el.gz
(defun find-lisp-insert-directory (dir
                                   file-predicate
                                   directory-predicate
				   _sort-function)
  "Insert the results of `find-lisp-find-files' in the current buffer."
  (let ((buffer-read-only nil)
	(files (find-lisp-find-files-internal
		dir
		file-predicate
		directory-predicate))
	(len (length dir)))
    (erase-buffer)
    ;; Subdir headlerline must come first because the first marker in
    ;; subdir-alist points there.
    (insert find-lisp-line-indent dir ":\n")
    ;; Make second line a ``find'' line in analogy to the ``total'' or
    ;; ``wildcard'' line.
    ;;
    ;; No analog for find-lisp?
    (insert find-lisp-line-indent "\n")
    ;; Run the find function
    (mapc
     (lambda (file)
       (find-lisp-find-dired-insert-file
        (substring file len)
        (current-buffer)))
     (sort files 'string-lessp))
    ;; FIXME: Sort function is ignored for now
    ;; (funcall sort-function files))
    (goto-char (point-min))
    (dired-goto-next-file)))