| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/find-lisp.elc |
;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)