ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/find-lisp.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 427))
#@35 Indentation for Dired file lines.
(defconst find-lisp-line-indent " " (#$ . 493))
#@42 Predicate for choosing to include files.
(defvar find-lisp-file-predicate nil (#$ . 582))
#@53 Predicate for choosing to descend into directories.
(defvar find-lisp-directory-predicate nil (#$ . 678))
#@35 Buffer for debugging information.
(defvar find-lisp-debug-buffer "*Find Lisp Debug*" (#$ . 790))
#@31 Whether debugging is enabled.
(defvar find-lisp-debug nil (#$ . 893))
#@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 (#$ . 969)])
#@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 (#$ . 1186)])
#@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 (#$ . 1575)])
#@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 (#$ . 1947)])
#@61 Find files under DIRECTORY, recursively, that 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 (#$ . 2316)])
#@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 (#$ . 2654)])
#@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 (#$ . 3491) "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 (#$ . 3825) "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 (#$ . 4144)])
#@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 (#$ . 5398)])
#@65 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 (#$ . 5960) "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])
#@181 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.
(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 (#$ . 6381)])
#@61 Return index into file-attributes according to ls SWITCHES.
(defalias 'find-lisp-time-index #[(switches) "\301>\203 \302\207\303>\203 \304\207\305\207" [switches 99 6 117 4 5] 2 (#$ . 7092)])
#@279 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.
(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 (#$ . 7295)])
(provide 'find-lisp)
Kontol Shell Bypass