Current File : //proc/thread-self/root/kunden/usr/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\210
A\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\304
8\262
\"\305>\205'\302\306\307
8\262
\310\245T\"\311
8\262
\302\312\211A@\262
	\313
8\262
\247\203M\314\n\313
8\262
!\202T	\313
8\262
\315=\203^\316\202|\n\317
8\262
\247\203u\314\317
8\262
!\202|\n\317
8\262
\307
8\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\203X\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)