WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp
Viewing File: /usr/share/emacs/24.3/lisp/filecache.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:48:11 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/filecache.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.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\300\301\302\303\304\305\304\306\307\310&	\210\311\312\313\314\315\316\304\301&\210\311\317\320\321\315\322\304\301&\210\311\323\324\325\315\326\304\301&\210\311\327\330\331\315\322\304\301&\210\311\332\333\334\315\322\304\301&\210\311\335\336\337\315\322\304\301&\210\311\340\341\342\315\322\304\301&\210\311\343\344\345\315\346\304\301&\210\311\347\350\351\315\346\304\301&\210\311\352\353\354\315\346\304\301&\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 (list "~$" "\\.o$" "\\.exe$" "\\.a$" "\\.elc$" ",v$" "\\.output$" "\\.$" "#$" "\\.class$") "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." :type (repeat regexp) file-cache-find-command "find" "External program used by `file-cache-add-directory-using-find'." string file-cache-find-command-posix-flag 'not-defined "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 "locate" "External program used by `file-cache-add-directory-using-locate'." file-cache-no-match-message " [File Cache: No match]" "Message to display when there is no completion." file-cache-sole-match-message " [File Cache: sole completion]" "Message to display when there is only one completion." file-cache-non-unique-message " [File Cache: complete but not unique]" "Message to display when there is a non-unique completion." file-cache-completion-ignore-case (if (memq system-type '(ms-dos windows-nt cygwin)) t completion-ignore-case) "If non-nil, file-cache completion should ignore case.\nDefaults to the value of `completion-ignore-case'." boolean file-cache-case-fold-search (if (memq system-type '(ms-dos windows-nt cygwin)) t case-fold-search) "If non-nil, file-cache completion should ignore case.\nDefaults to the value of `case-fold-search'." file-cache-ignore-case (memq system-type '(ms-dos windows-nt cygwin)) "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\304\305\306\307&\210\300\310\311\312\304\305\306\307&\210\300\313\314\315\304\316\306\307&\207" [custom-declare-variable file-cache-completions-buffer "*Completions*" "Buffer to display completions when using the file cache." :type string :group file-cache file-cache-buffer "*File Cache*" "Buffer to hold the cache of file names." file-cache-buffer-default-regexp "^.+$" "Regexp to match files in `file-cache-buffer'." regexp] 8)
(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 (#$ . 3733))
#@43 Keymap for file cache completions buffer.
(defvar file-cache-completions-keymap (byte-code "\302 \303	\"\210\304\305\306#\210\304\307\306#\210)\207" [map completion-list-mode-map make-sparse-keymap set-keymap-parent define-key [mouse-2] file-cache-choose-completion "
"] 4) (#$ . 4027))
#@132 Add DIRECTORY to the file cache.
If the optional REGEXP argument is non-nil, only files which match it will
be added to the cache.
(defalias 'file-cache-add-directory #[(directory &optional regexp) "\306!\204\307\310\"\207\311!\312	\313\n#\211\314\211\203U
@\315\f!\203.\316\f\"\202N\314\211\203M
@\317\n\f\"\203F\316\f\"
A\211\2047*
A\211\204*\320!*\207" [directory dir regexp dir-files file --dolist-tail-- file-accessible-directory-p message "Directory %s does not exist" expand-file-name directory-files t nil file-directory-p delq string-match file-cache-add-file-list file-cache-filter-regexps] 5 (#$ . 4326) "DAdd files from directory: "])
#@264 Add DIRECTORY-LIST (a list of directory names) to the file cache.
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.
(defalias 'file-cache-add-directory-list #[(directory-list &optional regexp) "\301\302\"\207" [directory-list mapcar #[(dir) "\302	\"\207" [dir regexp file-cache-add-directory] 3]] 3 (#$ . 5010) "XAdd files from directory list: "])
#@169 Add FILE-LIST (a list of file names) to the file cache.
Interactively, FILE-LIST is read as a Lisp expression, which
should evaluate to the desired list of file names.
(defalias 'file-cache-add-file-list #[(file-list) "\301\302\"\207" [file-list mapcar file-cache-add-file] 3 (#$ . 5514) "XFile List: "])
#@29 Add FILE to the file cache.
(defalias 'file-cache-add-file #[(file) "\306!\204\307\310\"\207\311!\312!\313	\f#\211\203A
A;\203*\n
A\230\2064
A<\2054\n
A\235?\205H
\n
AB\241\202H	\nDB\211+\207" [file file-name dir-name file-cache-alist file-cache-ignore-case the-entry file-exists-p message "Filecache: file %s does not exist" file-name-nondirectory file-name-directory assoc-string] 5 (#$ . 5826) "fAdd File: "])
#@82 Use the `find' command to add files to the file cache.
Find is run in DIRECTORY.
(defalias 'file-cache-add-directory-using-find #[(directory) "\306!\n\307>\203\310=\203\311\f!\312
!q\210\313 \210\314\f\315\316
!\315	\317\n\320>\2037\2033\321\2028\322\2028\323\324&\210\325 )\207" [directory dir system-type file-cache-find-command-posix-flag file-cache-find-command file-cache-buffer expand-file-name (windows-nt cygwin) not-defined executable-command-find-posix-p get-buffer-create erase-buffer call-process nil get-buffer "-name" (windows-nt cygwin) "\\*" "'*'" "*" "-print" file-cache-add-from-file-cache-buffer] 9 (#$ . 6263) "DAdd files under directory: "])
#@113 Use the `locate' command to add files to the file cache.
STRING is passed as an argument to the locate command.
(defalias 'file-cache-add-directory-using-locate #[(string) "\303!q\210\304 \210\305	\306\307!\306\n%\210\310 \207" [file-cache-buffer file-cache-locate-command string get-buffer-create erase-buffer call-process nil get-buffer file-cache-add-from-file-cache-buffer] 6 (#$ . 6947) "sAdd files using locate string: "])
#@299 Adds 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.
(defalias 'file-cache-add-directory-recursively #[(dir &optional regexp) "\302\303!\210\304\305\306	\203	\202\307\"\"\207" [dir regexp require find-lisp mapcar #[(file) "\305!\206,\306\n\306\211\203#\f@\307\"\203\310\fA\211\204*	)\206,\311!\207" [file filtered file-cache-filter-regexps regexp --dolist-tail-- file-directory-p nil string-match t file-cache-add-file] 4] find-lisp-find-files "^"] 5 (#$ . 7385) "DAdd directory: "])
#@159 Add any entries found in the file cache buffer.
Each entry matches the regular expression `file-cache-buffer-default-regexp'
or the optional REGEXP argument.
(defalias 'file-cache-add-from-file-cache-buffer #[(&optional regexp) "q\210	\306\211\203@eb\210\307\n!\210A\211\204*eb\210\306\310
\206)
d\311#\205=\312\313\224\313\225\"\314\f!\210\202\")\207" [file-cache-buffer file-cache-filter-regexps elt --dolist-tail-- full-filename regexp nil delete-matching-lines re-search-forward t buffer-substring-no-properties 0 file-cache-add-file file-cache-buffer-default-regexp] 5 (#$ . 8143)])
#@23 Clear the file cache.
(defalias 'file-cache-clear-cache #[nil "\301\211\207" [file-cache-alist nil] 2 (#$ . 8754) nil])
#@34 Delete FILE from the file cache.
(defalias 'file-cache-delete-file #[(file) "\303\304	\n#	\"\211\207" [file file-cache-alist file-cache-ignore-case delq assoc-string] 5 (#$ . 8881) (list (completing-read "Delete file from cache: " file-cache-alist))])
#@57 Delete FILE-LIST (a list of files) from the file cache.
(defalias 'file-cache-delete-file-list #[(file-list) "\301\302\"\207" [file-list mapcar file-cache-delete-file] 3 (#$ . 9141) "XFile List: "])
#@51 Delete files matching REGEXP from the file cache.
(defalias 'file-cache-delete-file-regexp #[(regexp) "\305	\305\211\203!@\306\f\n@\"\203\n@BA\211\204\n*\307!\210\310\311G\")\207" [delete-list file-cache-alist elt --dolist-tail-- regexp nil string-match file-cache-delete-file-list message "Filecache: deleted %d files from file cache"] 4 (#$ . 9347) "sRegexp: "])
#@39 Delete DIRECTORY from the file cache.
(defalias 'file-cache-delete-directory #[(directory) "\306!\307\310\211\203\"
@\311\n\f\"\203	T
A\211\204*\312	!\2030\313\314\"\2024\315\316	\"*\207" [directory result dir file-cache-alist entry --dolist-tail-- expand-file-name 0 nil file-cache-do-delete-directory zerop error "Filecache: no entries containing %s found in cache" message "Filecache: deleted %d entries"] 4 (#$ . 9733) "DDelete directory from file cache: "])
(defalias 'file-cache-do-delete-directory #[(dir entry) "A\305	!\n\235\205#G\306\232\203\307\f\"\211\202#\310\n\"\241*\207" [entry dir directory directory-list file-cache-alist file-cache-canonical-directory 1 delq delete] 4])
#@68 Delete DIRECTORY-LIST (a list of directories) from the file cache.
(defalias 'file-cache-delete-directory-list #[(directory-list) "\301\302\"\207" [directory-list mapcar file-cache-delete-directory] 3 (#$ . 10459) "XDirectory List: "])
(defalias 'file-cache-directory-name #[(file) "\306	\n#A\211G\307\211<\204\310\311\"\210\f\312=\203&\313\234\202b\f\313=\2034\310\314\"\210\202b\315\316 !\211\235\211\203Z\fGZT\211\234\206`\313\211\234\202`\313\211\234*\205n\317\320T\f#
,\207" [file file-cache-alist file-cache-ignore-case directory-list len directory assoc-string nil error "Filecache: unknown type in file-cache-alist for key %s" 1 0 "Filecache: no directory found for key %s" file-name-directory minibuffer-contents format " [%d of %d]" num minibuffer-dir dir-list file-cache-multiple-directory-message] 5])
(defalias 'file-cache-file-name #[(file) "\302!\211P)\207" [file directory file-cache-directory-name] 3])
(defalias 'file-cache-canonical-directory #[(dir) "\302\303\304	\305\306O!\"\204	\307P\202	)\207" [dir directory char-equal 47 string-to-char -1 nil "/"] 6])
#@361 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.
(defalias 'file-cache-minibuffer-complete #[(arg) "\n\306\307 !\310\f
\"\311\211\311\204$\312=\203J\313\f!\211\307 \230\2037\314!\202!\315 \210c\210 \205!\314 !\202!;\203\f\230\203\214\316\f
!#\203\214\"#=\203\200$\230\203\200\315 \210\313!c\210\311\211$\202!\314%!\210\f\211$\202!\f$\317\f
\"\211G\211\320V\203\357db\210\fG\311Oc\210\321&\322C\"&'(r\323)!q\210p\324 \210('\311\211*+\312\211,\312-.\325 \210\326\327!\210+\211/0\330\f\"\331/!\210,\202!\313!\211\307 \230\203\314!\202!\315 \210c\210 \205!\314 !\202!\311=\205!\3141!.\207" [file-cache-completion-ignore-case completion-ignore-case file-cache-case-fold-search case-fold-search string file-cache-alist file-name-nondirectory minibuffer-contents try-completion nil t file-cache-file-name minibuffer-message delete-minibuffer-contents assoc-string all-completions 1 append file-cache-completion-setup-function get-buffer-create kill-all-local-variables erase-buffer run-hooks temp-buffer-setup-hook display-completion-list internal-temp-output-buffer-show completion-string completion-list len file-cache-string arg file-cache-sole-match-message file-cache-multiple-directory-message file-cache-ignore-case last-command this-command file-cache-last-completion file-cache-non-unique-message completion-setup-hook default-directory #1=#:old-dir file-cache-completions-buffer buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks inhibit-read-only #2=#:buf standard-output file-cache-no-match-message] 5 (#$ . 11598) "P"])
(defalias 'file-cache-completion-setup-function #[nil "rq\210\302	!)\207" [standard-output file-cache-completions-keymap use-local-map] 2])
#@52 Choose a completion in the `*Completions*' buffer.
(defalias 'file-cache-choose-completion #[(&optional event) "\302\303	!\210\304\305 !\210\306\307!)\207" [completion-no-auto-exit event t choose-completion select-window active-minibuffer-window file-cache-minibuffer-complete nil] 2 (#$ . 13708) (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 #[nil "\212\302\303!\210`)\304`	#)\207" [start file-cache-alist skip-syntax-backward "^\"" completion-in-region] 4 (#$ . 14199) nil])
#@78 Output a list of files whose names (not including directories)
match REGEXP.
(defalias 'file-cache-files-matching-internal #[(regexp) "\305	\305\211\203#@\306\f\n\307\234\"\203\n\307\234BA\211\204\n*\237)\207" [results file-cache-alist cache-element --dolist-tail-- regexp nil string-match 0] 5 (#$ . 14421)])
#@78 Output a list of files whose names (not including directories)
match REGEXP.
(defalias 'file-cache-files-matching #[(regexp) "\303!\304\305\306!\211q\210\307 \210\310\311\n\312#c\210eb\210\313	!*\207" [regexp buf results file-cache-files-matching-internal nil get-buffer-create "*File Cache Files Matching*" erase-buffer mapconcat identity "\n" display-buffer] 4 (#$ . 14751) "sFind files matching regexp: "])
#@21 Debugging function.
(defalias 'file-cache-debug-read-from-minibuffer #[(file) "\303\304\305	\n#\"\207" [file file-cache-alist file-cache-ignore-case message "%s" assoc-string] 6 (#$ . 15171) (list (completing-read "File Cache: " file-cache-alist))])
#@25 Display the file cache.
(defalias 'file-cache-display #[nil "\304r\305!q\210\306 \210	\307\211\203&@\211A@\n@\310\261\210A\211\204*\311!*\207" [buf file-cache-alist item --dolist-tail-- "*File Cache Contents*" get-buffer-create erase-buffer nil "\n" pop-to-buffer] 4 (#$ . 15428) nil])
(provide 'filecache)
F1l3 Manager
