;ELC
;;; Compiled
;;; in Emacs version 26.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&\207" [require vc-hooks vc tool-bar ewoc 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] 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 (car cl-x)) nil] 9 (#$ . 715)])
(put 'vc-dir-fileinfo->name 'compiler-macro 'vc-dir-fileinfo->name--cmacro)
#@209 Access slot "name" of `(vc-dir-fileinfo (:copier nil) (:type list) (:constructor vc-dir-create-fileinfo (name state &optional extra marked directory)) (:conc-name vc-dir-fileinfo->))' struct CL-X.
(fn CL-X)
(defalias 'vc-dir-fileinfo->name #[257 "\211@\207" [] 2 (#$ . 1049)])
(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 (nth 1 cl-x)) nil] 9 (#$ . 1431)])
(put 'vc-dir-fileinfo->state 'compiler-macro 'vc-dir-fileinfo->state--cmacro)
#@210 Access slot "state" of `(vc-dir-fileinfo (:copier nil) (:type list) (:constructor vc-dir-create-fileinfo (name state &optional extra marked directory)) (:conc-name vc-dir-fileinfo->))' struct CL-X.
(fn CL-X)
(defalias 'vc-dir-fileinfo->state #[257 "\211A@\207" [] 2 (#$ . 1773)])
(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 (nth 2 cl-x)) nil] 9 (#$ . 2159)])
(put 'vc-dir-fileinfo->extra 'compiler-macro 'vc-dir-fileinfo->extra--cmacro)
#@210 Access slot "extra" of `(vc-dir-fileinfo (:copier nil) (:type list) (:constructor vc-dir-create-fileinfo (name state &optional extra marked directory)) (:conc-name vc-dir-fileinfo->))' struct CL-X.
(fn CL-X)
(defalias 'vc-dir-fileinfo->extra #[257 "\3008\207" [2] 3 (#$ . 2501)])
(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 (nth 3 cl-x)) nil] 9 (#$ . 2888)])
(put 'vc-dir-fileinfo->marked 'compiler-macro 'vc-dir-fileinfo->marked--cmacro)
#@211 Access slot "marked" of `(vc-dir-fileinfo (:copier nil) (:type list) (:constructor vc-dir-create-fileinfo (name state &optional extra marked directory)) (:conc-name vc-dir-fileinfo->))' struct CL-X.
(fn CL-X)
(defalias 'vc-dir-fileinfo->marked #[257 "\3008\207" [3] 3 (#$ . 3235)])
(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 (nth 4 cl-x)) nil] 9 (#$ . 3625)])
(put 'vc-dir-fileinfo->needs-update 'compiler-macro 'vc-dir-fileinfo->needs-update--cmacro)
#@217 Access slot "needs-update" of `(vc-dir-fileinfo (:copier nil) (:type list) (:constructor vc-dir-create-fileinfo (name state &optional extra marked directory)) (:conc-name vc-dir-fileinfo->))' struct CL-X.
(fn CL-X)
(defalias 'vc-dir-fileinfo->needs-update #[257 "\3008\207" [4] 3 (#$ . 4002)])
(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 (nth 5 cl-x)) nil] 9 (#$ . 4410)])
(put 'vc-dir-fileinfo->directory 'compiler-macro 'vc-dir-fileinfo->directory--cmacro)
#@214 Access slot "directory" of `(vc-dir-fileinfo (:copier nil) (:type list) (:constructor vc-dir-create-fileinfo (name state &optional extra marked directory)) (:conc-name vc-dir-fileinfo->))' struct CL-X.
(fn CL-X)
(defalias 'vc-dir-fileinfo->directory #[257 "\3008\207" [5] 3 (#$ . 4772)])
(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 (#$ . 5172)])
(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 (#$ . 6080)])
(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 (#$ . 6803)])
(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 (#$ . 7261)])
(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 (#$ . 7746))
#@50 The backend used by the current *vc-dir* buffer.
(defvar vc-dir-backend nil (#$ . 7863))
(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\"\210A\266\202\202 \2620)\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 (#$ . 8058)])
#@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\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") [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") [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) (#$ . 8655))
#@21
(fn ORIG-BINDING)
(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 (#$ . 13235)])
#@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\336#\210\302\342\343#\210\302\344\343#\210\302\345\346#\210\302\347\350#\210\302\351\350#\210\302\352\353#\210\302\354\346#\210\302\355\353#\210\302\356\346#\210\302\357\353#\210\302\360\361#\210\302\362\361#\210\302\363\361#\210\302\364\365#\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\302\201T \201U \201V \201W BBB#\210\211\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 "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 [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 "G" vc-dir-ignore "B" "c" vc-create-tag vc-print-branch-log "s" vc-retrieve-tag [menu-bar vc-dir-mode] menu-item "VC-Dir" (:filter vc-dir-menu-map-filter)] 8) (#$ . 13534))
#@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\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 (#$ . 15576)]))
#@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 (#$ . 16045) "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))
#@13
(fn NODE)
(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 (#$ . 17310)])
#@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\2038\2038@\312\313\314!!!\315!\211\231\203N \316\"\262\2023\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\2023\204)\310!\325\"\211\205\315!\230\204 \322\n\307\211\211\211\f\257#\210\266\322\323\324 \"#\210 A\262\n @\262\266\202* \204\202\204\202\315\305\326\"!\211\203\200\211@\312\313\314@!!!\230\204p\211\262\310!\311\307\211\211\211\257\"\266\311\323\324\"\"\266A\266\202\202H\266\205\217\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 (#$ . 17493)])
(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 (#$ . 19214) 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])
#@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 (#$ . 19703) "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 (#$ . 19927) "p"])
#@27 Go to the next directory.
(defalias 'vc-dir-next-directory #[0 "`\30123 \302\303!\"\211\204 \304\301\305\"\210\202/ \306\"\210\307 \210\211\310H\3118\262\203/ \304\301\312\"\210\210\202 \2058 \211b\207" [vc-ewoc foundit ewoc-next ewoc-locate throw t ewoc-goto-node vc-dir-move-to-goal-column 2 5 nil] 5 (#$ . 20159) nil])
#@31 Go to the previous directory.
(defalias 'vc-dir-previous-directory #[0 "`\30123 \302\303!\"\211\204 \304\301\305\"\210\202/ \306\"\210\307 \210\211\310H\3118\262\203/ \304\301\312\"\210\210\202 \2058 \211b\207" [vc-ewoc foundit ewoc-prev ewoc-locate throw t ewoc-goto-node vc-dir-move-to-goal-column 2 5 nil] 5 (#$ . 20495) nil])
#@29
(fn MARK-UNMARK-FUNCTION)
(defalias 'vc-dir-mark-unmark #[257 "\300 \203) \301\302 !\212\303 b\210\301 X\205' \3041 0\202# \210\305\306!\210\202 )\207\211 \207" [use-region-p line-number-at-pos region-end region-beginning (error) vc-dir-next-line 1] 4 (#$ . 20839)])
#@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 (#$ . 21119)])
#@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 \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 (#$ . 21380)])
#@22
(fn &optional 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 (#$ . 21685)])
#@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 (#$ . 22182) 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 (#$ . 22471) "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])
#@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 (#$ . 23678) 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 (#$ . 23976) 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 (#$ . 24236) "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])
#@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 (#$ . 25282) "e"])
#@59 Delete the marked files, or the current file if no marks.
(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 (#$ . 25525) 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 (#$ . 25741) 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 (#$ . 25884) (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 (#$ . 26169) (list last-nonmenu-event)])
#@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 (#$ . 26470) 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 (#$ . 26685) 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 (#$ . 26915) "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 (#$ . 27331) (byte-code "\300\301\302\211#\211@A@\3038E\207" [query-replace-read-args "Query replace regexp in marked files" t 2] 5)])
#@26 Ignore the current file.
(defalias 'vc-dir-ignore #[0 "\300\301 !\207" [vc-ignore vc-dir-current-file] 2 (#$ . 28199) nil])
(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 (#$ . 28492)])
#@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\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 (#$ . 28724)])
#@168 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.
(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 (#$ . 29274)])
#@22
(fn FNAME DEF-DIR)
(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 (#$ . 29781)])
#@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\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 (#$ . 30031)])
#@16
(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 (#$ . 30352)])
#@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\203l \211@\307!\204 \211B\262\202e \211q\210\310\311!\204/ \211B\262\202e \n\312\"\203d \313!\203N \314!\210\315 \316\f\n\"\317#\210\202d \320\"\211A@\321C?\206a \322=#\266\210A\266\202\202\n \210)\211\211\205\201 \211@\323 \"A\266\202\202o \262\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 (#$ . 30612)])
(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)
#@1646 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 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
1=\204R \326
\3251C#\210\327 !\210\330\f!\210
1\306\331!\2102\306\332!\210\333\3073\334\335!\203} \306\335!\2104 \336 3\337 \210\306\340!\210\336 \306\341!\210\342\343!!\306\344!\210\345$\346\3475\"6\350\351p\"\210\352\353\354\336\307$\210\355 \210\356 \210*\357\360!\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 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 (#$ . 32493) 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 (#$ . 35561)])
#@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\315\316\317\n!\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)"] 15 (#$ . 36054)])
#@40
(fn &optional IGNORE-AUTO NOCONFIRM)
(defalias 'vc-dir-revert-buffer-function #[512 "\300 \207" [vc-dir-refresh] 3 (#$ . 36803)])
#@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\327\330\331\n!\332\"\333\334%%)\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-files nil make-byte-code 513 "r\300q\210\303\300\"\210\211?\205$ \304 \305\"\211\203 \306\307\310\"!\202\" \311\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 nil] 7 "\n\n(fn ENTRIES &optional MORE-TO-COME)"] 14 (#$ . 36942) 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 (#$ . 38031) "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\3118\312\"\313\"\314\203C \203Y \310H\3118\262\204Y \203Q A@\232\202V A@\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 (#$ . 38388) (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)
#@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 (#$ . 39284) nil])
#@18
(fn FILEENTRY)
(defalias 'vc-dir-printer #[257 "\301\302#\207" [vc-dir-backend vc-call-backend dir-printer] 5 (#$ . 39462)])
#@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@\306A\"\204O \307\310@A@@%\210A\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 (#$ . 39597)])
#@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 (#$ . 40291) (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 font-lock-type-face "Please add backend specific headers here. It's easy!" font-lock-warning-face] 7 (#$ . 41584)])
#@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) (#$ . 41847))
#@49 Pretty print FILEENTRY.
(fn BACKEND FILEENTRY)
(defalias 'vc-default-dir-printer #[514 "\3018\211\203 \302\202 A@@\303\304\305\3068\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 (#$ . 42055)])
#@16
(fn BACKEND)
(defalias 'vc-default-extra-status-menu #[257 "\300\207" [nil] 2 (#$ . 42900)])
#@78 Default absence of extra information returned for a file.
(fn BACKEND FILE)
(defalias 'vc-default-status-fileinfo-extra #[514 "\300\207" [nil] 3 (#$ . 43001)])
#@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 (#$ . 43168)])
#@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\202! \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 (#$ . 43375)])
(byte-code "\300\301\302\"\210\303\304!\207" [add-to-list desktop-buffer-mode-handlers (vc-dir-mode . vc-dir-restore-desktop-buffer) provide vc-dir] 3)
|