ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/filecache.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\304\306\307\310& \210\311\312\313\314\315\316\317\320\304\301& \210\311\321\322\323\317\324\304\301&\210\311\325\326\327\317\330\304\301&\210\311\331\332\333\317\324\304\301&\210\311\334\335\336\317\324\304\301&\210\311\337\340\341\317\324\304\301&\210\311\342\343\344\317\324\304\301&\210\311\345\346\347\317\350\304\301&\210\311\351\352\353\317\350\304\301&\210\311\354\355\356\317\350\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." :version "25.1" :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 (#$ . 3623))
#@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) (#$ . 3917))
(defalias 'file-cache--read-list #[(file op-prompt) "\203 \306\202 \307\203 \310\202 \311 \312\n\313R \314\n\315R \316 \317 \203? \f\317\211\316$B\320
!\211\204+ \237.\207" [file fun type op-prompt prompt-1 prompt-2 read-file-name read-directory-name "file" "directory" " " ": " " another " "?" t nil y-or-n-p continue result] 6])
#@151 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.
(defalias 'file-cache-add-directory #[(directory &optional regexp) "\306!\205U \307!\310 \311\n#\211\312 \211 \203P
@\313\f!\203) \314\f \"\202I \312\211 \203H
@\315\n\f\"\203A \314\f \"
A\211\2042 *
A\211\204 *\316 !*\207" [directory dir regexp dir-files file --dolist-tail-- file-accessible-directory-p expand-file-name directory-files t nil file-directory-p delq string-match file-cache-add-file-list file-cache-filter-regexps] 5 (#$ . 4570) (list (read-directory-name "Add files from directory: " nil nil t) nil)])
#@323 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.
(defalias 'file-cache-add-directory-list #[(directories &optional regexp) "\305\211\203 \n@\306 \"\210\nA\211\204 *G \307\310\f\211\311U\203( \312\202) \313#)\207" [directories dir --dolist-tail-- regexp n nil file-cache-add-directory message "Filecache: cached file names from %d director%s." 1 "y" "ies"] 6 (#$ . 5262) (list (file-cache--read-list nil "Add"))])
#@110 Add FILES (a list of file names) to the file cache.
If called interactively, read the file names one by one.
(defalias 'file-cache-add-file-list #[(files) "\304\211\203 \n@\305 !\210\nA\211\204 *G\306\307 \211\310U\203' \311\202( \312#)\207" [files f --dolist-tail-- n nil file-cache-add-file message "Filecache: cached %d file name%s." 1 "" "s"] 6 (#$ . 5964) (list (file-cache--read-list t "Add"))])
#@29 Add FILE to the file cache.
(defalias 'file-cache-add-file #[(file) "\306!\307!\204 \310\311\"\210\312!\313!\314 \f#\211 \2044 \nD B\315\316!\205Y \317\320\"\202Y \n
A\235\204O
\n
AB\241\210\315\316!\205Y \317\320\"\202Y \315\316!\205Y \317\321\"+\207" [file file-name dir-name file-cache-alist file-cache-ignore-case the-entry 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."] 5 (#$ . 6381) "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 (#$ . 7000) "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 (#$ . 7684) "sAdd files using locate string: "])
(autoload 'find-lisp-find-files "find-lisp")
#@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\304 \206 \305\"\"\207" [dir regexp 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 (#$ . 8167) "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 (#$ . 8887)])
#@23 Clear the file cache.
(defalias 'file-cache-clear-cache #[nil "\301\211\207" [file-cache-alist nil] 2 (#$ . 9498) nil])
#@122 Delete FILE (a relative file name) from the file cache.
Return nil if FILE was not in the file cache, non-nil otherwise.
(defalias 'file-cache-delete-file #[(file) "\304 \n#\305 \" )\207" [file file-cache-alist file-cache-ignore-case elt assoc-string delq] 4 (#$ . 9626) (list (completing-read "Delete file from cache: " file-cache-alist))])
#@221 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.
(defalias 'file-cache-delete-file-list #[(files &optional message) "\305 \306\211\203 @\307\n!\203 T A\211\204\n *\f\2051 \304\310\211\311U\203/ \312\2020 \313#)\207" [n files f --dolist-tail-- message 0 nil file-cache-delete-file "Filecache: uncached %d file name%s." 1 "" "s"] 6 (#$ . 9979) (list (file-cache--read-list t "Uncache") t)])
#@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!)\207" [delete-list file-cache-alist elt --dolist-tail-- regexp nil string-match file-cache-delete-file-list] 4 (#$ . 10556) "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\313 \211\314U\2030 \315\2021 \316#*\207" [directory n dir file-cache-alist entry --dolist-tail-- expand-file-name 0 nil file-cache-do-delete-directory message "Filecache: uncached %d file name%s." 1 "" "s"] 6 (#$ . 10873) "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])
#@131 Delete DIRECTORIES (a list of directory names) from the file cache.
If called interactively, read the directory names one by one.
(defalias 'file-cache-delete-directory-list #[(directories) "\303\211\205 \n@\304 !\210\nA\211\204 \303*\207" [directories d --dolist-tail-- nil file-cache-delete-directory] 3 (#$ . 11545) (list (file-cache--read-list nil "Uncache"))])
(defalias 'file-cache-directory-name #[(file) "\306 \n#A\211G \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 \fGZT\211\234\206` \313\211\234\202` \313\211\234*\205n \317\320T\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!\211P)\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\362 db\210\fG\311Oc\210\321'\322C\" '( )r\323*!q\210p\324 \210)(\311\211+,\312\211-\312 . /\325 \210\326\327!\210+\211 0 1\330\331 \fG\"!\3320!\210,\202$\313!\211 \307 \230\203\314 !\202$\315 \210 c\210!\205$\314!!\202$\311=\205$\3142!.\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 completion-hilit-commonality 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 (#$ . 12820) "P"])
(defalias 'file-cache-completion-setup-function #[nil "rq\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 (#$ . 14965) (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 (#$ . 15456) 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\234B A\211\204\n *\237)\207" [results file-cache-alist cache-element --dolist-tail-- regexp nil string-match 0] 5 (#$ . 15678)])
#@78 Output a list of files whose names (not including directories)
match REGEXP.
(defalias 'file-cache-files-matching #[(regexp) "\303!\304\305\306!\211q\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 (#$ . 16008) "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 (#$ . 16428) (list (completing-read "File Cache: " file-cache-alist))])
#@25 Display the file cache.
(defalias 'file-cache-display #[nil "\304r\305!q\210\306 \210 \307\211\203& @\211A@\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 (#$ . 16685) nil])
(provide 'filecache)
Kontol Shell Bypass