| 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/locate.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:24 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/locate.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)
(defvar locate-current-filter nil)
(defvar locate-local-filter nil)
(defvar locate-local-search nil)
(defvar locate-local-prompt nil)
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314\315\306\301&\210\310\316\302\317\314\320\306\301&\207" [custom-declare-group locate nil "Interface to the locate command." :prefix "locate-" :group external custom-declare-variable locate-command "locate" "Executable program for searching a database of files.\nThe Emacs commands `locate' and `locate-with-filter' use this.\nThe value should be a program that can be called from a shell\nwith one argument, SEARCH-STRING. The program determines which\ndatabase it searches. The output of the program should consist\nof those file names in the database that match SEARCH-STRING,\nlisted one per line, possibly with leading or trailing\nwhitespace. If the output is in another form, you may have to\nredefine the function `locate-get-file-positions'.\n\nThe program may interpret SEARCH-STRING as a literal string, a\nshell pattern or a regular expression. The exact rules of what\nconstitutes a match may also depend on the program.\n\nThe standard value of this variable is \"locate\".\nThis program normally searches a database of all files on your\nsystem, or of all files that you have access to. Consult the\ndocumentation of that program for the details about how it determines\nwhich file names match SEARCH-STRING. (Those details vary highly with\nthe version.)" :type string locate-post-command-hook "List of hook functions run after `locate' (see `run-hooks')." hook] 8)
#@49 The history list used by the \[locate] command.
(defvar locate-history-list nil (#$ . 2159))
#@61 The history list used by the \[locate-with-filter] command.
(defvar locate-grep-history-list nil (#$ . 2258))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\306\307&\210\300\314\315\316\304\317\306\307&\210\300\320\315\321\304\322\306\307&\210\300\323\324\325\304\313\306\307\326\327& \210\300\330\315\331\304\332\306\307\326\327& \210\300\333\334\335\304\313\306\307&\210\300\336\337\340\304\313\306\307\326\327& \210\300\341\315\342\306\307\304\332&\210\300\343\315\344\304\345\306\307&\207" [custom-declare-variable locate-make-command-line 'locate-default-make-command-line "Function used to create the locate command line.\nThe Emacs commands `locate' and `locate-with-filter' use this.\nThis function should take one argument, a string (the name to find)\nand return a list of strings. The first element of the list should be\nthe name of a command to be executed by a shell, the remaining elements\nshould be the arguments to that command (including the name to find)." :type function :group locate locate-buffer-name "*Locate*" "Name of the buffer to show results from the \\[locate] command." string locate-fcodes-file nil "File name for the database of file names used by `locate'.\nIf non-nil, `locate' uses this name in the header of the `*Locate*'\nbuffer. If nil, it mentions no file name in that header.\n\nJust setting this variable does not actually change the database\nthat `locate' searches. The executive program that the Emacs\nfunction `locate' uses, as given by the variables `locate-command'\nor `locate-make-command-line', determines the database." (choice (const :tag "None" nil) file) locate-header-face "Face used to highlight the locate header." (choice (const :tag "None" nil) face) locate-ls-subdir-switches (purecopy "-al") "`ls' switches for inserting subdirectories in `*Locate*' buffers.\nThis should contain the \"-l\" switch, but not the \"-F\" or \"-b\" switches." :version "22.1" locate-update-when-revert "This option affects how the *Locate* buffer gets reverted.\nIf non-nil, offer to update the locate database when reverting that buffer.\n(Normally, you need to have root privileges for this to work. See the\noption `locate-update-path'.)\nIf nil, reverting does not update the locate database." boolean locate-update-command "updatedb" "The executable program used to update the locate database." locate-update-path "/" "The default directory from where `locate-update-command' is called.\nUsually, root permissions are required to run that command. This\ncan be achieved by setting this option to \"/su::\" or \"/sudo::\"\n(if you have the appropriate authority). If your current user\npermissions are sufficient to run the command, you can set this\noption to \"/\"." locate-prompt-for-command "If non-nil, the `locate' command prompts for a command to run.\nOtherwise, that behavior is invoked via a prefix argument.\n\nSetting this option non-nil actually inverts the meaning of a prefix arg;\nthat is, with a prefix arg, you get the default behavior." locate-mode-hook "List of hook functions run by `locate-mode' (see `run-mode-hooks')." hook] 10)
(defalias 'locate-default-make-command-line #[(search-string) " D\207" [locate-command search-string] 2])
(defalias 'locate-word-at-point #[nil "`\301\212\302\303x\210`)\212\302\303w\210\304x\210`)\")\207" [pt buffer-substring-no-properties "-a-zA-Z0-9." nil "."] 4])
(defalias 'locate-prompt-for-search-string #[nil "\203 \203 \204, \203, \n\306!\307\310 @\311\312\313 A\314#Q\315 @G\\B\316\211\317%)\207\320 \307\fG\321V\203> \322\323\f\"\202A \322\324!\316\211\211\317\f\325&\211 \306\232\203V \f\203V \f
*\207" [current-prefix-arg locate-prompt-for-command locate-make-command-line locate-cmd default input "" read-from-minibuffer "Run locate (like this): " " " mapconcat identity " " 2 nil locate-history-list locate-word-at-point 0 format "Locate (default %s): " "Locate: " t] 9])
#@986 Run the program `locate', putting results in `*Locate*' buffer.
Pass it SEARCH-STRING as argument. Interactively, prompt for SEARCH-STRING.
With prefix arg ARG, prompt for the exact shell command to run instead.
This program searches for those file names in a database that match
SEARCH-STRING and normally outputs all matching absolute file names,
one per line. The database normally consists of all files on your
system, or of all files that you have access to. Consult the
documentation of the program for the details about how it determines
which file names match SEARCH-STRING. (Those details vary highly with
the version.)
You can specify another program for this command to run by customizing
the variables `locate-command' or `locate-make-command-line'.
The main use of FILTER is to implement `locate-with-filter'. See
the docstring of that function for its meaning.
After preparing the results buffer, this runs `dired-mode-hook' and
then `locate-post-command-hook'.
(defalias 'locate #[(search-string &optional filter arg) "\306\232\203\n \307\310!\210 !\211@\nA
\203 ?\206%
?\205% !\311 \"\312\216\313#!q\210\314 \210\315\211 $ %\316 \210&'\317\320!\210\317\321!\210&\317\322!\210!!\203h \323#\"\210\202r \324\325 \326\315\326\f&\210&\203| \327&!\210\330!\210,\331 #\230\204\216 \332#!\210\333\334!\210\335\336!\210\333\337!,\207" [search-string locate-make-command-line locate-cmd-list locate-cmd locate-cmd-args arg "" error "Please specify a filename to search for" current-window-configuration ((set-window-configuration #1=#:wconfig)) get-buffer-create locate-mode t erase-buffer make-local-variable locate-local-search locate-local-filter locate-local-prompt shell-command apply call-process nil locate-filter-output locate-do-setup buffer-name pop-to-buffer run-hooks dired-mode-hook dired-next-line 3 locate-post-command-hook locate-prompt-for-command run-locate-command #1# locate-buffer-name buffer-undo-list inhibit-read-only filter locate-current-filter] 8 (#$ . 6207) (list (locate-prompt-for-search-string) nil current-prefix-arg)])
#@670 Run the executable program `locate' with a filter.
This function is similar to the function `locate', which see.
The difference is that, when invoked interactively, the present function
prompts for both SEARCH-STRING and FILTER. It passes SEARCH-STRING
to the locate executable program. It produces a `*Locate*' buffer
that lists only those lines in the output of the locate program that
contain a match for the regular expression FILTER; this is often useful
to constrain a big search.
ARG is the interactive prefix arg, which has the same effect as in `locate'.
When called from Lisp, this function is identical with `locate',
except that FILTER is not optional.
(defalias 'locate-with-filter #[(search-string filter &optional arg) "\303 \n#\207" [search-string filter arg locate] 4 (#$ . 8315) (list (locate-prompt-for-search-string) (read-from-minibuffer "Filter: " nil nil nil 'locate-grep-history-list) current-prefix-arg)])
#@40 Filter output from the locate command.
(defalias 'locate-filter-output #[(filter) "eb\210\301!\207" [filter keep-lines] 2 (#$ . 9257)])
#@39 Local keymap for Locate mode buffers.
(defvar locate-mode-map (byte-code "\302!\303 \304\305#\210\303 \306\305#\210\303 \307\305#\210\303 \310\305#\210\303 \311\305#\210\303 \312\305#\210\303 \313\314#\210\303 \315\316#\210\303 \317\320#\210\303 \321\322#\210\303 \323\324#\210 )\207" [dired-mode-map map copy-keymap define-key [menu-bar Dired] undefined [menu-bar subdir] [menu-bar mark executables] [menu-bar mark directory] [menu-bar mark directories] [menu-bar mark symlinks] [M-mouse-2] locate-mouse-view-file "" locate-tags "l" locate-do-redisplay "U" dired-unmark-all-files "V" locate-find-directory] 4) (#$ . 9400))
#@42 The amount of indentation for each file.
(defconst locate-filename-indentation 4 (#$ . 10034))
#@458 Return list of start and end of the file name on the current line.
This is a list of two buffer positions.
You should only call this function on lines that contain a file name
listed by the locate program. Inside inserted subdirectories, or if
there is no file name on the current line, the return value is
meaningless. You can check whether the current line contains a file
listed by the locate program, using the function
`locate-main-listing-line-p'.
(defalias 'locate-get-file-positions #[nil "\301 \\\302 D\207" [locate-filename-indentation line-beginning-position line-end-position] 2 (#$ . 10136)])
#@48 Return the current line number, as an integer.
(defalias 'locate-current-line-number #[nil "\300e`\"i\301=\203 \302\202 \301\\\207" [count-lines 0 1] 3 (#$ . 10752)])
(defalias 'locate-get-filename #[nil "\302 \303 \304=?\205 \305=?\205 \306\234 \304\234{*\207" [lineno pos locate-get-file-positions locate-current-line-number 1 2 0] 3])
#@169 Return t if current line contains a file name listed by locate.
This function returns nil if the current line either contains no
file name or is inside a subdirectory.
(defalias 'locate-main-listing-line-p #[nil "\212\301y\210\302\303\304S\305\"\306Q!)\207" [locate-filename-indentation 0 looking-at "." make-string 32 "\\(/\\|[A-Za-z]:\\)"] 5 (#$ . 11106)])
#@47 In Locate mode, view a file, using the mouse.
(defalias 'locate-mouse-view-file #[(event) "\212\302!\303 8\206 A@:\203 A@@\202 A@)b\210\304 \203+ \305\306 !\202. \307\310!)\207" [event position event-start 5 locate-main-listing-line-p view-file locate-get-filename message "This command only works inside main listing."] 2 (#$ . 11472) "@e"])
#@636 Major mode for the `*Locate*' buffer made by \[locate].
\<locate-mode-map>In that buffer, you can use almost all the usual dired bindings.
\[locate-find-directory] visits the directory of the file on the current line.
This function runs `locate-mode-hook' before returning.
Operating on listed files works, but does not always
automatically update the buffer as in ordinary Dired.
This is true both for the main listing and for subdirectories.
Reverting the buffer using \[revert-buffer] deletes all subdirectories.
Specific `locate-mode' commands, such as \[locate-find-directory],
do not work in subdirectories.
\{locate-mode-map}
(defalias 'locate-mode #[nil "\306 \210\307\310!\210\311!\210\312\313\314\315\211\316 \317 \"\210\307\320!\210\314\307\321!\210\"\322#\307\323!\210\324\325$S\326\"\327\330\323!R\307\331!\210\332\307\333!\210\324\325$S\326\"\327\330\333!R\307\334!\210\335 \307\336!\210\337 \340\341!\207" [locate-mode-map major-mode mode-name default-directory buffer-read-only selective-display kill-all-local-variables make-local-variable dired-subdir-alist use-local-map locate-mode "Locate" "/" t dired-alist-add-1 point-min-marker dired-directory dired-subdir-switches nil directory-listing-before-filename-regexp "^.\\(" make-string 32 "\\)\\|" default-value dired-actual-switches "" dired-permission-flags-regexp revert-buffer-function locate-update page-delimiter "\n\n" run-mode-hooks locate-mode-hook locate-ls-subdir-switches dired-switches-alist locate-filename-indentation] 6 (#$ . 11830)])
(defalias 'locate-do-setup #[(search-string) "eb\210\212m\203 \304!\210 \203 \305\306\n #\210\202 \305\307\n\"\210\310\n!\210m\2045 \311\312 \313#\210\314 \210\315y\210\202\" )eb\207" [locate-buffer-name locate-current-filter search-string locate-filename-indentation kill-buffer error "Locate: no match for %s in database using filter %s" "Locate: no match for %s in database" locate-insert-header insert-char 32 t locate-set-properties 1] 4])
(defalias 'locate-set-properties #[nil "\212\301 \302\303\234\304\234\"*\207" [pos locate-get-file-positions dired-insert-set-properties 0 1] 4])
(defalias 'locate-insert-header #[(search-string) "\306\307\310!\311QC\f\203\" \312P\n\313\310\f!\311R\314\fC \"
\203: \315P\n\316\317\310
!\311\260\314
C \" \320P\n\321P\322\323 \324 !#c\210\212eb\210\325y\210\326\n!\205\202 \327\325\224\325\225\330D#\210\331\224\203s \327\331\224\331\225\330D#\210\332\224\205\202 \327\332\224\332\225\330D#,\207" [search-string locate-format-args locate-regexp-match locate-format-string locate-fcodes-file locate-current-filter " /:\n Matches for %s" " *Matches for \\(" regexp-quote "\\)" " in %s" " in \\(" append " using filter %s" " using filter " "\\(" ":\n\n" ":\n" apply format reverse 1 looking-at add-text-properties face 2 3 locate-header-face] 5])
#@40 Visit a tags table in `*Locate*' mode.
(defalias 'locate-tags #[nil "\301 \203 \302 \303\304\305\"!\205 \306!)\207\307\310!\207" [tags-table locate-main-listing-line-p locate-get-filename y-or-n-p format "Visit tags table %s? " visit-tags-table message "This command only works inside main listing."] 4 (#$ . 14698) nil])
#@160 Revert the *Locate* buffer.
If `locate-update-when-revert' is non-nil, offer to update the
locate database using the shell command in `locate-update-command'.
(defalias 'locate-update #[(_ignore1 _ignore2) "\306 \203 \307\310!\203 \311\f! \312\f!\210)\313
\"*\207" [locate-local-prompt locate-prompt-for-command locate-buffer-name locate-update-when-revert locate-update-path default-directory buffer-name yes-or-no-p "Update locate database (may take a few seconds)? " expand-file-name shell-command locate locate-update-command locate-local-search locate-local-filter] 3 (#$ . 15032)])
#@57 Visit the directory of the file mentioned on this line.
(defalias 'locate-find-directory #[nil "\301 \203% \302 \303!\203 \304!\202# \305!\203 \306\307!\202# \306\310!)\207\311\312!\207" [directory-name locate-main-listing-line-p locate-get-dirname file-directory-p find-file file-symlink-p error "Directory is a symlink to a nonexistent target" "Directory no longer exists; run `updatedb' to update database" message "This command only works inside main listing."] 2 (#$ . 15636) nil])
#@69 Visit the directory of the file named on this line in other window.
(defalias 'locate-find-directory-other-window #[nil "\300 \203\n \301\302 !\207\303\304!\207" [locate-main-listing-line-p find-file-other-window locate-get-dirname message "This command only works inside main listing."] 2 (#$ . 16135) nil])
#@63 Return the directory name of the file mentioned on this line.
(defalias 'locate-get-dirname #[nil "\304\305 @A@{\211\203- \306\307 G\304 $\210\310 !\311\312\313\314 \315\304\316%\206) \312Q! \203> \n\203> \204> \317 \n\" *\207" [filepos file buffer-file-coding-system file-name-coding-system nil locate-get-file-positions set-text-properties 0 file-name-directory read "\"" dired-string-replace-match "\\([^\\]\\|\\`\\)\"" "\\1\\\\\"" t encode-coding-string] 8 (#$ . 16450)])
#@284 Run the GNU locate program, using an alternate database.
This command only works if you use GNU locate. It does not work
properly if `locate-prompt-for-command' is set to t. In that
case, you can just run the regular `locate' command and specify
the database on the command line.
(defalias 'locate-in-alternate-database #[(search-string database) "\303!\204 \304\305\"\210\306\307\n!)\207" [database locate-make-command-line search-string file-exists-p error "Database file %s does not exist" #[(string) "\303\304 !P\nDB\207" [locate-command database string "--database=" expand-file-name] 4] locate] 3 (#$ . 16943) (list (progn (read-from-minibuffer "Locate: " nil nil nil 'locate-history-list)) (read-file-name "Locate using Database: "))])
#@64 Like `dired-do-redisplay', but adapted for `*Locate*' buffers.
(defalias 'locate-do-redisplay #[(&optional arg test-for-subdir) "\304 \305\230\203 \306\307!\207\310\n \")\207" [locate-ls-subdir-switches dired-actual-switches arg test-for-subdir dired-current-directory "/" message "This command only works in subdirectories." dired-do-redisplay] 3 (#$ . 17700) "P\np"])
(provide 'locate)