;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\306\307\310\311\312DD\313\314\315\316\302&\210\317\320\321\322\316\302\323\324&\210\317\325\326\327\316\302\323\324&\210\317\330\331\332\316\302\323\324&\210\317\333\334\335\316\302\323\324&\210\317\336\337\340\316\302\323\324&\210\317\341\342\343\316\302\323\324&\210\317\344\345\346\316\302\323\324&\210\317\347\350\351\316\302\323\324&\210\317\352\353\354\316\302\323\324&\207" [require vc-hooks vc tool-bar ewoc seq custom-declare-variable vc-dir-mode-hook funcall function #[0 "\300\207" [nil] 1 ""] "Normal hook run by `vc-dir-mode'.\nSee `run-hooks'." :type hook :group custom-declare-face vc-dir-header ((t :inherit font-lock-type-face)) "Face for headers in VC-dir buffers." :version "28.1" vc-dir-header-value ((t :inherit font-lock-variable-name-face)) "Face for header values in VC-dir buffers." vc-dir-directory ((t :inherit font-lock-comment-delimiter-face)) "Face for directories in VC-dir buffers." vc-dir-file ((t :inherit font-lock-function-name-face)) "Face for files in VC-dir buffers." vc-dir-mark-indicator ((t :inherit font-lock-type-face)) "Face for mark indicators in VC-dir buffers." vc-dir-status-warning ((t :inherit font-lock-warning-face)) "Face for warning status in VC-dir buffers." vc-dir-status-edited ((t :inherit font-lock-variable-name-face)) "Face for edited status in VC-dir buffers." vc-dir-status-up-to-date ((t :inherit font-lock-builtin-face)) "Face for up-to-date status in VC-dir buffers." vc-dir-status-ignored ((t :inherit shadow)) "Face for ignored or empty values in VC-dir buffers."] 8)
#@78 compiler-macro for inlining `vc-dir-fileinfo->name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-dir-fileinfo->name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-dir-fileinfo->name (progn (car cl-x))) nil] 9 (#$ . 1709)])
(put 'vc-dir-fileinfo->name 'compiler-macro 'vc-dir-fileinfo->name--cmacro)
#@65 Access slot "name" of `vc-dir-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'vc-dir-fileinfo->name #[257 "\211@\207" [] 2 (#$ . 2051)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-dir-fileinfo->name side-effect-free t] 4)
#@79 compiler-macro for inlining `vc-dir-fileinfo->state'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-dir-fileinfo->state--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-dir-fileinfo->state (progn (nth 1 cl-x))) nil] 9 (#$ . 2289)])
(put 'vc-dir-fileinfo->state 'compiler-macro 'vc-dir-fileinfo->state--cmacro)
#@66 Access slot "state" of `vc-dir-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'vc-dir-fileinfo->state #[257 "\211A@\207" [] 2 (#$ . 2638)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-dir-fileinfo->state side-effect-free t] 4)
#@79 compiler-macro for inlining `vc-dir-fileinfo->extra'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-dir-fileinfo->extra--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-dir-fileinfo->extra (progn (nth 2 cl-x))) nil] 9 (#$ . 2880)])
(put 'vc-dir-fileinfo->extra 'compiler-macro 'vc-dir-fileinfo->extra--cmacro)
#@66 Access slot "extra" of `vc-dir-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'vc-dir-fileinfo->extra #[257 "\300
8\207" [2] 3 (#$ . 3229)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-dir-fileinfo->extra side-effect-free t] 4)
#@80 compiler-macro for inlining `vc-dir-fileinfo->marked'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-dir-fileinfo->marked--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-dir-fileinfo->marked (progn (nth 3 cl-x))) nil] 9 (#$ . 3472)])
(put 'vc-dir-fileinfo->marked 'compiler-macro 'vc-dir-fileinfo->marked--cmacro)
#@67 Access slot "marked" of `vc-dir-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'vc-dir-fileinfo->marked #[257 "\300
8\207" [3] 3 (#$ . 3826)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-dir-fileinfo->marked side-effect-free t] 4)
#@86 compiler-macro for inlining `vc-dir-fileinfo->needs-update'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-dir-fileinfo->needs-update--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-dir-fileinfo->needs-update (progn (nth 4 cl-x))) nil] 9 (#$ . 4072)])
(put 'vc-dir-fileinfo->needs-update 'compiler-macro 'vc-dir-fileinfo->needs-update--cmacro)
#@73 Access slot "needs-update" of `vc-dir-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'vc-dir-fileinfo->needs-update #[257 "\300
8\207" [4] 3 (#$ . 4456)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-dir-fileinfo->needs-update side-effect-free t] 4)
#@83 compiler-macro for inlining `vc-dir-fileinfo->directory'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'vc-dir-fileinfo->directory--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-dir-fileinfo->directory (progn (nth 5 cl-x))) nil] 9 (#$ . 4720)])
(put 'vc-dir-fileinfo->directory 'compiler-macro 'vc-dir-fileinfo->directory--cmacro)
#@70 Access slot "directory" of `vc-dir-fileinfo' struct CL-X.

(fn CL-X)
(defalias 'vc-dir-fileinfo->directory #[257 "\300
8\207" [5] 3 (#$ . 5089)])
(byte-code "\300\301\302\303#\300\207" [function-put vc-dir-fileinfo->directory side-effect-free t] 4)
#@130 compiler-macro for inlining `make-vc-dir-fileinfo'.

(fn CL-WHOLE &cl-quote &key NAME STATE EXTRA MARKED NEEDS-UPDATE DIRECTORY)
(defalias 'make-vc-dir-fileinfo--cmacro #[385 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\211\203R\211@\307>\203:\211AA\262
\202'\310>A@\203I\311\262
\202'\312\313@\"\210\202'\210\314\315\316\311\311&\207" [plist-member :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 (#$ . 5345)])
(put 'make-vc-dir-fileinfo 'compiler-macro 'make-vc-dir-fileinfo--cmacro)
#@110 Constructor for objects of type `vc-dir-fileinfo'.

(fn &key NAME STATE EXTRA MARKED NEEDS-UPDATE DIRECTORY)
(defalias 'make-vc-dir-fileinfo #[128 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\211\203R\211@\307>\203:\211AA\262
\202'\310>A@\203I\311\262
\202'\312\313@\"\210\202'\210\257\207" [plist-member :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 (#$ . 6253)])
(byte-code "\300\301\302\303#\300\207" [function-put make-vc-dir-fileinfo side-effect-free t] 4)
#@118 compiler-macro for inlining `vc-dir-create-fileinfo'.

(fn CL-WHOLE-ARG NAME STATE &optional EXTRA MARKED DIRECTORY)
(defalias 'vc-dir-create-fileinfo--cmacro #[1539 "\300\301\302\303\211\211\n\n\n\n\n&\n\207" [cl--defsubst-expand (name state extra marked directory) (cl-block vc-dir-create-fileinfo (list name state extra marked nil directory)) nil] 17 (#$ . 6976)])
(put 'vc-dir-create-fileinfo 'compiler-macro 'vc-dir-create-fileinfo--cmacro)
#@102 Constructor for objects of type `vc-dir-fileinfo'.

(fn NAME STATE &optional EXTRA MARKED DIRECTORY)
(defalias 'vc-dir-create-fileinfo #[1282 "\300\257\207" [nil] 11 (#$ . 7434)])
(byte-code "\300\301\302\303#\304\305\306\211\307\306\310\311\305\306&	\207" [function-put vc-dir-create-fileinfo side-effect-free t cl-struct-define vc-dir-fileinfo nil list ((name) (state) (extra) (marked) (needs-update) (directory)) cl-struct-vc-dir-fileinfo-tags] 11)
(defvar vc-ewoc nil)
#@65 The buffer used for the asynchronous call that computes status.
(defvar vc-dir-process-buffer nil (#$ . 7919))
#@50 The backend used by the current *vc-dir* buffer.
(defvar vc-dir-backend nil (#$ . 8036))
(defalias 'vc-dir-move-to-goal-column #[0 "\300 \210l?\205\n\301u\207" [beginning-of-line 25] 1])
#@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 "\304\305!!\262\212\211?\205B\3062B\211\205?\211@\307
!\2038\211q\210\310\311!\2038	=\2038\n\230\2038\312\306\"\210
A\266\202\202\262
0)\211\206\\r\313\305\"!q\210\314p!\210\315p)\207" [vc-dir-buffers vc-dir-backend default-directory vc-parent-buffer-name file-name-as-directory expand-file-name --cl-block-nil-- buffer-live-p derived-mode-p vc-dir-mode throw create-file-buffer vc-setup-buffer nil] 9 (#$ . 8231)])
#@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\302
\201E\201F#\210\302
\201G\201H#\210\302
\201I\201J#\210\302
\201K\201L#\210\302
\201M\201N#\210\302
\201O\201P#\210\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-unregistered] (menu-item "Mark Unregistered" vc-dir-mark-unregistered-files :help "Mark all files in the unregistered state") [mark-registered] (menu-item "Mark Registered" vc-dir-mark-registered-files :help "Mark all files in the state edited, added or removed") [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") [display] (menu-item "Display in Other Window" vc-dir-display-file :help "Display the file on the current line, in another window") [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") [delete] (menu-item "Delete" vc-dir-clean-files :help "Delete the unregistered marked files") [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] ("--") [push] (menu-item "Push Changes" vc-push :enable (vc-find-backend-function vc-dir-backend 'push) :help "Push the current branch's changes") [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") [ignore] (menu-item "Ignore Current File" vc-dir-ignore :help "Ignore the current file under current version control system")] 5) (#$ . 8828))
#@21 

(fn ORIG-BINDING)
(defalias 'vc-dir-menu-map-filter #[257 "\2119\203\301
!\203\302
!\262
\303\304!\205\305\306\"\211\204 
\207\307\310#\207" [vc-dir-backend fboundp indirect-function derived-mode-p vc-dir-mode vc-call-backend extra-status-menu append ("----")] 6 (#$ . 13834)])
#@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\330#\210\302
\331\332#\210\302
\333\334#\210\302
\335\336#\210\302
\337\340#\210\302
\341\342#\210\302
\343\340#\210\302
\344\345#\210\302
\346\345#\210\302
\347\350#\210\302
\351\352#\210\302
\353\352#\210\302
\354\355#\210\302
\356\350#\210\302
\357\355#\210\302
\360\350#\210\302
\361\355#\210\302
\362\363#\210\302
\364\363#\210\302
\365\363#\210\302
\366\367#\210\302
\370\371#\210\302
\372\373#\210\302
\374\375#\210\302
\376\377#\210\302
\201@\201A#\210\302
\201B\201C#\210\302
\201D\201E#\210\302
\201F\201G#\210\302
\201H\201I#\210\302
\201J\201K#\210\302
\201L\201M#\210\301 \302\201N#\210\302
\201O\201P#\210\302
\317\201Q#\210\302
\201R\201S#\266\301 \302\201T#\210\302
\201U\201V#\266\302
\201W\201X\201Y\201ZBBB#\210\207" [vc-dir-menu-map make-sparse-keymap define-key "v" vc-next-action "=" vc-diff "D" vc-root-diff "i" vc-register "+" vc-update "P" vc-push "l" vc-print-log "L" vc-print-root-log "I" vc-log-incoming "O" vc-log-outgoing "m" vc-dir-mark "d" vc-dir-clean-files "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 [33554464] [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-display-file "" vc-dir-kill-dir-status-process [down-mouse-3] vc-dir-menu [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 "G" vc-dir-ignore "B" "c" vc-create-tag vc-print-branch-log "s" vc-retrieve-tag "*" "r" vc-dir-mark-registered-files [menu-bar vc-dir-mode] menu-item "VC-Dir" (:filter vc-dir-menu-map-filter)] 8) (#$ . 14130))
#@168 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\307DDC\310\311\312DDD\313\314DDFEBB\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 (#$ . 16244)]))
#@32 Popup the VC dir menu.

(fn E)
(defalias 'vc-dir-menu #[257 "\212\211\301\232\204\302
!\303
\211@\262
!q\210\304
!b\266\305\")\207" [vc-dir-menu-map (tool-bar) event-start window-buffer posn-point popup-menu] 5 (#$ . 16715) "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\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))
#@13 

(fn NODE)
(defalias 'vc-dir-node-directory #[257 "\211\300H\301
8\206\302\303\304@!!!\207" [2 5 file-name-directory directory-file-name expand-file-name] 6 (#$ . 17976)])
#@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 "r
q\210\303\304\"\303\305\306\307\"\"\262
\262@\310\311\"\312\313	!\2043\314\312\211\211\211	\257\"\210\310\311\"\262\203J
\203J
@\315\316\317!!!\320!\211\231\203Y\321\"\262\266\2023\211\230\203
\322H\211@\262
\211\230\203x\321\"\262\266\2023\211\231\203\212\321\"\262\266\2023\211\230\203\346A@\203\311\322H\211A\211\nA@\240\266\322H\211AA\211\3228\240\266\322H\323
\233\211\312\240\266\324\"\210\202\320B\262\nA\262\n@\262\321\"\262\266\2023\204\366\325\326\327\f\"#\210\nA\262\n@\262\266\2023\204;
\313!\330\"\211\205
\320
!
\230\204.
\325\n\312\211\211\211\f\257#\210\266\325\326\327\"#\210	A\262\n	@\262\266\2023\204\224
\204\224
\320\310\331\"!\211\203\222
\211@\315\316\317@!!!
\230\204\202
\211\262\313
!\314\312\211\211\211\257\"\266\314\326\327\"\"\266
A\266\202\202Z
\266
\205\241
\332\326\333\237#)\266\204)\207" [vc-ewoc default-directory inhibit-read-only mapcar #[257 "\300\301\302@!!!
B\207" [file-name-directory directory-file-name expand-file-name] 5 "\n\n(fn ENTRY)"] cdr sort #[514 "
@
@

\231\203\f\300\207

\230\204\301\207A@A@\231\207" [t nil] 6 "\n\n(fn PAIR1 PAIR2)"] 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 (#$ . 18159)])
(defalias 'vc-dir-busy #[0 "\301!\205	\302!\207" [vc-dir-process-buffer buffer-live-p get-buffer-process] 2])
#@51 Kill the temporary buffer and associated process.
(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 (#$ . 19953) 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])
#@80 Go to the next line.
With prefix argument ARG, move 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 (#$ . 20442) "p"])
#@84 Go to the previous line.
With prefix argument ARG, move 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 (#$ . 20658) "p"])
#@27 Go to the next directory.
(defalias 'vc-dir-next-directory #[0 "`\30124\302\303!\"\211\204\304\301\305\"\266\202\306\"\210\307 \210\211\310H\311
8\262
\2030\304\301\312\"\210\210\202\2059\211b\207" [vc-ewoc foundit ewoc-next ewoc-locate throw t ewoc-goto-node vc-dir-move-to-goal-column 2 5 nil] 5 (#$ . 20882) nil])
#@31 Go to the previous directory.
(defalias 'vc-dir-previous-directory #[0 "`\30124\302\303!\"\211\204\304\301\305\"\266\202\306\"\210\307 \210\211\310H\311
8\262
\2030\304\301\312\"\210\210\202\2059\211b\207" [vc-ewoc foundit ewoc-prev ewoc-locate throw t ewoc-goto-node vc-dir-move-to-goal-column 2 5 nil] 5 (#$ . 21219) nil])
#@29 

(fn MARK-UNMARK-FUNCTION)
(defalias 'vc-dir-mark-unmark #[257 "\300 \2037\301\302\303 !\212\304 b\210\302 
X\2055
\302 =?\2055\302 \262\3051- 0\210\202\210\306\307!\210\202)\207\211 \207" [use-region-p nil line-number-at-pos region-end region-beginning (error) vc-dir-next-line 1] 5 (#$ . 21564)])
#@12 

(fn ARG)
(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 (#$ . 21880)])
#@12 

(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
\266\203\202\n\305\262\266\202\n\207" [vc-ewoc "\\`" regexp-quote vc-dir-node-directory t nil ewoc-next 2 string-match 3] 10 (#$ . 22141)])
#@22 

(fn &optional ARG)
(defalias 'vc-dir-mark-file #[256 "\211\206\302!\211\303H\304
8\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 (#$ . 22450)])
#@181 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.
(defalias 'vc-dir-mark #[0 "\300\301!\207" [vc-dir-mark-unmark vc-dir-mark-file] 2 (#$ . 22947) nil])
#@332 Mark all files with the same state as the current one.
With prefix argument ARG, mark all files (not directories).
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\306
8\203F\307\310\"\211\262\205E\305H\211\262\205E\306
8?\205E\311
\233\211\312\240\266\313\"\210\202\207\211A@\314\315\"\262\205x\305H\311
8\204n\211A@=\203n\306
8\204n\316!\210\210\310\"\262\202O\207" [vc-ewoc ewoc-map #[257 "\300
8\205\301
8\205\302\303@\"\207" [5 3 error "Cannot mark all files, directory `%s' marked"] 4 "\n\n(fn FILEARG)"] #[257 "\300
8\206	\301
8?\205\301
\233\211\302\240\266\302\207" [5 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 (#$ . 23236) "P"])
#@132 Mark files specified by file names in the argument MARK-FILES.
MARK-FILES should be a list of absolute filenames.

(fn MARK-FILES)
(defalias 'vc-dir-mark-files #[257 "\301\302\303\"\"\207" [vc-ewoc ewoc-map make-closure #[257 "\301
@!\300\235\205\302
\233\211\303\240\266\303\207" [V0 expand-file-name 3 t] 4 "\n\n(fn FILEARG)"]] 5 (#$ . 24248)])
#@80 Mark files that are in the state specified by the list in STATES.

(fn STATES)
(defalias 'vc-dir-mark-state-files #[257 "\211C\211\242<\204\211
\242C\240\210\301\302\303\"\"\207" [vc-ewoc ewoc-map make-closure #[257 "\211A@\300\242>\205\301
\233\211\302\240\266\302\207" [V0 3 t] 4 "\n\n(fn FILEARG)"]] 6 (#$ . 24606)])
#@75 Mark files that are in one of registered state: edited, added or removed.
(defalias 'vc-dir-mark-registered-files #[0 "\300\301!\207" [vc-dir-mark-state-files (edited added removed)] 2 (#$ . 24939) nil])
#@44 Mark files that are in unregistered state.
(defalias 'vc-dir-mark-unregistered-files #[0 "\300\301!\207" [vc-dir-mark-state-files unregistered] 2 (#$ . 25149) nil])
(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])
#@187 Unmark the current file or all files in the region.
If the region is active, unmark all the files in the region.
Otherwise unmark the file on the current line and move to the next
line.
(defalias 'vc-dir-unmark #[0 "\300\301!\207" [vc-dir-mark-unmark vc-dir-unmark-file] 2 (#$ . 25539) nil])
#@48 Move to the previous line and unmark the file.
(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 (#$ . 25837) nil])
#@326 Unmark all files with the same state as the current one.
With prefix argument ARG, 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\305
8\2039\306\"\211\262\205J
\304H\305
8\2045\307
\233\211\310\240\266\311\"\210\210\202
\304H\211A@\262
\301\312\313\"\"\262
\207" [vc-ewoc ewoc-map #[257 "\300
8\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-closure #[257 "\301
8\205\211A@\300=\205\301
\233\211\302\240\266\303\207" [V0 3 nil t] 4 "\n\n(fn FILEARG)"]] 8 (#$ . 26097) "P"])
(defalias 'vc-dir-toggle-mark-file #[0 "\301!\211\302H\303
8\203\304 \207\305 \207" [vc-ewoc ewoc-locate 2 3 vc-dir-unmark-file vc-dir-mark-file] 4])
#@10 

(fn E)
(defalias 'vc-dir-toggle-mark #[257 "\212\211\300\232\204\301
!\302
\211@\262
!q\210\303
!b\266\304\305!)\207" [(tool-bar) event-start window-buffer posn-point vc-dir-mark-unmark vc-dir-toggle-mark-file] 5 (#$ . 27105) "e"])
#@156 Delete the marked files, or the current file if no marks.
The files will not be marked as deleted in the version control
system; see `vc-dir-delete-file'.
(defalias 'vc-dir-clean-files #[0 "\300 \206\301 C\302\303\"\211\203\304\305\306\307G#\310\311\312#\"\210\313\314\315#\210\316 \207" [vc-dir-marked-files vc-dir-current-file seq-filter #[257 "\301\302#\303=?\207" [vc-dir-backend vc-call-backend state unregistered] 5 "\n\n(fn FILE)"] user-error ngettext "Trying to clean tracked file: %s" "Trying to clean tracked files: %s" mapconcat file-name-nondirectory ", " map-y-or-n-p "Delete %s? " delete-file revert-buffer] 8 (#$ . 27349) nil])
#@131 Delete the marked files, or the current file if no marks.
The files will also be marked as deleted in the version control
system.
(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 (#$ . 28009) nil])
#@36 Find the file on the current line.
(defalias 'vc-dir-find-file #[0 "\300\301 !\207" [find-file vc-dir-current-file] 2 (#$ . 28297) 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 (#$ . 28440) (list last-nonmenu-event)])
#@80 Display the file on the current line, in another window.

(fn &optional EVENT)
(defalias 'vc-dir-display-file #[256 "\211\203\n\300\301!!\210\302\303\304 !\305\"\207" [posn-set-point event-end display-buffer find-file-noselect vc-dir-current-file t] 4 (#$ . 28725) (list last-nonmenu-event)])
#@50 Examine a file on the current line in view mode.
(defalias 'vc-dir-view-file #[0 "\300\301 !\207" [view-file vc-dir-current-file] 2 (#$ . 29026) nil])
#@63 Search for a string through all marked buffers using Isearch.
(defalias 'vc-dir-isearch #[0 "\300\301\302\303 \"!\207" [multi-isearch-files mapcar car vc-dir-marked-only-files-and-states] 4 (#$ . 29183) nil])
#@63 Search for a regexp through all marked buffers using Isearch.
(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 (#$ . 29398) nil])
#@243 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 \[fileloop-continue].

(fn REGEXP)
(defalias 'vc-dir-search #[257 "\300
\301\302\303 \"\"\207" [tags-search mapcar car vc-dir-marked-only-files-and-states] 6 (#$ . 29628) "sSearch marked files (regexp): "])
#@589 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.

As each match is found, the user must type a character saying
what to do with it.  Type SPC or `y' to replace the match,
DEL or `n' to skip and go to the next match.  For more directions,
type \[help-command] at that time.

If you exit (\[keyboard-quit], RET or q), you can resume the query replace
with the command \[fileloop-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\210
A\266\202\202\210\307\301\302\303 \"\211\227\232?\205;\310%\210\311 \207" [buffer-read-only mapcar car vc-dir-marked-only-files-and-states get-file-buffer error "File `%s' is visited read-only" fileloop-initialize-replace default fileloop-continue] 9 (#$ . 30049) (byte-code "\300\301\302\211#\211@
A@\3038E\207" [query-replace-read-args "Query replace regexp in marked files" t 2] 5)])
#@102 Ignore the current file.
If a prefix argument is given, ignore all marked files.

(fn &optional ARG)
(defalias 'vc-dir-ignore #[256 "\211\203	\301\302\"\207\303 \304\305\306 \"\"\207" [vc-ewoc ewoc-map #[257 "\300
8\205\f\301
@!\210\302\207" [3 vc-ignore t] 3 "\n\n(fn FILEARG)"] vc--ignore-base-dir vc-ignore file-relative-name vc-dir-current-file] 6 (#$ . 31170) "P"])
(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])
#@34 Return the list of marked files.
(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 (#$ . 31715)])
#@140 Return the list of conses (FILE . STATE) for the marked files.
For marked directories return the corresponding conses for the
child files.
(defalias 'vc-dir-marked-only-files-and-states #[0 "\301\302\"\303
\203q
\304H\305
8\203g\306
8\203Q\306
8\303\307\"\211\262\203L\310\304H\262\311!\"\203L\306
8\204\312
@!
A@BB\262\202\266\202\312
@!
A@BB\262\307\"\262\210\202\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 (#$ . 31947)])
#@284 Return the state of one or more files for the current entry.
If the entry is a directory, return the list of states of its child
files, where each file is described by a cons of the form (FILE . STATE).
If the entry is a file, return a single cons cell (FILE . STATE) for
that file.
(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\304
8\204\310
@!
A@BB\262\202\266\202R\310@!A@B
B\262
\211\237\207" [vc-ewoc ewoc-locate 2 nil 5 ewoc-next string-prefix-p vc-dir-node-directory expand-file-name] 9 (#$ . 32501)])
#@22 

(fn FNAME DEF-DIR)
(defalias 'vc-dir-recompute-file-state #[514 "\301\"\302=\203\303\304#\210\305\303\306#\303\307#E\207" [vc-dir-backend file-relative-name CVS vc-call-backend registered nil state status-fileinfo-extra] 9 (#$ . 33124)])
#@16 

(fn DIRNAME)
(defalias 'vc-dir-find-child-files #[257 "\301\302\"\303
\203\304\305!\"\204\306\"\262\202
\203C\304\305!\"\203C
\307H\310
8\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 (#$ . 33386)])
#@16 

(fn DIRNAME)
(defalias 'vc-dir-resync-directory-files #[257 "\301
!\302\205$\211\203\211@\303
\"B\262
A\266\202\202\n\210\304
p\"\207" [default-directory vc-dir-find-child-files nil vc-dir-recompute-file-state vc-dir-update] 9 (#$ . 33707)])
#@91 Update the entries for FNAME in any directory buffers that list it.

(fn &optional FNAME)
(defalias 'vc-dir-resynch-file #[256 "\305
\206!\306r	\211\203m\211@\307
!\204\211B\262\202f\211q\210\310\311!\204/\211B\262\202f\n\312
\"\203e\313!\203O\314!\210\315\316\f\n\"\317#\266\202f\320\"\211A@\321C?\206b\322=#\266\210
A\266\202\202\n\210)\211\211\205\202\211@\323
	\"
A\266\202\202p\207" [buffer-file-name vc-dir-buffers default-directory vc-ewoc vc-dir-backend 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 (#$ . 33967)])
(defvar vc-dir-mode-hook nil)
(byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [vc-dir-mode-hook variable-documentation put "Hook run after 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] 4)
(defvar vc-dir-mode-map (make-sparse-keymap))
(byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [vc-dir-mode-abbrev-table vc-dir-mode-map variable-documentation put purecopy "Keymap for `vc-dir-mode'." boundp vc-dir-mode-syntax-table definition-name vc-dir-mode (lambda (#1=#:def-tmp-var) (defvar vc-dir-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-dir-mode'." (lambda (#1#) (defvar vc-dir-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vc-dir-mode'." derived-mode-parent special-mode] 5)
#@1781 Major mode for VC directory buffers.
Marking/Unmarking key bindings and actions: \<vc-dir-mode-map>
\[vc-dir-mark] - 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
\[vc-dir-unmark] - unmark a file/directory
  - if the region is active, unmark all the files in region.
\[vc-dir-mark-all-files] - 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
\[vc-dir-unmark-all-files] - 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

VC commands
VC commands in the \[vc-prefix-map] prefix can be used.
VC commands act on the marked entries.  If nothing is marked, VC
commands act on the current entry.

Search & Replace
\[vc-dir-search] - searches the marked files
\[vc-dir-query-replace-regexp] - does a query replace on the marked files
\[vc-dir-isearch] - does an isearch on the marked files
\[vc-dir-isearch-regexp] - 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 or
penultimate step during initialization.
(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
3=\204R\326
\3253C#\210\327!\210\330\f!\210
3\306\331!\2104\306\332!\210\333\306\334!\210\335\3075\336\337!\203\204\306\337!\2106\3405\341 \210\306\342!\210\340\"\306\343!\210\344\345!#\306\346!\210\347&\350\3517\"8\352\353p\"\210\354\355\356\340\307$\210\357 \210\360 \210*\361\362!\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 desktop-save-buffer vc-dir-desktop-buffer-misc-data bookmark-make-record-function vc-dir-bookmark-make-record 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 (#$ . 35844) 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 vc-dir-header format "%s\n" vc-dir-header-value "Working dir: " abbreviate-file-name vc-call-backend dir-extra-headers "\n"] 10 (#$ . 39128)])
#@56 Refresh some FILES in the *VC-dir* buffer.

(fn FILES)
(defalias 'vc-dir-refresh-files #[257 "	\303 \210\304\n!\204\305\306\307\"!pr\nq\210\310 \210\311\312\313\314\"%)\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-closure #[513 "r\300q\210\303\300\"\210\211?\205\304\305\n\306\")\207" [V0 mode-line-process vc-ewoc vc-dir-update nil ewoc-filter #[257 "\300
8\203\211A@\301=\203\211A\211\302\240\266\303
8?\207" [5 up-to-date nil 4] 4 "\n\n(fn INFO)"]] 5 "\n\n(fn ENTRIES &optional MORE-TO-COME)"]] 12 (#$ . 39606)])
#@40 

(fn &optional IGNORE-AUTO NOCONFIRM)
(defalias 'vc-dir-revert-buffer-function #[512 "\300 \207" [vc-dir-refresh] 3 (#$ . 40312)])
#@103 Refresh the contents of the *VC-dir* buffer.
Throw an error if another update process is in progress.
(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\"%)\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 "\300
8?\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-files nil make-closure #[513 "r\300q\210\303\300\"\210\211?\205&\304	\305\"\211\203\306\307\310\"!\202$\311\312\313!\262
)\207" [V0 vc-ewoc mode-line-process vc-dir-update ewoc-collect vc-dir-fileinfo->needs-update vc-dir-refresh-files mapcar vc-dir-fileinfo->name nil run-hooks vc-dir-refresh-hook] 7 "\n\n(fn ENTRIES &optional MORE-TO-COME)"]] 11 (#$ . 40451) 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 (#$ . 41531) "fShow file: "])
#@267 Hide items that are in STATE from display.
See `vc-state' for valid values of STATE.

If STATE is nil, hide both `up-to-date' and `ignored' items.

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

(fn &optional STATE)
(defalias 'vc-dir-hide-state #[256 "\211\203\f\302\303\"\210\202\302\304!\210\305\306\"\305\307\"

=?\205h
\310H\311
8\312\"\313\"\314\203C
\203Y
\310H\311
8\262
\204Y\203QA@\232\202VA@\315>\203_\316\"\210\211\262)\266\202\207" [vc-ewoc inhibit-read-only message "Hiding items in state \"%s\"" "Hiding up-to-date and ignored items" ewoc-nth -1 0 2 5 ewoc-next ewoc-prev t (up-to-date ignored) ewoc-delete] 10 (#$ . 41888) (byte-code "\205\302	!\211\205\211\303H\211A@\262
\262
C\207" [current-prefix-arg vc-ewoc ewoc-locate 2] 3)])
(defalias 'vc-dir-hide-up-to-date 'vc-dir-hide-state)
#@39 Remove the current line from display.
(defalias 'vc-dir-kill-line #[0 "\302!\303\304\")\207" [vc-ewoc inhibit-read-only ewoc-locate t ewoc-delete] 4 (#$ . 42784) nil])
#@18 

(fn FILEENTRY)
(defalias 'vc-dir-printer #[257 "\301\302#\207" [vc-dir-backend vc-call-backend dir-printer] 5 (#$ . 42962)])
#@41 

(fn &optional STATE-MODEL-ONLY-FILES)
(defalias 'vc-dir-deduce-fileset #[256 "\301 \302\211\211\211\203\262\203(\303 \262\202(\304 \211C\262\203'\305 \262\210\203m@A\262A\211\203V\211@\306
A\"\204O\307\310@A@@%\210
A\266\202\2023\210\311\312\"\262
\203m
\313=\204m\314\"\262
\257\207" [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] 14 (#$ . 43097)])
#@164 Run `vc-dir' in the repository root directory without prompt.
If the default directory of the current buffer is
not under version control, prompt for a directory.
(defalias 'vc-dir-root #[0 "\300 \211\203\n\301
!\207\302\301!\207" [vc-root-dir vc-dir call-interactively] 3 (#$ . 43791) nil])
#@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 (#$ . 44091) (byte-code "\302\303\304\305 \306\307\306%!\205\310\311\312\313\314	\"\306\307\306\211&!D\207" [current-prefix-arg vc-handled-backends file-truename read-directory-name "VC status for directory: " vc-root-dir nil t intern completing-read "Use VC backend: " mapcar #[257 "\300
!C\207" [symbol-name] 3 "\n\n(fn B)"]] 9)])
#@20 

(fn BACKEND DIR)
(defalias 'vc-default-dir-extra-headers #[514 "\300\301\302\303#\300\304\302\305#P\207" [propertize "Extra      : " face vc-dir-header "Please add backend specific headers here.  It's easy!" vc-dir-status-warning] 7 (#$ . 45384)])
#@33 Local keymap for toggling mark.
(defvar vc-dir-status-mouse-map (byte-code "\300 \301
\302\303#\210\207" [make-sparse-keymap define-key [mouse-2] vc-dir-toggle-mark] 5) (#$ . 45640))
#@35 Local keymap for visiting a file.
(defvar vc-dir-filename-mouse-map (byte-code "\300 \301
\302\303#\210\207" [make-sparse-keymap define-key [mouse-2] vc-dir-find-file-other-window] 5) (#$ . 45829))
#@49 Pretty print FILEENTRY.

(fn BACKEND FILEENTRY)
(defalias 'vc-default-dir-printer #[514 "\302
8\211\203\303\202
A@@\304\305\306\3078\203\310\202\311\"\312\313#\314\304\305\315\"\312\316\267\202>\317\202?\320\202?\321\202?\322\323\324\325&\326\304\305\327\"\312	\203V\330\202W\331\332\203a\333\202b\334\323\324\325	&	\261\207" [vc-dir-status-mouse-map vc-dir-filename-mouse-map 5 "" propertize format "%c" 3 42 32 face vc-dir-mark-indicator "   " "%-20s" #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (up-to-date 50 missing 54 conflict 54 needs-update 54 unlocked-changes 54 ignored 58)) vc-dir-status-up-to-date vc-dir-status-warning vc-dir-status-ignored vc-dir-status-edited mouse-face highlight keymap " " "%s" vc-dir-directory vc-dir-file help-echo "Directory\nVC operations can be applied to it\nmouse-3: Pop-up menu" "File\nmouse-3: Pop-up menu"] 19 (#$ . 46033)])
#@16 

(fn BACKEND)
(defalias 'vc-default-extra-status-menu #[257 "\300\207" [nil] 2 (#$ . 46980)])
#@78 Default absence of extra information returned for a file.

(fn BACKEND FILE)
(defalias 'vc-default-status-fileinfo-extra #[514 "\300\207" [nil] 3 (#$ . 47081)])
#@66 Auxiliary information to be saved in desktop file.

(fn DIRNAME)
(defalias 'vc-dir-desktop-buffer-misc-data #[257 "\302\"	B\207" [default-directory vc-dir-backend desktop-file-name] 4 (#$ . 47248)])
#@92 Restore a `vc-dir' buffer specified in a desktop file.

(fn FILENAME BUFFERNAME MISC-DATA)
(defalias 'vc-dir-restore-desktop-buffer #[771 "\211@
A\301!\203\302\"\210p\207\303\304\"\210\203\305\306!\210\307\207" [desktop-missing-file-warning file-directory-p vc-dir message "Desktop: Directory %s no longer exists." sit-for 1 nil] 8 (#$ . 47455)])
(add-to-list 'desktop-buffer-mode-handlers '(vc-dir-mode . vc-dir-restore-desktop-buffer))
#@128 Make record used to bookmark a `vc-dir' buffer.
This implements the `bookmark-make-record-function' type for
`vc-dir' buffers.
(defalias 'vc-dir-bookmark-make-record #[0 "\302\303!\304\305\306	!!R\211	D
\307\310\311!\312	B\313\314BE\"B\207" [vc-dir-backend default-directory "(" symbol-name ") " file-name-nondirectory directory-file-name append bookmark-make-record-default no-file filename (handler . vc-dir-bookmark-jump) defaults] 9 (#$ . 47909)])
#@183 Provide the `bookmark-jump' behavior for a `vc-dir' buffer.
This implements the `handler' function interface for the record
type returned by `vc-dir-bookmark-make-record'.

(fn BMK)
(defalias 'vc-dir-bookmark-jump #[257 "\300
\301\"\302
!\210p\303\304\305B\306!BB!\207" [bookmark-prop-get filename vc-dir bookmark-default-handler "" buffer bookmark-get-bookmark-record] 8 (#$ . 48371)])
(provide 'vc-dir)