WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/vc
Viewing File: /usr/share/emacs/24.3/lisp/vc/vc-dir.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:52:19 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vc/vc-dir.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!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311DD\312\313\314\315\302&\210\316\317\320\321#\210\322\211\2034\316\317\323\324\325!!#\210\207" [require vc-hooks vc tool-bar ewoc custom-declare-variable vc-dir-mode-hook funcall function #[0 "\300\207" [nil] 1 "\n\n(fn)"] "Normal hook run by `vc-dir-mode'.\nSee `run-hooks'." :type hook :group put vc-dir-fileinfo->name compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-dir-fileinfo->name (car cl-x)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-dir.el" compiler-macro-file purecopy file-name-nondirectory] 8)
(defalias 'vc-dir-fileinfo->name #[257 "\211@\207" [] 2 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\211\203\300\301\305\306\307!!#\210\207" [put vc-dir-fileinfo->state compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-dir-fileinfo->state (nth 1 cl-x)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-dir.el" compiler-macro-file purecopy file-name-nondirectory] 7)
(defalias 'vc-dir-fileinfo->state #[257 "\211A@\207" [] 2 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\211\203\300\301\305\306\307!!#\210\207" [put vc-dir-fileinfo->extra compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-dir-fileinfo->extra (nth 2 cl-x)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-dir.el" compiler-macro-file purecopy file-name-nondirectory] 7)
(defalias 'vc-dir-fileinfo->extra #[257 "\3008\207" [2] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\211\203\300\301\305\306\307!!#\210\207" [put vc-dir-fileinfo->marked compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-dir-fileinfo->marked (nth 3 cl-x)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-dir.el" compiler-macro-file purecopy file-name-nondirectory] 7)
(defalias 'vc-dir-fileinfo->marked #[257 "\3008\207" [3] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\211\203\300\301\305\306\307!!#\210\207" [put vc-dir-fileinfo->needs-update compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-dir-fileinfo->needs-update (nth 4 cl-x)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-dir.el" compiler-macro-file purecopy file-name-nondirectory] 7)
(defalias 'vc-dir-fileinfo->needs-update #[257 "\3008\207" [4] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\211\203\300\301\305\306\307!!#\210\207" [put vc-dir-fileinfo->directory compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-dir-fileinfo->directory (nth 5 cl-x)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-dir.el" compiler-macro-file purecopy file-name-nondirectory] 7)
(defalias 'vc-dir-fileinfo->directory #[257 "\3008\207" [5] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\211\203\300\301\305\306\307!!#\210\207" [put make-vc-dir-fileinfo compiler-macro #[385 "\300>A@\301>A@\302>A@\303>A@\304>A@\305>A@\211\203L\211@\306>\2034\211AA\262\202!\307>A@\203C\310\262\202!\311\312@\"\210\202!\210\313\314\315\310\310&\207" [:name :state :extra :marked :needs-update :directory (:name :state :extra :marked :needs-update :directory :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :state :extra :marked :needs-update :directory)" cl--defsubst-expand (name state extra marked needs-update directory) (cl-block make-vc-dir-fileinfo (list name state extra marked needs-update directory))] 20 "\n\n(fn CL-WHOLE &cl-quote &key NAME STATE EXTRA MARKED NEEDS-UPDATE DIRECTORY)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-dir.el" compiler-macro-file purecopy file-name-nondirectory] 7)
#@60 

(fn &key NAME STATE EXTRA MARKED NEEDS-UPDATE DIRECTORY)
(defalias 'make-vc-dir-fileinfo #[128 "\300>A@\301>A@\302>A@\303>A@\304>A@\305>A@\211\203L\211@\306>\2034\211AA\262\202!\307>A@\203C\310\262\202!\311\312@\"\210\202!\210\257\207" [:name :state :extra :marked :needs-update :directory (:name :state :extra :marked :needs-update :directory :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :state :extra :marked :needs-update :directory)"] 13 (#$ . 4572)])
(byte-code "\300\301\302\303#\210\304\211\203\300\301\305\306\307!!#\210\207" [put vc-dir-create-fileinfo compiler-macro #[899 "\211A\262@\211A\262@\211A\262@\203!\300\301\302\303G\\D\"\210\304\305\306\302\211\211\n\n\n&\n\207" [signal wrong-number-of-arguments nil 6 cl--defsubst-expand (name state extra marked directory) (cl-block vc-dir-create-fileinfo (list name state extra marked nil directory))] 18 "\n\n(fn CL-WHOLE-ARG &cl-quote NAME STATE &optional EXTRA MARKED DIRECTORY)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-dir.el" compiler-macro-file purecopy file-name-nondirectory] 7)
#@52 

(fn NAME STATE &optional EXTRA MARKED DIRECTORY)
(defalias 'vc-dir-create-fileinfo #[642 "\211A\262@\211A\262@\211A\262@\203!\300\301\302\303G\\D\"\210\304\257\207" [signal wrong-number-of-arguments vc-dir-create-fileinfo 5 nil] 12 (#$ . 5719)])
(byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\311#\210\302\313\314\315#\210\302\316\314\315#\210\302\317\314\315#\210\302\320\314\315#\210\302\321\314\315#\210\302\322\314\315#\210\302\323\314\315#\210\302\324\314\315#\207" [cl-struct-vc-dir-fileinfo-tags cl-struct-vc-dir-fileinfo put vc-dir-fileinfo cl-struct-slots ((name) (state) (extra) (marked) (needs-update) (directory)) cl-struct-type (list nil) cl-struct-include nil cl-struct-print vc-dir-create-fileinfo side-effect-free t make-vc-dir-fileinfo vc-dir-fileinfo->directory vc-dir-fileinfo->needs-update vc-dir-fileinfo->marked vc-dir-fileinfo->extra vc-dir-fileinfo->state vc-dir-fileinfo->name] 4)
(defvar vc-ewoc nil)
#@65 The buffer used for the asynchronous call that computes status.
(defvar vc-dir-process-buffer nil (#$ . 6717))
#@50 The backend used by the current *vc-dir* buffer.
(defvar vc-dir-backend nil (#$ . 6834))
(defalias 'vc-dir-move-to-goal-column #[0 "\300 \210l?\205\n\301u\207" [beginning-of-line 25] 1 "\n\n(fn)"])
#@106 Find a buffer named BNAME showing DIR, or create a new one.

(fn BNAME DIR BACKEND &optional CREATE-NEW)
(defalias 'vc-dir-prepare-status-buffer #[1027 "C\211\302\303@!!\240\210\212?\205$\304\305\306\307\310\311\312\n\"\313\"\314\315%D\215)\211\206?r\316\303@\"!q\210@\317p!\210\320p)\262\207" [default-directory vc-parent-buffer-name file-name-as-directory expand-file-name --cl-block-nil-- funcall make-byte-code 0 "\n\211\205/\211@\305!\203(\211q\210\306\307!\203(\301=\203(\f\300@\230\203(\310\311\"\210A\266\202\202\207" vconcat vector [vc-dir-buffers vc-dir-backend default-directory buffer-live-p derived-mode-p vc-dir-mode throw --cl-block-nil--] 5 "\n\n(fn)" create-file-buffer vc-setup-buffer nil] 14 (#$ . 7040)])
#@18 Menu for VC dir.
(defvar vc-dir-menu-map (byte-code "\300\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\362#\210\302\363\364#\210\302\365\366#\210\302\367\370#\210\302\371\372#\210\302\373\374#\210\302\375\376#\210\302\377\201@#\210\302\201A\201B#\210\302\201C\201D#\210\211\207" [make-sparse-keymap "VC-dir" define-key [quit] (menu-item "Quit" quit-window :help "Quit") [kill] (menu-item "Kill Update Command" vc-dir-kill-dir-status-process :enable (vc-dir-busy) :help "Kill the command that updates the directory buffer") [refresh] (menu-item "Refresh" revert-buffer :enable (not (vc-dir-busy)) :help "Refresh the contents of the directory buffer") [remup] (menu-item "Hide Up-to-date" vc-dir-hide-up-to-date :help "Hide up-to-date items from display") [sepmv] ("--") [next-line] (menu-item "Next Line" vc-dir-next-line :help "Go to the next line" :keys "n") [previous-line] (menu-item "Previous Line" vc-dir-previous-line :help "Go to the previous line") [sepmrk] ("--") [unmark-all] (menu-item "Unmark All" vc-dir-unmark-all-files :help "Unmark all files that are in the same state as the current file\nWith prefix argument unmark all files") [unmark-previous] (menu-item "Unmark Previous " vc-dir-unmark-file-up :help "Move to the previous line and unmark the file") [mark-all] (menu-item "Mark All" vc-dir-mark-all-files :help "Mark all files that are in the same state as the current file\nWith prefix argument mark all files") [unmark] (menu-item "Unmark" vc-dir-unmark :help "Unmark the current file or all files in the region") [mark] (menu-item "Mark" vc-dir-mark :help "Mark the current file or all files in the region") [sepopn] ("--") [qr] (menu-item "Query Replace in Files..." vc-dir-query-replace-regexp :help "Replace a string in the marked files") [se] (menu-item "Search Files..." vc-dir-search :help "Search a regexp in the marked files") [ires] (menu-item "Isearch Regexp Files..." vc-dir-isearch-regexp :help "Incremental search a regexp in the marked files") [ise] (menu-item "Isearch Files..." vc-dir-isearch :help "Incremental search a string in the marked files") [open-other] (menu-item "Open in Other Window" vc-dir-find-file-other-window :help "Find the file on the current line, in another window") [open] (menu-item "Open File" vc-dir-find-file :help "Find the file on the current line") [sepvcdet] ("--") [ins] (menu-item "Show File" vc-dir-show-fileentry :help "Show a file in the VC status listing even though it might be up to date") [annotate] (menu-item "Annotate" vc-annotate :help "Display the edit history of the current file using colors") [diff] (menu-item "Compare with Base Version" vc-diff :help "Compare file set with the base version") [logo] (menu-item "Show Outgoing Log" vc-log-outgoing :help "Show a log of changes that will be sent with a push operation") [logi] (menu-item "Show Incoming Log" vc-log-incoming :help "Show a log of changes that will be received with a pull operation") [log] (menu-item "Show History" vc-print-log :help "List the change log of the current file set in a window") [rlog] (menu-item "Show Top of the Tree History " vc-print-root-log :help "List the change log for the current tree in a window") [sepvccmd] ("--") [update] (menu-item "Update to Latest Version" vc-update :help "Update the current fileset's files to their tip revisions") [revert] (menu-item "Revert to Base Version" vc-revert :help "Revert working copies of the selected fileset to their repository contents.") [next-action] (menu-item "Check In/Out" vc-next-action :help "Do the next logical version control operation on the current fileset") [register] (menu-item "Register" vc-register :help "Register file set into the version control system")] 5) (#$ . 7797))
(defalias 'vc-dir-menu-map-filter #[257 "\2119\203\301!\203\302!\262\303\304!\205\305\306\"\211\204\"\202'\307\310#\207" [vc-dir-backend fboundp indirect-function derived-mode-p vc-dir-mode vc-call-backend extra-status-menu append ("----")] 6 "\n\n(fn ORIG-BINDING)"])
#@30 Keymap for directory buffer.
(defvar vc-dir-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\324#\210\302\330\331#\210\302\332\331#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\334#\210\302\342\340#\210\302\343\334#\210\302\344\340#\210\302\345\346#\210\302\347\346#\210\302\350\346#\210\302\351\352#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\362#\210\302\363\364#\210\302\365\366#\210\302\367\370#\210\302\371\372#\210\302\373\374#\210\302\375\376#\210\302\377\201@\201A\201BBBB#\210\211\207" [vc-dir-menu-map make-sparse-keymap define-key "v" vc-next-action "=" vc-diff "i" vc-register "+" vc-update "l" vc-print-log "m" vc-dir-mark "M" vc-dir-mark-all-files "u" vc-dir-unmark "U" vc-dir-unmark-all-files "" vc-dir-unmark-file-up "\377" "n" vc-dir-next-line " " "	" vc-dir-next-directory "p" vc-dir-previous-line [backtab] vc-dir-previous-directory "\375" "\373" [C-down] [C-up] "f" vc-dir-find-file "e" "
" "o" vc-dir-find-file-other-window "" vc-dir-kill-dir-status-process [down-mouse-3] vc-dir-menu [mouse-2] vc-dir-toggle-mark [follow-link] mouse-face "x" vc-dir-hide-up-to-date [11] vc-dir-kill-line "S" vc-dir-search "Q" vc-dir-query-replace-regexp [134217843 97 19] vc-dir-isearch [134217843 97 134217747] vc-dir-isearch-regexp [menu-bar vc-dir-mode] menu-item "VC-dir" (:filter vc-dir-menu-map-filter)] 8) (#$ . 12197))
#@166 Evaluate BODY with point located at event-start of EVENT.
If BODY uses EVENT, it should be a variable,
 otherwise it will be evaluated twice.

(fn EVENT &rest BODY)
(defalias 'vc-dir-at-event '(macro . #[385 "\300\301!\302\303\304\305BB\306\307DDC\310\311\312DDD\313\314DDFEBB\207" [make-symbol "vc-dir-at-event-posn" save-excursion unless equal ('(tool-bar)) let event-start set-buffer window-buffer posn-window goto-char posn-point] 12 (#$ . 13772)]))
#@32 Popup the VC dir menu.

(fn E)
(defalias 'vc-dir-menu #[257 "\212\211\302\232\2040\303!\304\211@)!q\210\211\3058\206,A@:\203)A@@\202,A@)b\266\306	\")\207" [position vc-dir-menu-map (tool-bar) event-start window-buffer 5 popup-menu] 5 (#$ . 14241) "e"])
(defvar vc-dir-tool-bar-map (byte-code "\303 \304\305\306\307\310\311\312\313&\210\304\314\315\307\310\316\312\313&\210\304\317\320\307\312\313&\210\304\321\322\312\313&\210\304\323\324\310\325&\210\304\326\327\310\330&\210\331\332	#\210\304\333\334\310\335\312\313&\210\304\336\337\312\313&\210\331\340	#\210\304\341\n\342\"\343\307\312\313&\210\304\341\n\344\"\345\307\312\313&\210\304\341\n\346\"\347\307\312\313&\210\331\350	#\210\304\351\352\307\310\353\312\313&\210\211\207" [vc-dir-mode-map menu-bar-separator menu-bar-edit-menu make-sparse-keymap tool-bar-local-item-from-menu find-file "new" nil :label "New File" :vert-only t menu-find-file-existing "open" "Open" dired "diropen" quit-window "close" vc-next-action "saveas" "Commit" vc-print-log "info" "Log" define-key-after [separator-1] vc-dir-kill-dir-status-process "cancel" "Stop" revert-buffer "refresh" [separator-2] lookup-key [cut] "cut" [copy] "copy" [paste] "paste" [separator-3] isearch-forward "search" "Search"] 10))
(defalias 'vc-dir-node-directory #[257 "\211\300H\3018\206\302\303\304@!!!\207" [2 5 file-name-directory directory-file-name expand-file-name] 6 "\n\n(fn NODE)"])
#@155 Update BUFFER's ewoc from the list of ENTRIES.
If NOINSERT, ignore elements on ENTRIES which are not in the ewoc.

(fn ENTRIES BUFFER &optional NOINSERT)
(defalias 'vc-dir-update #[770 "rq\210\303\304\"\262@\305\306\"\307\310	!\204*\311\307\211\211\211	\257\"\210\305\306\"\262\2034\2034@\312\313\314!!!\315!\211\231\203N\316\"\262\202/\211\230\203\363\317H\211@\262\211\230\203k\316\"\262\202\357\211\231\203{\316\"\262\202\357\211\230\203\325A@\203\272\317H\211A\211\nA@\240\266\317H\211AA\211\3178\240\266\317H\320\233\211\307\240\266\321\"\210\202\301B\262\nA\262\n@\262\316\"\262\202\357\204\345\322\323\324\f\"#\210\nA\262\n@\262\210\202/\204%\310!\325\"\315!\230\204\322\n\307\211\211\211\f\257#\210\266\322\323\324\"#\210	A\262\n	@\262\266\202*\204~\204~\315\305\326\"!\211\203|\211@\312\313\314@!!!\230\204l\211\262\310!\311\307\211\211\211\257\"\266\311\323\324\"\"\266A\266\202\202D\266\205\213\327\323\330\237#)\266\204)\207" [vc-ewoc default-directory inhibit-read-only sort #[514 "\300\301\302@!!!\300\301\302@!!!\231\203\303\202)\230\204$\304\202)@@\231\207" [file-name-directory directory-file-name expand-file-name t nil] 7 "\n\n(fn ENTRY1 ENTRY2)"] ewoc-nth 0 nil file-relative-name ewoc-enter-last file-name-directory directory-file-name expand-file-name vc-dir-node-directory ewoc-next 2 4 ewoc-invalidate ewoc-enter-before apply vc-dir-create-fileinfo ewoc-prev -1 t ewoc-delete] 22 (#$ . 15706)])
(defalias 'vc-dir-busy #[0 "\301!\205	\302!\207" [vc-dir-process-buffer buffer-live-p get-buffer-process] 2 "\n\n(fn)"])
#@57 Kill the temporary buffer and associated process.

(fn)
(defalias 'vc-dir-kill-dir-status-process #[0 "\302!\205\303!\211\203\304!\210\305\211\211\262\207" [vc-dir-process-buffer mode-line-process buffer-live-p get-buffer-process delete-process nil] 4 (#$ . 17419) nil])
(defalias 'vc-dir-kill-query #[0 "\300 \203\301\302!\205\303 \210\304\207\304\207" [vc-dir-busy y-or-n-p "Status update process running, really kill status buffer? " vc-dir-kill-dir-status-process t] 2 "\n\n(fn)"])
#@88 Go to the next line.
If a prefix argument is given, move by that many lines.

(fn ARG)
(defalias 'vc-dir-next-line #[257 "\301\"\210\302 \207" [vc-ewoc ewoc-goto-next vc-dir-move-to-goal-column] 4 (#$ . 17925) "p"])
#@92 Go to the previous line.
If a prefix argument is given, move by that many lines.

(fn ARG)
(defalias 'vc-dir-previous-line #[257 "\301\"\210\302 \207" [vc-ewoc ewoc-goto-prev vc-dir-move-to-goal-column] 4 (#$ . 18149) "p"])
#@33 Go to the next directory.

(fn)
(defalias 'vc-dir-next-directory #[0 "`\300\301\302D\215\205\211b\207" [foundit funcall #[0 "\301\302!\"\211\204\303\304\305\"\210\202*\306\"\210\307 \210\211\310H\3118\262\203*\303\304\312\"\210\210\202" [vc-ewoc ewoc-next ewoc-locate throw foundit t ewoc-goto-node vc-dir-move-to-goal-column 2 5 nil] 4 "\n\n(fn)"]] 4 (#$ . 18381) nil])
#@37 Go to the previous directory.

(fn)
(defalias 'vc-dir-previous-directory #[0 "`\300\301\302D\215\205\211b\207" [foundit funcall #[0 "\301\302!\"\211\204\303\304\305\"\210\202*\306\"\210\307 \210\211\310H\3118\262\203*\303\304\312\"\210\210\202" [vc-ewoc ewoc-prev ewoc-locate throw foundit t ewoc-goto-node vc-dir-move-to-goal-column 2 5 nil] 4 "\n\n(fn)"]] 4 (#$ . 18772) nil])
(defalias 'vc-dir-mark-unmark #[257 "\300 \2033\301\302 !\212\303 b\210\301 X\2051\304\305\306\307\310\311\312!\313\"\314\315%D\316\305\317\304EDC\217\210\202)\207\211 \207" [use-region-p line-number-at-pos region-end region-beginning #1=#:err funcall make-byte-code 0 "\300 \207" vconcat vector [] 1 "\n\n(fn)" error #[257 "\300\301!\207" [vc-dir-next-line 1] 3 "\n\n(fn IGNORED)"]] 10 "\n\n(fn MARK-UNMARK-FUNCTION)"])
(defalias 'vc-dir-parent-marked-p #[257 "\301!\302\211\2045\303\"\211\262\2035\304H\301!\3058\2030\306\"\2030\3078\2030\262\266\202\207" [vc-ewoc vc-dir-node-directory nil ewoc-prev 2 5 string-prefix-p 3] 9 "\n\n(fn ARG)"])
(defalias 'vc-dir-children-marked-p #[257 "\301\302\303!!P\304\305\203>\211\204>\306\"\211\262\203>\307H\303!\310\"\2036\3118\2039\262\2029\305\262\266\202\n\207" [vc-ewoc "\\`" regexp-quote vc-dir-node-directory t nil ewoc-next 2 string-match 3] 10 "\n\n(fn ARG)"])
(defalias 'vc-dir-mark-file #[256 "\211\206\302!\211\303H\3048\211\203\305!\202\306!\211\203,\307\203'\310\202(\311@\"\210\312\233\211\313\240\266\314\"\210\206@\315	!?\205G\316\317!\207" [vc-ewoc last-command-event ewoc-locate 2 5 vc-dir-children-marked-p vc-dir-parent-marked-p error "File `%s' in this directory is already marked" "Parent directory `%s' is already marked" 3 t ewoc-invalidate mouse-event-p vc-dir-next-line 1] 8 "\n\n(fn &optional ARG)"])
#@187 Mark the current file or all files in the region.
If the region is active, mark all the files in the region.
Otherwise mark the file on the current line and move to the next
line.

(fn)
(defalias 'vc-dir-mark #[0 "\300\301!\207" [vc-dir-mark-unmark vc-dir-mark-file] 2 (#$ . 20617) nil])
#@311 Mark all files with the same state as the current one.
With a prefix argument mark all files.
If the current entry is a directory, mark all child files.

The commands operate on files that are on the same state.
This command is intended to make it easy to select all files that
share the same state.

(fn ARG)
(defalias 'vc-dir-mark-all-files #[257 "\211\203\301\302\"\210\301\303\"\207\304!\211\305H\3068\203J\307\310\"\211\262\205E\305H\211\262\205E\3068?\205E\311\233\211\312\240\266\313\"\210\202\262\202~\211A@\314\315\"\262\205|\305H\3118\204r\211A@=\203r\3068\204r\316!\210\210\310\"\262\202S\262\207" [vc-ewoc ewoc-map #[257 "\3008\205\3018\205\302\303@\"\207" [5 3 error "Cannot mark all files, directory `%s' marked"] 4 "\n\n(fn FILEARG)"] #[257 "\3008?\205\300\233\211\301\240\266\301\207" [3 t] 4 "\n\n(fn FILEARG)"] ewoc-locate 2 5 nil ewoc-next 3 t ewoc-invalidate ewoc-nth 0 vc-dir-mark-file] 7 (#$ . 20912) "P"])
(defalias 'vc-dir-unmark-file #[0 "\302!\211\303H\304\233\211\305\240\266\306\"\210\307	!?\205\310\311!\207" [vc-ewoc last-command-event ewoc-locate 2 3 nil ewoc-invalidate mouse-event-p vc-dir-next-line 1] 5 "\n\n(fn)"])
#@191 Unmark the current file or all files in the region.
If the region is active, unmark all the files in the region.
Otherwise mark the file on the current line and move to the next
line.

(fn)
(defalias 'vc-dir-unmark #[0 "\300\301!\207" [vc-dir-mark-unmark vc-dir-unmark-file] 2 (#$ . 22130) nil])
#@54 Move to the previous line and unmark the file.

(fn)
(defalias 'vc-dir-unmark-file-up #[0 "\301\302\"\211\303H\304\233\211\305\240\266\306\"\210\307 \207" [vc-ewoc ewoc-goto-prev 1 2 3 nil ewoc-invalidate vc-dir-move-to-goal-column] 5 (#$ . 22432) nil])
#@323 Unmark all files with the same state as the current one.
With a prefix argument unmark all files.
If the current entry is a directory, unmark all the child files.

The commands operate on files that are on the same state.
This command is intended to make it easy to deselect all files
that share the same state.

(fn ARG)
(defalias 'vc-dir-unmark-all-files #[257 "\211\203	\301\302\"\207\303!\211\304H\3058\2039\306\"\211\262\205S\304H\3058\2045\307\233\211\310\240\266\311\"\210\210\202\304H\211A@\262\301\312\313\314\315\316!\317\"\320\321%\"\262\207" [vc-ewoc ewoc-map #[257 "\3008\205\300\233\211\301\240\266\302\207" [3 nil t] 4 "\n\n(fn FILEARG)"] ewoc-locate 2 5 ewoc-next 3 nil ewoc-invalidate make-byte-code 257 "\3018\205\211A@\300=\205\301\233\211\302\240\266\303\207" vconcat vector [3 nil t] 4 "\n\n(fn FILEARG)"] 11 (#$ . 22698) "P"])
(defalias 'vc-dir-toggle-mark-file #[0 "\301!\211\302H\3038\203\304 \202\305 \207" [vc-ewoc ewoc-locate 2 3 vc-dir-unmark-file vc-dir-mark-file] 4 "\n\n(fn)"])
(defalias 'vc-dir-toggle-mark #[257 "\212\211\301\232\2040\302!\303\211@)!q\210\211\3048\206,A@:\203)A@@\202,A@)b\266\305\306!)\207" [position (tool-bar) event-start window-buffer 5 vc-dir-mark-unmark vc-dir-toggle-mark-file] 5 "\n\n(fn E)" "e"])
#@65 Delete the marked files, or the current file if no marks.

(fn)
(defalias 'vc-dir-delete-file #[0 "\300\301\302 \206\n\303 C\"\207" [mapc vc-delete-file vc-dir-marked-files vc-dir-current-file] 3 (#$ . 24015) nil])
#@42 Find the file on the current line.

(fn)
(defalias 'vc-dir-find-file #[0 "\300\301 !\207" [find-file vc-dir-current-file] 2 (#$ . 24237) nil])
#@77 Find the file on the current line, in another window.

(fn &optional EVENT)
(defalias 'vc-dir-find-file-other-window #[256 "\211\203\n\300\301!!\210\302\303 !\207" [posn-set-point event-end find-file-other-window vc-dir-current-file] 4 (#$ . 24386) (list last-nonmenu-event)])
#@69 Search for a string through all marked buffers using Isearch.

(fn)
(defalias 'vc-dir-isearch #[0 "\300\301\302\303 \"!\207" [multi-isearch-files mapcar car vc-dir-marked-only-files-and-states] 4 (#$ . 24671) nil])
#@69 Search for a regexp through all marked buffers using Isearch.

(fn)
(defalias 'vc-dir-isearch-regexp #[0 "\300\301\302\303 \"!\207" [multi-isearch-files-regexp mapcar car vc-dir-marked-only-files-and-states] 4 (#$ . 24892) nil])
#@244 Search through all marked files for a match for REGEXP.
For marked directories, use the files displayed from those directories.
Stops when a match is found.
To continue searching for next match, use command \[tags-loop-continue].

(fn REGEXP)
(defalias 'vc-dir-search #[257 "\300\301\"\207" [tags-search (mapcar 'car (vc-dir-marked-only-files-and-states))] 4 (#$ . 25128) "sSearch marked files (regexp): "])
#@365 Do `query-replace-regexp' of FROM with TO, on all marked files.
If a directory is marked, then use the files displayed for that directory.
Third arg DELIMITED (prefix arg) means replace only word-delimited matches.
If you exit (\[keyboard-quit], RET or q), you can resume the query replace
with the command \[tags-loop-continue].

(fn FROM TO &optional DELIMITED)
(defalias 'vc-dir-query-replace-regexp #[770 "\301\302\303 \"\211\203(\211@\304!\211\203 r\211q\210)\203 \305\306\"\210\210A\266\202\202\210\307\310$\207" [buffer-read-only mapcar car vc-dir-marked-only-files-and-states get-file-buffer error "File `%s' is visited read-only" tags-query-replace (mapcar 'car (vc-dir-marked-only-files-and-states))] 9 (#$ . 25544) (byte-code "\300\301\302\211#\211@A@\3038E\207" [query-replace-read-args "Query replace regexp in marked files" t 2] 5)])
(defalias 'vc-dir-current-file #[0 "\301!\211\204\302\303!\210\304\305H\211@\262!\207" [vc-ewoc ewoc-locate error "No file available" expand-file-name 2] 4 "\n\n(fn)"])
#@40 Return the list of marked files.

(fn)
(defalias 'vc-dir-marked-files #[0 "\301\302\303\304\"\"\207" [vc-ewoc mapcar #[257 "\300@!\207" [expand-file-name] 3 "\n\n(fn ELEM)"] ewoc-collect vc-dir-fileinfo->marked] 5 (#$ . 26586)])
#@146 Return the list of conses (FILE . STATE) for the marked files.
For marked directories return the corresponding conses for the
child files.

(fn)
(defalias 'vc-dir-marked-only-files-and-states #[0 "\301\302\"\303\203p\304H\3058\203f\3068\203Q\3068\303\307\"\211\262\203L\310\304H\262\311!\"\203L\3068\204\312@!A@BB\262\202\266\202l\312@!A@BB\262\307\"\262\202l\307\"\262\210\202\211\237\207" [vc-ewoc ewoc-nth 0 nil 2 3 5 ewoc-next string-prefix-p vc-dir-node-directory expand-file-name] 9 (#$ . 26824)])
#@174 Return the list of conses (FILE . STATE) for child files of the current entry if it's a directory.
If it is a file, return the corresponding cons for the file itself.

(fn)
(defalias 'vc-dir-child-files-and-states #[0 "\301!\211\302H\303\3048\203F\3048\303\305\"\211\262\203A\306\302H\262\307!\"\203A\3048\204\310@!A@BB\262\202\266\202R\310@!A@BB\262\211\237\207" [vc-ewoc ewoc-locate 2 nil 5 ewoc-next string-prefix-p vc-dir-node-directory expand-file-name] 9 (#$ . 27380)])
(defalias 'vc-dir-recompute-file-state #[514 "\301\"\302=\205\303\304#\303\305#\303\306#E\207" [vc-dir-backend file-relative-name CVS vc-call-backend registered state status-fileinfo-extra] 9 "\n\n(fn FNAME DEF-DIR)"])
(defalias 'vc-dir-find-child-files #[257 "\301\302\"\303\203\304\305!\"\204\306\"\262\202\203C\304\305!\"\203C\307H\3108\2049\311@!B\262\210\306\"\262\202\207" [vc-ewoc ewoc-nth 0 nil string-prefix-p vc-dir-node-directory ewoc-next 2 5 expand-file-name] 7 "\n\n(fn DIRNAME)"])
(defalias 'vc-dir-resync-directory-files #[257 "\301!\302\205$\211\203\211@\303\"B\262A\266\202\202\n\210\304p\"\207" [default-directory vc-dir-find-child-files nil vc-dir-recompute-file-state vc-dir-update] 9 "\n\n(fn DIRNAME)"])
#@91 Update the entries for FNAME in any directory buffers that list it.

(fn &optional FNAME)
(defalias 'vc-dir-resynch-file #[256 "\211\206\306!\307r	\211\203o\211@\310!\204\211B\262\202h\211q\210\311\312!\204/\211B\262\202h\n\313\"\203g\314!\203N\315!\210\316\317\f\n\"\320#\210\202g\321\"\211\211A@)\322C?\206d\323=#\266\210A\266\202\202\n\210)\211\211\205\204\211@\324	\"A\266\202\202r\262\207" [buffer-file-name vc-dir-buffers default-directory vc-ewoc vc-dir-backend x expand-file-name nil buffer-live-p derived-mode-p vc-dir-mode string-prefix-p file-directory-p vc-dir-resync-directory-files ewoc-set-hf vc-dir-headers "" vc-dir-recompute-file-state vc-dir-update up-to-date delq] 13 (#$ . 28679)])
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [vc-dir-mode-hook variable-documentation put purecopy "Hook run when entering VC dir mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp vc-dir-mode-map definition-name vc-dir-mode] 5)
(defvar vc-dir-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\305\306!\204\302\306\307\310#\210\300\207" [vc-dir-mode-map variable-documentation put purecopy "Keymap for `vc-dir-mode'." boundp vc-dir-mode-syntax-table definition-name vc-dir-mode] 5)
(defvar vc-dir-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [vc-dir-mode-syntax-table variable-documentation put purecopy "Syntax table for `vc-dir-mode'." vc-dir-mode-abbrev-table definition-name vc-dir-mode] 5)
(defvar vc-dir-mode-abbrev-table (progn (define-abbrev-table 'vc-dir-mode-abbrev-table nil) vc-dir-mode-abbrev-table))
(byte-code "\300\301N\204\302\300\301\303\304!#\210\302\305\306\307#\207" [vc-dir-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `vc-dir-mode'." vc-dir-mode derived-mode-parent special-mode] 5)
#@1637 Major mode for VC directory buffers.
Marking/Unmarking key bindings and actions:
m - mark a file/directory
  - if the region is active, mark all the files in region.
    Restrictions: - a file cannot be marked if any parent directory is marked
                  - a directory cannot be marked if any child file or
                    directory is marked
u - unmark a file/directory
  - if the region is active, unmark all the files in region.
M - if the cursor is on a file: mark all the files with the same state as
      the current file
  - if the cursor is on a directory: mark all child files
  - with a prefix argument: mark all files
U - if the cursor is on a file: unmark all the files with the same state
      as the current file
  - if the cursor is on a directory: unmark all child files
  - with a prefix argument: unmark all files
mouse-2  - toggles the mark state

VC commands
VC commands in the `C-x v' prefix can be used.
VC commands act on the marked entries.  If nothing is marked, VC
commands act on the current entry.

Search & Replace
S - searches the marked files
Q - does a query replace on the marked files
M-s a C-s - does an isearch on the marked files
M-s a C-M-s - does a regexp isearch on the marked files
If nothing is marked, these commands act on the current entry.
When a directory is current or marked, the Search & Replace
commands act on the child files of that directory that are displayed in
the *vc-dir* buffer.

\{vc-dir-mode-map}

In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `vc-dir-mode-hook', as the final step
during initialization.

(fn)
(defalias 'vc-dir-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315!\204'\316\317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324
\325\"\204R
/=\204R\326
\325/C#\210\327!\210\330\f!\210
/\306\331!\2100\3071\332\333!\203v\306\333!\2102\3341\335 \210\306\336!\210\334\306\337!\210\340\341!\306\342!\210\343\"\344\3453\"4\346\347p\"\210\350\351\352\334\307$\210\353 \210\354 \210*\355\356!\207" [delay-mode-hooks major-mode mode-name vc-dir-mode-map vc-dir-mode-syntax-table vc-dir-mode-abbrev-table make-local-variable t special-mode vc-dir-mode "VC dir" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table vc-dir-backend boundp tool-bar-map nil erase-buffer vc-dir-process-buffer vc-ewoc ewoc-create vc-dir-printer revert-buffer-function vc-dir-revert-buffer-function expand-file-name "*vc-dir*" add-to-list vc-dir-buffers add-hook kill-buffer-query-functions vc-dir-kill-query hack-dir-local-variables-non-file-buffer vc-dir-refresh run-mode-hooks vc-dir-mode-hook local-abbrev-table use-vc-backend buffer-read-only vc-dir-tool-bar-map default-directory list-buffers-directory] 5 (#$ . 30716) nil])
#@148 Display the headers in the *VC dir* buffer.
It calls the `dir-extra-headers' backend method to display backend
specific headers.

(fn BACKEND DIR)
(defalias 'vc-dir-headers #[514 "\300\301\302\303#\300\304\305\"\302\306#\300\307\302\303#\300\304\305\310!\"\302\306#\311\312#\313\260\207" [propertize "VC backend : " face font-lock-type-face format "%s\n" font-lock-variable-name-face "Working dir: " abbreviate-file-name vc-call-backend dir-extra-headers "\n"] 10 (#$ . 33705)])
#@70 Refresh some files in the *VC-dir* buffer.

(fn FILES DEFAULT-STATE)
(defalias 'vc-dir-refresh-files #[514 "	\303 \210\304\n!\204\305\306\307\"!pr\nq\210\310 \210\311\312\313\314\315\316\317!\320\"\321\322%&)\262\207" [default-directory vc-dir-backend vc-dir-process-buffer vc-set-mode-line-busy-indicator buffer-live-p generate-new-buffer format " *VC-%s* tmp status" erase-buffer vc-call-backend dir-status-files make-byte-code 513 "r\300q\210\303\300\"\210\211?\205\304\305\n\306\")\207" vconcat vector [mode-line-process vc-ewoc vc-dir-update nil ewoc-filter #[257 "\3008\203\211A@\301=\203\211A\211\302\240\266\3038?\207" [5 up-to-date nil 4] 4 "\n\n(fn INFO)"]] 5 "\n\n(fn ENTRIES &optional MORE-TO-COME)"] 17 (#$ . 34198)])
(defalias 'vc-dir-revert-buffer-function #[512 "\300 \207" [vc-dir-refresh] 3 "\n\n(fn &optional IGNORE-AUTO NOCONFIRM)"])
#@109 Refresh the contents of the *VC-dir* buffer.
Throw an error if another update process is in progress.

(fn)
(defalias 'vc-dir-refresh #[0 "\304 \203	\305\306!\207	\307 \210\310\n!\204\311\312\313\"!\314\315\"\210\316\317\"\320#\210pr\nq\210\321 \210\322\323\324\325\326\327\330	!\331\"\332\333%$)\262\207" [default-directory vc-dir-backend vc-dir-process-buffer vc-ewoc vc-dir-busy error "Another update process is in progress, cannot run two at a time" vc-set-mode-line-busy-indicator buffer-live-p generate-new-buffer format " *VC-%s* tmp status" ewoc-map #[257 "\3008?\205\301\233\211\302\240\266\303\207" [5 4 t nil] 4 "\n\n(fn INFO)"] ewoc-set-hf vc-dir-headers "" erase-buffer vc-call-backend dir-status make-byte-code 513 "r\300q\210\303\300\"\210\211?\205%\304	\305\"\211\203 \306\307\310\"\311\"\202#\312\211\262)\207" vconcat vector [vc-ewoc mode-line-process vc-dir-update ewoc-collect vc-dir-fileinfo->needs-update vc-dir-refresh-files mapcar vc-dir-fileinfo->name up-to-date nil] 7 "\n\n(fn ENTRIES &optional MORE-TO-COME)"] 13 (#$ . 35087) nil])
#@208 Insert an entry for a specific file into the current *VC-dir* listing.
This is typically used if the file is up-to-date (or has been added
outside of VC) and one wants to do some operation on it.

(fn FILE)
(defalias 'vc-dir-show-fileentry #[257 "\300\301!\302!DCp\"\207" [vc-dir-update file-relative-name vc-state] 5 (#$ . 36182) "fShow file: "])
#@278 Hide items that are in STATE from display.
See `vc-state' for valid values of STATE.

If STATE is nil, default it to up-to-date.

Interactively, if `current-prefix-arg' is non-nil, set STATE to
state of item at point.  Otherwise, set STATE to up-to-date.

(fn &optional STATE)
(defalias 'vc-dir-hide-state #[256 "\211\206\302\262\303\304\"\210\305\306\"\305\307\"=?\205W\310H\3118\312\"\313\"\314\203?\203H\310H\3118\262\204HA@\232\203N\315\"\210\211\262)\266\202\207" [vc-ewoc inhibit-read-only up-to-date message "Hiding items in state \"%s\"" ewoc-nth -1 0 2 5 ewoc-next ewoc-prev t ewoc-delete] 10 (#$ . 36539) (byte-code "\205\302	!\211\205\211\303H\211A@\262\262C\207" [current-prefix-arg vc-ewoc ewoc-locate 2] 3)])
(defalias 'vc-dir-hide-up-to-date 'vc-dir-hide-state)
#@45 Remove the current line from display.

(fn)
(defalias 'vc-dir-kill-line #[0 "\302!\303\304\")\207" [vc-ewoc inhibit-read-only ewoc-locate t ewoc-delete] 4 (#$ . 37365) nil])
(defalias 'vc-dir-printer #[257 "\301\302#\207" [vc-dir-backend vc-call-backend dir-printer] 5 "\n\n(fn FILEENTRY)"])
(defalias 'vc-dir-deduce-fileset #[256 "\302 \303\211\211\211\203\262\203(\304 \262\202(\305 \211C\262\203'\306 \262\210\203s\211@A)\262A\211\203\\\211@\307A\"\204U\310\311@A\211@@)%\210A\266\202\2026\210\312\313\"\262\203s\314=\204s\315	\"\262	\257\207" [x vc-dir-backend vc-dir-marked-files nil vc-dir-marked-only-files-and-states vc-dir-current-file vc-dir-child-files-and-states vc-compatible-state error "When applying VC operations to multiple files, the files are required\nto  be in similar VC states.\n%s in state %s clashes with %s in state %s" mapcar car unregistered vc-checkout-model] 15 "\n\n(fn &optional STATE-MODEL-ONLY-FILES)"])
#@681 Show the VC status for "interesting" files in and below DIR.
This allows you to mark files and perform VC operations on them.
The list omits files which are up to date, with no changes in your copy
or the repository, if there is nothing in particular to say about them.

Preparing the list of file status takes time; when the buffer
first appears, it has only the first few lines of summary information.
The file lines appear later.

Optional second argument BACKEND specifies the VC backend to use.
Interactively, a prefix argument means to ask for the backend.

These are the commands available for use in the file status buffer:

\{vc-dir-mode-map}

(fn DIR &optional BACKEND)
(defalias 'vc-dir #[513 "\211\204	\302!\262\303\304\305\306#!\210)\307\310!\203\311 \207\211\310 )\207" [pop-up-windows use-vc-backend vc-responsible-backend nil pop-to-buffer vc-dir-prepare-status-buffer "*vc-dir*" derived-mode-p vc-dir-mode vc-dir-refresh] 7 (#$ . 38363) (byte-code "\303\304\305\211\306\307%!	\205\310\311\312\313\314\n\"\307\306\307\211&!D\207" [default-directory current-prefix-arg vc-handled-backends file-truename read-directory-name "VC status for directory: " t nil intern completing-read "Use VC backend: " mapcar #[257 "\300!C\207" [symbol-name] 3 "\n\n(fn B)"]] 9)])
(defalias 'vc-default-dir-extra-headers #[514 "\300\301\302\303#\300\304\302\305#P\207" [propertize "Extra      : " face font-lock-type-face "Please add backend specific headers here.  It's easy!" font-lock-warning-face] 7 "\n\n(fn BACKEND DIR)"])
#@35 Local keymap for visiting a file.
(defvar vc-dir-filename-mouse-map (byte-code "\300 \301\302\303#\210\211\207" [make-sparse-keymap define-key [mouse-2] vc-dir-find-file-other-window] 5) (#$ . 39907))
#@49 Pretty print FILEENTRY.

(fn BACKEND FILEENTRY)
(defalias 'vc-default-dir-printer #[514 "\3018\211\203\302\202A@@\303\304\305\3068\203\307\202\310\"\311\312#\313\303\304\314\"\311\315=\2036\316\202M\317>\203A\320\202M\321=\203L\322\202M\323\324\325%\326\303\304\327\"\311	\203a\330\202b\331\332\203l\333\202m\334\324\325\335&	\261\207" [vc-dir-filename-mouse-map 5 "" propertize format "%c" 3 42 32 face font-lock-type-face "   " "%-20s" up-to-date font-lock-builtin-face (missing conflict) font-lock-warning-face edited font-lock-constant-face font-lock-variable-name-face mouse-face highlight " " "%s" font-lock-comment-delimiter-face font-lock-function-name-face help-echo "Directory\nVC operations can be applied to it\nmouse-3: Pop-up menu" "File\nmouse-3: Pop-up menu" keymap] 19 (#$ . 40115)])
(defalias 'vc-default-extra-status-menu #[257 "\300\207" [nil] 2 "\n\n(fn BACKEND)"])
#@78 Default absence of extra information returned for a file.

(fn BACKEND FILE)
(defalias 'vc-default-status-fileinfo-extra #[514 "\300\207" [nil] 3 (#$ . 41046)])
(provide 'vc-dir)
F1l3 Manager
