;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:18 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/find-lisp.el
;;; in Emacs version 24.3.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(require 'dired)
#@20 Internal variable.
(defvar find-lisp-regexp nil (#$ . 569))
#@35 Indentation for dired file lines.
(defconst find-lisp-line-indent "  " (#$ . 635))
#@42 Predicate for choosing to include files.
(defvar find-lisp-file-predicate nil (#$ . 724))
#@53 Predicate for choosing to descend into directories.
(defvar find-lisp-directory-predicate nil (#$ . 820))
#@35 Buffer for debugging information.
(defvar find-lisp-debug-buffer "*Find Lisp Debug*" (#$ . 932))
#@31 Whether debugging is enabled.
(defvar find-lisp-debug nil (#$ . 1035))
#@60 Print a debug message MESSAGE in `find-lisp-debug-buffer'.
(defalias 'find-lisp-debug-message #[(message) "\302!q\210db\210	\303\261\207" [find-lisp-debug-buffer message get-buffer-create "\n"] 2 (#$ . 1112)])
#@90 True if DIR is not a dot file, and not a symlink.
PARENT is the parent directory of DIR.
(defalias 'find-lisp-default-directory-predicate #[(dir parent) "\203\f\303\304\305	\n#!\210	\306\230\206	\307\230\206\310\311	\n\"!?\207" [find-lisp-debug dir parent find-lisp-debug-message format "Processing directory %s in %s" "." ".." file-symlink-p expand-file-name] 5 (#$ . 1330)])
#@80 True if FILE matches `find-lisp-regexp'.
DIR is the directory containing FILE.
(defalias 'find-lisp-default-file-predicate #[(file dir) "\203\f\304\305\306	\n#!\210\307\310	\n\"!?\205\311	\"\207" [find-lisp-debug file dir find-lisp-regexp find-lisp-debug-message format "Processing file %s in %s" file-directory-p expand-file-name string-match] 5 (#$ . 1719)])
#@77 True if FILE is a directory.
Argument DIR is the directory containing FILE.
(defalias 'find-lisp-file-predicate-is-directory #[(file dir) "\203\f\303\304\305	\n#!\210\306\307	\n\"!\205	\310\230\206	\311\230?\207" [find-lisp-debug file dir find-lisp-debug-message format "Processing file %s in %s" file-directory-p expand-file-name "." ".."] 5 (#$ . 2091)])
#@45 Find files in DIRECTORY which match REGEXP.
(defalias 'find-lisp-find-files #[(directory regexp) "\305\306\307\f\n#+\207" [regexp find-lisp-regexp directory-predicate file-predicate directory find-lisp-default-file-predicate find-lisp-default-directory-predicate find-lisp-find-files-internal] 4 (#$ . 2460)])
#@292 Find files under DIRECTORY which satisfy FILE-PREDICATE.
FILE-PREDICATE is a function which takes two arguments: the file and its
directory.

DIRECTORY-PREDICATE is used to decide whether to descend into directories.
It is a function which takes two arguments, the directory and its parent.
(defalias 'find-lisp-find-files-internal #[(directory file-predicate directory-predicate) "\306!\307\211\310\307\211\311$\307\211\203h\f@\312\"\313\312\"!\203`\314
!\203I\"\203I\315
#\n\203G\n	\244\210\202I	\"\203`\n\203]\n
C\244\210\202`
C)\fA\211\204*\n*\207" [directory sub-results results file --dolist-tail-- fullname file-name-as-directory nil directory-files t expand-file-name file-readable-p file-directory-p find-lisp-find-files-internal directory-predicate file-predicate] 6 (#$ . 2782)])
#@37 Find files in DIR, matching REGEXP.
(defalias 'find-lisp-find-dired #[(dir regexp) "\303\n\304\305\306$)\207" [regexp find-lisp-regexp dir find-lisp-find-dired-internal find-lisp-default-file-predicate find-lisp-default-directory-predicate "*Find Lisp Dired*"] 5 (#$ . 3619) "DFind files in directory: \nsMatching regexp: "])
#@33 Find all subdirectories of DIR.
(defalias 'find-lisp-find-dired-subdirectories #[(dir) "\301\302\303\304$\207" [dir find-lisp-find-dired-internal find-lisp-file-predicate-is-directory find-lisp-default-directory-predicate "*Find Lisp Dired Subdirectories*"] 5 (#$ . 3953) "DFind subdirectories of directory: "])
#@75 Run find (Lisp version) and go into Dired mode on a buffer of the output.
(defalias 'find-lisp-find-dired-internal #[(dir file-predicate directory-predicate buffer-name) "	\306\307!!\310!\204\311\312\"\210\304 \203!\f\304 \230\204'\313\314\f!!\210~\210\315 \210\316\317 \210!\320!\210\321\322\323 \324 \"!\210\325\326!\210\"\325\327!\210#\325\301!\210\n\325\330!\210\331\332\333!\203j\333 \210\202v\325\334!\210!\335 BC\336\"#\337$\210eb\210\340 *\207" [dired-buffers find-lisp-regexp regexp dir buffer-name buffer-read-only file-name-as-directory expand-file-name file-directory-p error "find-dired needs a directory: %s" switch-to-buffer get-buffer-create kill-all-local-variables nil erase-buffer dired-mode use-local-map append make-sparse-keymap current-local-map make-local-variable find-lisp-file-predicate find-lisp-directory-predicate revert-buffer-function #[(_ignore1 _ignore2) "\303	\n\304$\207" [default-directory find-lisp-file-predicate find-lisp-directory-predicate find-lisp-insert-directory ignore] 5] fboundp dired-simple-subdir-alist dired-subdir-alist point-min-marker find-lisp-insert-directory ignore dired-goto-next-file default-directory file-predicate directory-predicate] 5 (#$ . 4272)])
#@69 Insert the results of `find-lisp-find-files' in the current buffer.
(defalias 'find-lisp-insert-directory #[(dir file-predicate directory-predicate _sort-function) "\306\307	\n#G\310 \210\311\261\210\312\261\210\313\314\315\f\316\"\"\210eb\210\317 +\207" [dir file-predicate directory-predicate len files buffer-read-only nil find-lisp-find-files-internal erase-buffer ":\n" "\n" mapc #[(file) "\302	\303Op\"\207" [file len find-lisp-find-dired-insert-file nil] 4] sort string-lessp dired-goto-next-file find-lisp-line-indent] 5 (#$ . 5526)])
#@63 Change the filter on a find-lisp-find-dired buffer to REGEXP.
(defalias 'find-lisp-find-dired-filter #[(regexp) "\302 \207" [regexp find-lisp-regexp revert-buffer] 1 (#$ . 6088) "sSet filter to regexp: "])
(defalias 'find-lisp-find-dired-insert-file #[(file buffer) "q\210	\303\n\304\n\305\"\306C\307 $\261\207" [buffer find-lisp-line-indent file find-lisp-format file-attributes string "" current-time] 6])
(defalias 'find-lisp-format #[(file-name file-attr switches now) "@\306\n>\205\307\310\3118\"\312\n>\205\307\313\3148\315\245T\"\3168\307\317A@\3208\247\2035\321\3208!\2028\3208\322=\203B\323\202T\3248\247\203Q\321\3248!\202T\3248\3148%\325\n\f#\326
	;\203j\327	P\202k\330\331\260	)\207" [file-attr file-type switches system-type now file-name 105 format "%6d " 10 115 "%4d " 7 1024 8 " %3d %-8s %-8s %8d " 2 int-to-string ms-dos "root" 3 find-lisp-format-time " " " -> " "" "\n"] 10])
(defalias 'find-lisp-time-index #[(switches) "\301>\203\302\207\303>\203\304\207\305\207" [switches 99 6 117 4 5] 2])
(defalias 'find-lisp-format-time #[(file-attr switches now) "\306!	8\211@@Z\307\f\310\"\nA@A@Z\\\311\312\313
X\203H
X\203H\307\314\"S\fX\203H\f\307\314\"TX\203H\315\202I\316\n\"-\207" [switches file-attr time now diff16 diff find-lisp-time-index ash 16 -15552000 3600 format-time-string -16 "%b %e %H:%M" "%b %e  %Y" past-cutoff future-cutoff] 6])
(provide 'find-lisp)