Current File : //usr/local/share/emacs/27.2/lisp/find-lisp.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 (#$ . 425))
#@35 Indentation for Dired file lines.
(defconst find-lisp-line-indent " " (#$ . 491))
#@42 Predicate for choosing to include files.
(defvar find-lisp-file-predicate nil (#$ . 580))
#@53 Predicate for choosing to descend into directories.
(defvar find-lisp-directory-predicate nil (#$ . 676))
#@35 Buffer for debugging information.
(defvar find-lisp-debug-buffer "*Find Lisp Debug*" (#$ . 788))
#@31 Whether debugging is enabled.
(defvar find-lisp-debug nil (#$ . 891))
#@74 Print a debug message MESSAGE in `find-lisp-debug-buffer'.
(fn MESSAGE)
(defalias 'find-lisp-debug-message #[257 "\301!q\210db\210\211\302\261\207" [find-lisp-debug-buffer get-buffer-create "\n"] 3 (#$ . 967)])
#@107 True if DIR is not a dot file, and not a symlink.
PARENT is the parent directory of DIR.
(fn DIR PARENT)
(defalias 'find-lisp-default-directory-predicate #[514 "\203\f \301\302\303#!\210\304\230\206 \305\230\206 \306\307\"!?\207" [find-lisp-debug find-lisp-debug-message format "Processing directory %s in %s" "." ".." file-symlink-p expand-file-name] 7 (#$ . 1188)])
#@95 True if FILE matches `find-lisp-regexp'.
DIR is the directory containing FILE.
(fn FILE DIR)
(defalias 'find-lisp-default-file-predicate #[514 "\203\f \302\303\304#!\210\305\306\"!?\205 \307 \"\207" [find-lisp-debug find-lisp-regexp find-lisp-debug-message format "Processing file %s in %s" file-directory-p expand-file-name string-match] 7 (#$ . 1572)])
#@92 True if FILE is a directory.
Argument DIR is the directory containing FILE.
(fn FILE DIR)
(defalias 'find-lisp-file-predicate-is-directory #[514 "\203\f \301\302\303#!\210\304\305\"!\205 \306\230\206 \307\230?\207" [find-lisp-debug find-lisp-debug-message format "Processing file %s in %s" file-directory-p expand-file-name "." ".."] 7 (#$ . 1941)])
#@84 Find files under DIRECTORY, recursively, that match REGEXP.
(fn DIRECTORY REGEXP)
(defalias 'find-lisp-find-files #[514 "\301\302\303#)\207" [find-lisp-regexp find-lisp-default-file-predicate find-lisp-default-directory-predicate find-lisp-find-files-internal] 8 (#$ . 2307)])
#@343 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.
(fn DIRECTORY FILE-PREDICATE DIRECTORY-PREDICATE)
(defalias 'find-lisp-find-files-internal #[771 "\300!\262\301\211\302\301\211\303$\211\203h \211@\304\"\305\304\n\"!\203` \306!\203G \"\203G \307#\262\203D \244\210\202G \262 \"\203` \203\\ C\244\210\202` \211C\262\210A\266\202\202
\210\207" [file-name-as-directory nil directory-files t expand-file-name file-readable-p file-directory-p find-lisp-find-files-internal] 12 (#$ . 2597)])
#@54 Find files in DIR, matching REGEXP.
(fn DIR REGEXP)
(defalias 'find-lisp-find-dired #[514 "\211\301\302\303\304$)\207" [find-lisp-regexp find-lisp-find-dired-internal find-lisp-default-file-predicate find-lisp-default-directory-predicate "*Find Lisp Dired*"] 7 (#$ . 3366) "DFind files in directory: \nsMatching regexp: "])
#@43 Find all subdirectories of DIR.
(fn DIR)
(defalias 'find-lisp-find-dired-subdirectories #[257 "\300\301\302\303$\207" [find-lisp-find-dired-internal find-lisp-file-predicate-is-directory find-lisp-default-directory-predicate "*Find Lisp Dired Subdirectories*"] 6 (#$ . 3699) "DFind subdirectories of directory: "])
#@132 Run find (Lisp version) and go into Dired mode on a buffer of the output.
(fn DIR FILE-PREDICATE DIRECTORY-PREDICATE BUFFER-NAME)
(defalias 'find-lisp-find-dired-internal #[1028 " \306\307!!\262\310!\204 \311\312\"\210\313 \203% \313 \230\204+ \314\315!!\210~\210\316 \210\317\320 \210\321!\210\322\323\324 \325 \"!\210\326\304!\210\326\305!\210\326\301!\210\211\326\327!\210\330\331\332!\203j \332 \210\202u \326\333!\210 \334 BC\335\336$\210eb\210\337 )\207" [dired-buffers find-lisp-regexp buffer-read-only default-directory find-lisp-file-predicate find-lisp-directory-predicate file-name-as-directory expand-file-name file-directory-p error "find-dired needs a directory: %s" buffer-name 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 revert-buffer-function #[514 "\303 \n\304$\207" [default-directory find-lisp-file-predicate find-lisp-directory-predicate find-lisp-insert-directory ignore] 7 "\n\n(fn IGNORE1 IGNORE2)"] fboundp dired-simple-subdir-alist dired-subdir-alist point-min-marker find-lisp-insert-directory ignore dired-goto-next-file] 11 (#$ . 4023)])
#@128 Insert the results of `find-lisp-find-files' in the current buffer.
(fn DIR FILE-PREDICATE DIRECTORY-PREDICATE SORT-FUNCTION)
(defalias 'find-lisp-insert-directory #[1028 "\302\303#G\304 \210 \305\261\210 \306\261\210\307\310\311\312\313\314!\315\"\316\317%\320\321\"\"\210eb\210\322 )\207" [buffer-read-only find-lisp-line-indent nil find-lisp-find-files-internal erase-buffer ":\n" "\n" mapc make-byte-code 257 "\301\302\300\"p\"\207" vconcat vector [find-lisp-find-dired-insert-file substring] 5 "\n\n(fn FILE)" sort string-lessp dired-goto-next-file] 14 (#$ . 5254)])
#@78 Change the filter on a `find-lisp-find-dired' buffer to REGEXP.
(fn REGEXP)
(defalias 'find-lisp-find-dired-filter #[257 "\211\301 \207" [find-lisp-regexp revert-buffer] 2 (#$ . 5847) "sSet filter to regexp: "])
#@20
(fn FILE BUFFER)
(defalias 'find-lisp-find-dired-insert-file #[514 "\211q\210\301\302\303\"\304C\305 $\261\207" [find-lisp-line-indent find-lisp-format file-attributes string "" current-time] 8 (#$ . 6067)])
#@220 Format one line of long ls output for file FILE-NAME.
FILE-ATTR and FILE-SIZE give the file's attributes and size.
SWITCHES and TIME-INDEX give the full switch list and time data.
(fn FILE-NAME FILE-ATTR SWITCHES NOW)
(defalias 'find-lisp-format #[1028 "\211@\262\301>\205 \302\303\3048\262\"\305>\205' \302\306\3078\262\310\245T\"\3118\262\302\312\211A@\262 \3138\262\247\203M \314\n\3138\262!\202T \3138\262\315=\203^ \316\202| \n\3178\262\247\203u \314 \3178\262!\202| \n\3178\262 \3078\262%\320#\321\n;\203\234 \322P\202\235 \323\324\260 \207" [system-type 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"] 16 (#$ . 6288)])
#@76 Return index into file-attributes according to ls SWITCHES.
(fn SWITCHES)
(defalias 'find-lisp-time-index #[257 "\300>\203 \301\207\302>\203 \303\207\304\207" [99 6 117 4 5] 3 (#$ . 7062)])
#@308 Format time string for file.
This is done with attributes FILE-ATTR according to SWITCHES (a
list of ls option letters of which c and u are recognized). Use
the same method as "ls" to decide whether to show time-of-day or
year, depending on distance between file date and NOW.
(fn FILE-ATTR SWITCHES NOW)
(defalias 'find-lisp-format-time #[771 "\300!8\301\302\"\303\"\304\305\306X\203 X\203 \307\202 \310\"\207" [find-lisp-time-index time-convert time-subtract integer -15778476 3600 format-time-string "%b %e %H:%M" "%b %e %Y"] 10 (#$ . 7264)])
(provide 'find-lisp)
Mini Shell