Current File : //usr/local/share/emacs/27.2/lisp/filecache.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\304\306\307\310& \210\311\312\313\314\315DD\316\317\320\321\322&\210\311\323\313\314\324DD\325\321\326%\210\311\327\313\314\330DD\331\321\332%\210\311\333\313\314\334DD\335\321\326%\210\311\336\313\314\337DD\340\321\326%\210\311\341\313\314\342DD\343\321\326%\210\311\344\313\314\345DD\346\321\326%\210\311\347\313\314\350DD\351\321\352%\210\311\353\313\314\354DD\355\321\352%\210\311\356\313\314\357DD\360\321\352%\207" [custom-declare-group file-cache nil "Find files using a pre-loaded cache." :group files convenience :prefix "file-cache-" custom-declare-variable file-cache-filter-regexps funcall function #[0 "\300\301\302\303\304\305\306\307\310\311\312\257 \207" ["~$" "\\.o$" "\\.exe$" "\\.a$" "\\.elc$" ",v$" "\\.output$" "\\.$" "#$" "\\.class$" "/\\.#"] 11] "List of regular expressions used as filters by the file cache.\nFile names which match these expressions will not be added to the cache.\nNote that the functions `file-cache-add-file' and `file-cache-add-file-list'\ndo not use this variable." :version "25.1" :type (repeat regexp) file-cache-find-command #[0 "\300\207" [#1="find"] 1 #1#] "External program used by `file-cache-add-directory-using-find'." string file-cache-find-command-posix-flag #[0 "\300\207" [not-defined] 1] "Set to t, if `file-cache-find-command' handles wildcards POSIX style.\nThis variable is automatically set to nil or non-nil\nif it has the initial value `not-defined' whenever you first\ncall the `file-cache-add-directory-using-find'.\n\nUnder Windows operating system where Cygwin is available, this value\nshould be t." (choice (const :tag "Yes" t) (const :tag "No" nil) (const :tag "Unknown" not-defined)) file-cache-locate-command #[0 "\300\207" [#2="locate"] 1 #2#] "External program used by `file-cache-add-directory-using-locate'." file-cache-no-match-message #[0 "\300\207" [#3=" [File Cache: No match]"] 1 #3#] "Message to display when there is no completion." file-cache-sole-match-message #[0 "\300\207" [#4=" [File Cache: sole completion]"] 1 #4#] "Message to display when there is only one completion." file-cache-non-unique-message #[0 "\300\207" [#5=" [File Cache: complete but not unique]"] 1 #5#] "Message to display when there is a non-unique completion." file-cache-completion-ignore-case #[0 "\302>\203 \303\207 \207" [system-type completion-ignore-case (ms-dos windows-nt cygwin) t] 2] "If non-nil, file-cache completion should ignore case.\nDefaults to the value of `completion-ignore-case'." boolean file-cache-case-fold-search #[0 "\302>\203 \303\207 \207" [system-type case-fold-search (ms-dos windows-nt cygwin) t] 2] "If non-nil, file-cache completion should ignore case.\nDefaults to the value of `case-fold-search'." file-cache-ignore-case #[0 "\301>\207" [system-type (ms-dos windows-nt cygwin)] 2] "Non-nil means ignore case when checking completions in the file cache.\nDefaults to nil on DOS and Windows, and t on other systems."] 10)
(defvar file-cache-multiple-directory-message nil)
(byte-code "\300\301\302\303\304DD\305\306\307%\207" [custom-declare-variable file-cache-completions-buffer funcall function #[0 "\300\207" [#1="*Completions*"] 1 #1#] "Buffer to display completions when using the file cache." :type string] 6)
#@52 Regexp to match files in find and locate's output.
(defvar file-cache-buffer-default-regexp "^.+$" (#$ . 3664))
(defvar file-cache-last-completion nil)
#@247 Internal data structure to hold cache of file names.
It is a list of entries of the form (FILENAME DIRNAME1 DIRNAME2 ...)
where FILENAME is a file name component and the entry represents N
files of names DIRNAME1/FILENAME, DIRNAME2/FILENAME, ...
(defvar file-cache-alist nil (#$ . 3823))
#@43 Keymap for file cache completions buffer.
(defvar file-cache-completions-keymap (byte-code "\301 \302\"\210\303\304\305#\210\303\306\305#\210\211\207" [completion-list-mode-map make-sparse-keymap set-keymap-parent define-key [mouse-2] file-cache-choose-completion "
"] 5) (#$ . 4117))
#@23
(fn FILE OP-PROMPT)
(defalias 'file-cache--read-list #[514 "\203 \300\202 \301\203 \302\202 \303\304\305R\306\307R\310\311\2034 \311\211\310$B\262\312!\262\202 \211\237\207" [read-file-name read-directory-name "file" "directory" " " ": " " another " "?" t nil y-or-n-p] 13 (#$ . 4412)])
#@184 Add all files in DIRECTORY to the file cache.
If called from Lisp with a non-nil REGEXP argument is non-nil,
only add files whose names match REGEXP.
(fn DIRECTORY &optional REGEXP)
(defalias 'file-cache-add-directory #[513 "\301!\205N \302!\303\304#\211\211\203H \211@\305!\203$ \306\"\262\202A \211\203@ \211@\307\"\2039 \306\"\262A\266\202\202% \210A\266\202\202 \210\310!\266\202\207" [file-cache-filter-regexps file-accessible-directory-p expand-file-name directory-files t file-directory-p delq string-match file-cache-add-file-list] 11 (#$ . 4726) (byte-code "\300\301\302\211\303$\302D\207" [read-directory-name "Add files from directory: " nil t] 5)])
#@358 Add DIRECTORIES (a list of directory names) to the file cache.
If called interactively, read the directory names one by one.
If the optional REGEXP argument is non-nil, only files which match it
will be added to the cache. Note that the REGEXP is applied to the
files in each directory, not to the directory list itself.
(fn DIRECTORIES &optional REGEXP)
(defalias 'file-cache-add-directory-list #[513 "\211\203 \211@\300\"\210A\266\202\202 \210G\301\302\211\303U\203# \304\202$ \305#\207" [file-cache-add-directory message "Filecache: cached file names from %d director%s." 1 "y" "ies"] 8 (#$ . 5414) (byte-code "\300\301\302\"C\207" [file-cache--read-list nil "Add"] 3)])
#@122 Add FILES (a list of file names) to the file cache.
If called interactively, read the file names one by one.
(fn FILES)
(defalias 'file-cache-add-file-list #[257 "\211\211\203 \211@\300!\210A\266\202\202 \210\211G\301\302\211\303U\203\" \304\202# \305#\207" [file-cache-add-file message "Filecache: cached %d file name%s." 1 "" "s"] 7 (#$ . 6105) (byte-code "\300\301\302\"C\207" [file-cache--read-list t "Add"] 3)])
#@40 Add FILE to the file cache.
(fn FILE)
(defalias 'file-cache-add-file #[257 "\302!\262\303!\204 \304\305\"\210\306!\307!\310 #\211\2042 DB\311\312!\205W \313\314\"\202W A\235\204M \211AB\241\210\311\312!\205W \313\314\"\202W \311\312!\205W \313\315\"\207" [file-cache-alist file-cache-ignore-case file-truename file-exists-p error "Filecache: file %s does not exist" file-name-nondirectory file-name-directory assoc-string called-interactively-p interactive message "Filecache: cached file name %s." "Filecache: %s is already cached."] 7 (#$ . 6534) "fAdd File: "])
#@98 Use the `find' command to add files to the file cache.
Find is run in DIRECTORY.
(fn DIRECTORY)
(defalias 'file-cache-add-directory-using-find #[257 "\303!\304>\203 \305=\203 \306\n!\307\310!r\211q\210\311\312\313\314\315!\316\"\317$\216\320\n\321\322\321\323\324>\203@ \203< \325\202A \326\202A \327\330&\210\331 *\262\207" [system-type file-cache-find-command-posix-flag file-cache-find-command expand-file-name (windows-nt cygwin) not-defined executable-command-find-posix-p generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 call-process nil t "-name" (windows-nt cygwin) "\\*" "'*'" "*" "-print" file-cache--add-from-buffer] 12 (#$ . 7126) "DAdd files under directory: "])
#@126 Use the `locate' command to add files to the file cache.
STRING is passed as an argument to the locate command.
(fn STRING)
(defalias 'file-cache-add-directory-using-locate #[257 "\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313\314\313%\210\315 *\207" [file-cache-locate-command generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 call-process nil t file-cache--add-from-buffer] 8 (#$ . 7895) "sAdd files using locate string: "])
(autoload 'find-lisp-find-files "find-lisp")
#@325 Add DIR and any subdirectories to the file-cache.
This function does not use any external programs.
If the optional REGEXP argument is non-nil, only files which match it
will be added to the cache. Note that the REGEXP is applied to the
files in each directory, not to the directory list itself.
(fn DIR &optional REGEXP)
(defalias 'file-cache-add-directory-recursively #[513 "\300\301\302\206 \303\"\"\207" [mapcar #[257 "\301!\206) \302\211\203 \211@\303\"\203 \304\262A\266\202\202 \210\211\262\206) \305!\207" [file-cache-filter-regexps file-directory-p nil string-match t file-cache-add-file] 7 "\n\n(fn FILE)"] find-lisp-find-files "^"] 7 (#$ . 8467) "DAdd directory: "])
#@156 Add any entries found in the current buffer.
Each entry matches the regular expression `file-cache-buffer-default-regexp'
or the optional REGEXP argument.
(defalias 'file-cache--add-from-buffer #[0 "\211\203 \211@eb\210\302!\210A\266\202\202 \210eb\210\303 \304\305#\205* \306\307\310!!\210\202 \207" [file-cache-filter-regexps file-cache-buffer-default-regexp delete-matching-lines re-search-forward nil t file-cache-add-file match-string-no-properties 0] 4 (#$ . 9168)])
#@23 Clear the file cache.
(defalias 'file-cache-clear-cache #[0 "\301\211\207" [file-cache-alist nil] 2 (#$ . 9653) nil])
#@133 Delete FILE (a relative file name) from the file cache.
Return nil if FILE was not in the file cache, non-nil otherwise.
(fn FILE)
(defalias 'file-cache-delete-file #[257 "\302 #\303\"\211\207" [file-cache-alist file-cache-ignore-case assoc-string delq] 5 (#$ . 9779) (byte-code "\301\302\"C\207" [file-cache-alist completing-read "Delete file from cache: "] 3)])
#@251 Delete FILES (a list of files) from the file cache.
If called interactively, read the file names one by one.
If MESSAGE is non-nil, or if called interactively, print a
message reporting the number of file names deleted.
(fn FILES &optional MESSAGE)
(defalias 'file-cache-delete-file-list #[513 "\300\211\203 \211@\301!\203 T\262A\266\202\202 \210\205- \302\303\211\304U\203+ \305\202, \306#\207" [0 file-cache-delete-file message "Filecache: uncached %d file name%s." 1 "" "s"] 8 (#$ . 10157) (byte-code "\300\301\302\"\301D\207" [file-cache--read-list t "Uncache"] 3)])
#@64 Delete files matching REGEXP from the file cache.
(fn REGEXP)
(defalias 'file-cache-delete-file-regexp #[257 "\301\211\203 \211@\302@\"\203 \211@B\262A\266\202\202 \210\303!\207" [file-cache-alist nil string-match file-cache-delete-file-list] 7 (#$ . 10745) "sRegexp: "])
#@55 Delete DIRECTORY from the file cache.
(fn DIRECTORY)
(defalias 'file-cache-delete-directory #[257 "\301!\302\211\203 \211@\303\"\203 T\262A\266\202\202 \210\304\305\211\306U\203+ \307\202, \310#\207" [file-cache-alist expand-file-name 0 file-cache-do-delete-directory message "Filecache: uncached %d file name%s." 1 "" "s"] 8 (#$ . 11034) "DDelete directory from file cache: "])
#@18
(fn DIR ENTRY)
(defalias 'file-cache-do-delete-directory #[514 "\211A\301!\211\235\205! G\302\232\203 \303\"\211\202! \304\"\241\207" [file-cache-alist file-cache-canonical-directory 1 delq delete] 8 (#$ . 11431)])
#@149 Delete DIRECTORIES (a list of directory names) from the file cache.
If called interactively, read the directory names one by one.
(fn DIRECTORIES)
(defalias 'file-cache-delete-directory-list #[257 "\211\211\205 \211@\300!\210A\266\202\202 \207" [file-cache-delete-directory] 5 (#$ . 11665) (byte-code "\300\301\302\"C\207" [file-cache--read-list nil "Uncache"] 3)])
#@13
(fn FILE)
(defalias 'file-cache-directory-name #[257 "\303 #A\211G\304\211<\204 \305\306\"\210\307\267\202, \310\234\262\202W \305\311\"\210\202W \312\313 !\211\235\211\203M GZT\211\262\234\206S \310\211\262\234\202S \310\211\262\234\262\266\211\205a \314\315T#\207" [file-cache-alist file-cache-ignore-case file-cache-multiple-directory-message assoc-string nil error "Filecache: unknown type in file-cache-alist for key %s" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (1 27 0 35)) 0 "Filecache: no directory found for key %s" file-name-directory minibuffer-contents format " [%d of %d]"] 10 (#$ . 12042)])
#@13
(fn FILE)
(defalias 'file-cache-file-name #[257 "\300!\211P\207" [file-cache-directory-name] 4 (#$ . 12725)])
#@12
(fn DIR)
(defalias 'file-cache-canonical-directory #[257 "\211\300\301\302\303\304\"!\"\204 \211\305P\202 \211\207" [char-equal 47 string-to-char substring -1 "/"] 8 (#$ . 12845)])
#@371 Complete a filename in the minibuffer using a preloaded cache.
Filecache does two kinds of substitution: it completes on names in
the cache, and, once it has found a unique name, it cycles through
the directories that the name is available in. With a prefix argument,
the name is considered already unique; only the second substitution
(directories) is done.
(fn ARG)
(defalias 'file-cache-minibuffer-complete #[257 "\n\306\307 !\310\f\311\312$\204 \211\313=\203< \314!\211\307 \230\203( \315
!\2027 \316 \210\211c\210\2057 \315!\262\202\211:\203\211@A\230\203~ \317\f #\203~ =\203r \230\203r \316 \210\314!c\210\311\211 \202 \315 !\210\211 \202 \320\f\311$\321!A\211\203\225 \321!\311\241\210G\322V\203\346 dGZd|\210\212c\210)u\210!r\323\"!q\210p\324 \210!\311\211#$\313\211%\313 & '\325 \210\326\327!\210+\211 (\330!\210\331 \332!\210)\266\202\202\314!\211\307 \230\203\366 \315
!\202\316 \210\211c\210\205\315!\262\266\202\266\202\202\211\311=\205\315)!*\207" [file-cache-completion-ignore-case completion-ignore-case file-cache-case-fold-search case-fold-search file-cache-alist file-cache-sole-match-message file-name-nondirectory minibuffer-contents completion-try-completion nil 0 t file-cache-file-name minibuffer-message delete-minibuffer-contents assoc-string completion-all-completions last 1 get-buffer-create kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook display-completion-list file-cache-completion-setup-function internal-temp-output-buffer-show file-cache-multiple-directory-message file-cache-ignore-case last-command this-command file-cache-last-completion file-cache-non-unique-message default-directory file-cache-completions-buffer buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only standard-output file-cache-no-match-message] 13 (#$ . 13038) "P"])
(defalias 'file-cache-completion-setup-function #[0 "rq\210\302 !)\207" [standard-output file-cache-completions-keymap use-local-map] 2])
#@74 Choose a completion in the `*Completions*' buffer.
(fn &optional EVENT)
(defalias 'file-cache-choose-completion #[256 "\301\302!\210\303\304 !\210\305\306!)\207" [completion-no-auto-exit t choose-completion select-window active-minibuffer-window file-cache-minibuffer-complete nil] 3 (#$ . 15100) (list last-nonmenu-event)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias file-cache-mouse-choose-completion file-cache-choose-completion nil make-obsolete "23.2"] 4)
#@50 Complete the word at point, using the filecache.
(defalias 'file-cache-complete #[0 "\212\301\302!\210`)\303`#\207" [file-cache-alist skip-syntax-backward "^\"" completion-in-region] 5 (#$ . 15593) nil])
#@91 Output a list of files whose names (not including directories)
match REGEXP.
(fn REGEXP)
(defalias 'file-cache-files-matching-internal #[257 "\301\211\203 \211@\302\303\234\"\203 \211\303\234B\262A\266\202\202 \210\211\237\207" [file-cache-alist nil string-match 0] 8 (#$ . 15805)])
#@91 Output a list of files whose names (not including directories)
match REGEXP.
(fn REGEXP)
(defalias 'file-cache-files-matching #[257 "\300!\301\302\303!\211\262q\210\304 \210\305\306\307#c\210eb\210\310!\207" [file-cache-files-matching-internal nil get-buffer-create "*File Cache Files Matching*" erase-buffer mapconcat identity "\n" display-buffer] 7 (#$ . 16104) "sFind files matching regexp: "])
#@32 Debugging function.
(fn FILE)
(defalias 'file-cache-debug-read-from-minibuffer #[257 "\302\303\304 #\"\207" [file-cache-alist file-cache-ignore-case message "%s" assoc-string] 7 (#$ . 16513) (byte-code "\301\302\"C\207" [file-cache-alist completing-read "File Cache: "] 3)])
#@25 Display the file cache.
(defalias 'file-cache-display #[0 "\301r\302!q\210\303 \210\211\203! \211@\211A@@\304\261\210A\266\202\202 \210\305!)\207" [file-cache-alist "*File Cache Contents*" get-buffer-create erase-buffer "\n" pop-to-buffer] 6 (#$ . 16798) nil])
(provide 'filecache)
Mini Shell