;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:53:09 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/vc-git.el ;;; in Emacs version 23.4.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; #@139 String or list of strings specifying switches for Git diff under VC. If nil, use the value of `vc-diff-switches'. If t, use no switches. (custom-declare-variable 'vc-git-diff-switches 't '(#$ . 537) :type '(choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) :version "23.1" :group 'vc) #@40 Default coding system for git commits. (defvar vc-git-commits-coding-system 'utf-8 (#$ . 921)) (defalias 'vc-git-revision-granularity #[nil "\300\207" [repository] 1]) (defalias 'vc-git-checkout-model #[(files) "\300\207" [implicit] 1]) #@44 Check whether FILE is registered with git. (defalias 'vc-git-registered #[(file) "\306!\211\2056\307\310!r\nq\210\311\216\312\313 \"\312\314\315\217\211\2054 G\fGV\2054 \316\fGTO\f\317P\230.)\207" [file dir #1=#:temp-buffer process-file-side-effects name str vc-git-root generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil file-relative-name (byte-code "\302!\210\303\304\305\306\307 %\210ed=\203\303\310\311\306\312\307 &\210\313 \207" [dir name cd vc-git--out-ok "ls-files" "-c" "-z" "--" "ls-tree" "--name-only" "HEAD" buffer-string] 7) ((error)) 0 ""] 4 (#$ . 1164)]) #@58 Convert from a string to a added/deleted/modified state. (defalias 'vc-git--state-code #[(code) "\301!\302=\203\n\303\207\301!\304=\203\305\207\301!\306=\203\307\207\301!\310=\203(\303\207\301!\311=\2051\303\207" [code string-to-char 77 edited 65 added 68 removed 85 84] 2 (#$ . 1820)]) #@37 Git-specific version of `vc-state'. (defalias 'vc-git-state #[(file) "\302!\204\303\207\304\305\306\307\310\311!%\210\312\313\314\315\310%\211\203.\316\317 \"\203.\320\321\322 \"!\2028\323 \2037\324\2028\325)\207" [file diff vc-git-registered unregistered vc-git--call nil "add" "--refresh" "--" file-relative-name vc-git--run-command-string "diff-index" "-z" "HEAD" string-match ":[0-7]\\{6\\} [0-7]\\{6\\} [0-9a-f]\\{40\\} [0-9a-f]\\{40\\} \\([ADMUT]\\)[^]+" vc-git--state-code match-string 1 vc-git--empty-db-p added up-to-date] 8 (#$ . 2125)]) #@48 Git-specific version of `vc-working-revision'. (defalias 'vc-git-working-revision #[(file) "\303\304\305\306!!\307\216 r q\210\310\311\312\"\210*r q\210\313 +\314\315\n\"\203,\316\317\n\"\202-\n*\207" [process-file-side-effects standard-output str nil get-buffer-create generate-new-buffer-name " *string-output*" ((kill-buffer standard-output)) vc-git--out-ok "symbolic-ref" "HEAD" buffer-string string-match "^\\(refs/heads/\\)?\\(.+\\)$" match-string 2] 3 (#$ . 2693)]) (defalias 'vc-git-workfile-unchanged-p #[(file) "\301!\302=\207" [file vc-git-state up-to-date] 2]) #@57 Return string for placement into the modeline for FILE. (defalias 'vc-git-mode-line-string #[(file) "\304!\305\306\"\307\310\303\n#\311 G!\203\"\312\n\313P\303 \314P#\202*\312\n\303 \315 Q#+\207" [file branch def-ml help-echo vc-git-working-revision vc-default-mode-line-string Git get-text-property 0 zerop propertize "!" "\nNo current branch (detached HEAD)" "\nCurrent branch: "] 6 (#$ . 3279)]) (byte-code "\301\302\303\304#\210\302\305N\204\301\302\305\306#\210\307\301\302\310\311\312!!#\210)\301\207" [file put vc-git-extra-fileinfo->old-perm cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block vc-git-extra-fileinfo->old-perm (or (and (memq (aref cl-x 0) cl-struct-vc-git-extra-fileinfo-tags)) (error "vc-git-extra-fileinfo->old-perm accessing a non-vc-git-extra-fileinfo")) (aref cl-x 1)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/build/buildd/emacs23-23.4+1/debian/build-x/lisp/vc-git.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'vc-git-extra-fileinfo->old-perm #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-vc-git-extra-fileinfo-tags 0 error "vc-git-extra-fileinfo->old-perm accessing a non-vc-git-extra-fileinfo" 1] 2]) (byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204%\301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file put vc-git-extra-fileinfo->old-perm setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander vc-git-extra-fileinfo vc-git-extra-fileinfo->old-perm #1=(and (memq (aref cl-x 0) cl-struct-vc-git-extra-fileinfo-tags)) 1] 6] vc-git-extra-fileinfo->new-perm cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block vc-git-extra-fileinfo->new-perm (or #1# (error "vc-git-extra-fileinfo->new-perm accessing a non-vc-git-extra-fileinfo")) (aref cl-x 2)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/build/buildd/emacs23-23.4+1/debian/build-x/lisp/vc-git.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'vc-git-extra-fileinfo->new-perm #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-vc-git-extra-fileinfo-tags 0 error "vc-git-extra-fileinfo->new-perm accessing a non-vc-git-extra-fileinfo" 2] 2]) (byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204%\301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file put vc-git-extra-fileinfo->new-perm setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander vc-git-extra-fileinfo vc-git-extra-fileinfo->new-perm #1=(and (memq (aref cl-x 0) cl-struct-vc-git-extra-fileinfo-tags)) 2] 6] vc-git-extra-fileinfo->rename-state cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block vc-git-extra-fileinfo->rename-state (or #1# (error "vc-git-extra-fileinfo->rename-state accessing a non-vc-git-extra-fileinfo")) (aref cl-x 3)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/build/buildd/emacs23-23.4+1/debian/build-x/lisp/vc-git.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'vc-git-extra-fileinfo->rename-state #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-vc-git-extra-fileinfo-tags 0 error "vc-git-extra-fileinfo->rename-state accessing a non-vc-git-extra-fileinfo" 3] 2]) (byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204%\301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file put vc-git-extra-fileinfo->rename-state setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander vc-git-extra-fileinfo vc-git-extra-fileinfo->rename-state #1=(and (memq (aref cl-x 0) cl-struct-vc-git-extra-fileinfo-tags)) 3] 6] vc-git-extra-fileinfo->orig-name cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block vc-git-extra-fileinfo->orig-name (or #1# (error "vc-git-extra-fileinfo->orig-name accessing a non-vc-git-extra-fileinfo")) (aref cl-x 4)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/build/buildd/emacs23-23.4+1/debian/build-x/lisp/vc-git.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'vc-git-extra-fileinfo->orig-name #[(cl-x) "\302H >\204\f\303\304!\210\305H\207" [cl-x cl-struct-vc-git-extra-fileinfo-tags 0 error "vc-git-extra-fileinfo->orig-name accessing a non-vc-git-extra-fileinfo" 4] 2]) (byte-code "\301\302\303\304#\210\301\305\306\307#\210\305\310N\204%\301\305\310\311#\210\312\301\305\313\314\315!!#\210)\301\207" [file put vc-git-extra-fileinfo->orig-name setf-method #[(cl-x) "\301\302\303\304\305%\207" [cl-x cl-struct-setf-expander vc-git-extra-fileinfo vc-git-extra-fileinfo->orig-name (and #1=(memq (aref cl-x 0) cl-struct-vc-git-extra-fileinfo-tags)) 4] 6] vc-git-extra-fileinfo-p cl-compiler-macro #[(--cl-whole-arg-- cl-x) "\301\302\303\304\211\211&\207" [cl-x cl-defsubst-expand (cl-x) (block vc-git-extra-fileinfo-p (and (vectorp cl-x) (>= (length cl-x) 5) #1# t)) nil] 7] byte-compile cl-byte-compile-compiler-macro "/build/buildd/emacs23-23.4+1/debian/build-x/lisp/vc-git.el" compiler-macro-file purecopy file-name-nondirectory] 6) (defalias 'vc-git-extra-fileinfo-p #[(cl-x) "\302!\205G\303Y\205\304H >\205\305\207" [cl-x cl-struct-vc-git-extra-fileinfo-tags vectorp 5 0 t] 2]) (byte-code "\301\302\303\304#\210\302\305N\204\301\302\305\306#\210\307\301\302\310\311\312!!#\210)\301\207" [file put make-vc-git-extra-fileinfo cl-compiler-macro #[(cl-whole &rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202\313>A@\203;\314\211\202\315\316 @\"\210\202)\317\320\321\322\314 \n \f& ,\207" [#1# old-perm new-perm rename-state orig-name #:--cl-keys-- :old-perm :new-perm :rename-state :orig-name (:old-perm :new-perm :rename-state :orig-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:old-perm :new-perm :rename-state :orig-name)" cl-defsubst-expand (old-perm new-perm rename-state orig-name) (block make-vc-git-extra-fileinfo (vector 'cl-struct-vc-git-extra-fileinfo old-perm new-perm rename-state orig-name)) t cl-whole] 11 "Not documented\n\n(fn CL-WHOLE &cl-quote &key OLD-PERM NEW-PERM RENAME-STATE ORIG-NAME)"] byte-compile cl-byte-compile-compiler-macro "/build/buildd/emacs23-23.4+1/debian/build-x/lisp/vc-git.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@68 Not documented (fn &key OLD-PERM NEW-PERM RENAME-STATE ORIG-NAME) (defalias 'make-vc-git-extra-fileinfo #[(&rest #1=#:--cl-rest--) "\306>A@\307>A@\310>A@\311>A@ \203D @\312>\203- AA\211\202\313>A@\203;\314\211\202\315\316 @\"\210\202)\317\320 \n \f%,\207" [#1# old-perm new-perm rename-state orig-name #2=#:--cl-keys-- :old-perm :new-perm :rename-state :orig-name (:old-perm :new-perm :rename-state :orig-name :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:old-perm :new-perm :rename-state :orig-name)" vector cl-struct-vc-git-extra-fileinfo] 7 (#$ . 9779)]) (byte-code "\301\302\303\304#\210\302\305N\204\301\302\305\306#\210\307\301\302\310\311\312!!#\210)\301\207" [file put vc-git-create-extra-fileinfo cl-compiler-macro #[(--cl-whole-arg-- old-perm new-perm &rest #1=#:--cl-rest--) "\211A@\211A@\203\305\306\307\310G\\D\"\210\311\312\313\314\315\211 \f \n& *\207" [#1# rename-state orig-name old-perm new-perm signal wrong-number-of-arguments vc-git-create-extra-fileinfo 5 cl-defsubst-expand (old-perm new-perm rename-state orig-name) (block vc-git-create-extra-fileinfo (vector 'cl-struct-vc-git-extra-fileinfo old-perm new-perm rename-state orig-name)) t nil] 10 "Not documented\n\n(fn --CL-WHOLE-ARG-- &cl-quote OLD-PERM NEW-PERM &optional RENAME-STATE ORIG-NAME)"] byte-compile cl-byte-compile-compiler-macro "/build/buildd/emacs23-23.4+1/debian/build-x/lisp/vc-git.el" compiler-macro-file purecopy file-name-nondirectory] 6) #@73 Not documented (fn OLD-PERM NEW-PERM &optional RENAME-STATE ORIG-NAME) (defalias 'vc-git-create-extra-fileinfo #[(old-perm new-perm &rest #1=#:--cl-rest--) "\211A@\211A@\203\305\306\307\310G\\D\"\210\311\312 \f \n%*\207" [#1# rename-state orig-name old-perm new-perm signal wrong-number-of-arguments vc-git-create-extra-fileinfo 4 vector cl-struct-vc-git-extra-fileinfo] 6 (#$ . 11292)]) (byte-code "\302B\303C\304\305\306\307#\210\304\305\310\311#\210\304\305\312\313#\210\304\305\314\315#\210\304\316\317\315#\210\304\320\317\315#\210\304\321\317\322#\210\304\323\317\315#\210\304\324\317\315#\210\304\325\317\315#\210\304\326\317\315#\207" [custom-print-functions cl-struct-vc-git-extra-fileinfo-tags #[(cl-x cl-s cl-n) "\303!\205\200G\304Y\205\200\305H >\205\200\306\307\n\"\210\306\310\n\"\210\311\305H >\204,\312\313!\210\314H\n\"\210\306\315\n\"\210\311\305H >\204D\312\316!\210\317H\n\"\210\306\320\n\"\210\311\305H >\204\\\312\321!\210\322H\n\"\210\306\323\n\"\210\311\305H >\204t\312\324!\210\325H\n\"\210\306\326\n\"\210\327\207" [cl-x cl-struct-vc-git-extra-fileinfo-tags cl-s vectorp 5 0 princ "#S(vc-git-extra-fileinfo" " old-perm" prin1 error "vc-git-extra-fileinfo->old-perm accessing a non-vc-git-extra-fileinfo" 1 " new-perm" "vc-git-extra-fileinfo->new-perm accessing a non-vc-git-extra-fileinfo" 2 " rename-state" "vc-git-extra-fileinfo->rename-state accessing a non-vc-git-extra-fileinfo" 3 " orig-name" "vc-git-extra-fileinfo->orig-name accessing a non-vc-git-extra-fileinfo" 4 ")" t] 3] cl-struct-vc-git-extra-fileinfo put vc-git-extra-fileinfo cl-struct-slots ((cl-tag-slot) (old-perm) (new-perm) (rename-state) (orig-name)) cl-struct-type (vector nil) cl-struct-include nil cl-struct-print t vc-git-create-extra-fileinfo side-effect-free make-vc-git-extra-fileinfo vc-git-extra-fileinfo-p error-free vc-git-extra-fileinfo->orig-name vc-git-extra-fileinfo->rename-state vc-git-extra-fileinfo->new-perm vc-git-extra-fileinfo->old-perm] 4) #@34 Escape a file name if necessary. (defalias 'vc-git-escape-file-name #[(name) "\301\302\"\203\303\304\305\306#\303Q\207\207" [name string-match "[\n \"\\]" "\"" mapconcat #[(c) "\301=\203\302\207\303=\203\304\207\305=\203\306\207\307=\203 \310\207\311!\207" [c 10 "\\n" 9 "\\t" 92 "\\\\" 34 "\\\"" char-to-string] 2] ""] 5 (#$ . 13292)]) #@68 Return a string describing the file type based on its permissions. (defalias 'vc-git-file-type-as-string #[(old-perm new-perm) "\305\206\306\307\"\305\n\206\306\307\"\211\310=\2036 \310=\203\"\311\202\232 \312=\203,\313\202\232 \314=\205\232\315\202\232 \312=\203T \310=\203F\316\202\232 \314=\203P\317\202\232\320\202\232 \314=\203r \310=\203d\321\202\232 \312=\203n\322\202\232\323\202\232 \324=\203|\311\202\232 \306=\203\226 \312=\203\214\320\202\232 \314=\205\232\323\202\232\325\326 \"\211\203\247\327\f\330\331#\202\262 \324=\203\261\332\202\262\333+\207" [old-perm old-type new-perm new-type str lsh 0 -9 64 nil 80 " (type change symlink -> file)" 112 " (type change subproject -> file)" " (type change file -> symlink)" " (type change subproject -> symlink)" " (symlink)" " (type change file -> subproject)" " (type change symlink -> subproject)" " (subproject)" 72 format " (unknown type %o)" propertize face font-lock-comment-face "/" ""] 5 (#$ . 13652)]) #@97 Return a string describing the copy or rename associated with INFO, or an empty string if none. (defalias 'vc-git-rename-as-string #[(state extra) "\205\304H >\204\305\306!\210\307H\211\203H\310\311\n\312=\203$\313\202/ \314=\203.\315\202/\316\317\304H >\204<\305\320!\210\321H!\322R\323\324#\202I\325)\207" [extra cl-struct-vc-git-extra-fileinfo-tags rename-state state 0 error "vc-git-extra-fileinfo->rename-state accessing a non-vc-git-extra-fileinfo" 3 propertize " (" copy "copied from " added "renamed from " "renamed to " vc-git-escape-file-name "vc-git-extra-fileinfo->orig-name accessing a non-vc-git-extra-fileinfo" 4 ")" face font-lock-comment-face ""] 7 (#$ . 14681)]) #@39 Format a permission change as string. (defalias 'vc-git-permissions-as-string #[(old-perm new-perm) "\302\203 \203\303\304 \"\305\"\306=\203\307\202'\303\305\"\306=\203&\310\202'\311\312\313#\207" [old-perm new-perm propertize logand logxor 73 0 " " "+x" "-x" face font-lock-type-face] 5 (#$ . 15387)]) #@51 Pretty-printer for the vc-dir-fileinfo structure. (defalias 'vc-git-dir-printer #[(info) "\3068\211\203\f\307\202A@\3108\211\205' \311H\f>\204$\312\313!\210 \314H \205; \311H\f>\2048\312\315!\210 \310H*\316\317\320\321\3228\203K\323\202L\324\"\325\326#\316\317\320\327\n\"\325\n\330=\203a\331\202l\n\332=\203k\333\202l\334\335\336%\316\337 *\"\340\317\341@!\325 \203\204\342\202\205\343\344 \203\216\345\202\217\346\347+\335\336& \350 *\"\351\n \"\261\n-\207" [info isdir state extra cl-struct-vc-git-extra-fileinfo-tags old-perm 5 "" 2 0 error "vc-git-extra-fileinfo->old-perm accessing a non-vc-git-extra-fileinfo" 1 "vc-git-extra-fileinfo->new-perm accessing a non-vc-git-extra-fileinfo" " " propertize format "%c" 3 42 32 face font-lock-type-face "%-12s" up-to-date font-lock-builtin-face missing font-lock-warning-face font-lock-variable-name-face mouse-face highlight vc-git-permissions-as-string " " vc-git-escape-file-name 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 vc-git-file-type-as-string vc-git-rename-as-string new-perm vc-dir-filename-mouse-map] 18 (#$ . 15709)]) #@53 Process sentinel for the various dir-status stages. (defalias 'vc-git-after-dir-status-stage #[(stage files update-function) "\306\211eb\210\n\307=\203#\310 \203\311\202 \203\312\202\313\202T\n\311=\203O\314\315\316\306\317#\203T\320\321\322!\323\"\321\324!\f\325\326\327\330 \306\211%EB*\202+\n\312=\203}\313\315\316\306\317#\203T\320\321\322!\323\"\321\324!+\f\331\326\327+\211\306\211%EB*\202W\n\314=\203\244 \203\211\332\315\333\306\317\322$\203T\321\322!\334\326\327\330\211\306\211%EB\202\211\n\332=\203\305\315\333\306\317\322$\203T\321\322!\335\326\327\330\211\306\211%EB\202\252\n\313=\203T\314\315\336\306\317\322$\203T\320\321\322!\323\"\320\321\324!\323\"\321\337!\206\353\321\340!\321\341!\206\364\321\342!\321\323!,-.,\203?\343-!\344=\203,\325\326\327. \345\f%EB\202P\f\346\326\327\330\211\347,%EB,\325\326\327. \347\f%EB\202P\f\350-!\326\327. \306\211%EB-\202\315\203\205\237 \203\205\306/\2110\203~0@/\351/@ \"0A\2110\204i* \204\205\306\204\215 \204\2231 \"\210 \205\235\352 1#*\207" [result next-stage stage files name new-perm nil update-index vc-git--empty-db-p ls-files-added ls-files-up-to-date diff-index ls-files-unknown re-search-forward "\\([0-7]\\{6\\}\\) [0-9a-f]\\{40\\} 0 \\([^]+\\)" t string-to-number match-string 1 8 2 added vector cl-struct-vc-git-extra-fileinfo 0 up-to-date ls-files-ignored "\\([^]*?\\)" unregistered ignored ":\\([0-7]\\{6\\}\\) \\([0-7]\\{6\\}\\) [0-9a-f]\\{40\\} [0-9a-f]\\{40\\} \\(\\([ADMUT]\\)\\([^]+\\)\\|\\([CR]\\)[0-9]*\\([^]+\\)\\([^]+\\)\\)" 4 6 5 7 string-to-char 67 copy removed rename vc-git--state-code delete vc-git-dir-status-goto-stage perm new-name state old-perm entry #1=#:--cl-dolist-temp-- update-function] 8 (#$ . 16963)]) (defalias 'vc-git-dir-status-goto-stage #[(stage files update-function) "\303 \210\304=\203% \203\305p\306 \307\310\311&\210\202\221\305p\306\312\313\310%\210\202\221\314=\203:\305p\306 \315\316\317\320\311&\210\202\221\321=\203O\305p\306 \315\316\317\320\311&\210\202\221\322=\203f\305p\306 \315\316\323\324\325\326\311&\n\210\202\221\327=\203~\305p\306 \315\316\323\330\324\325\326\311& \210\202\221\331=\203\221\305p\306 \332\333\316\334\335\311& \210\336\337\340D\340 D\340\nDF!\207" [stage files update-function erase-buffer update-index vc-git-command async "add" "--refresh" "--" nil "update-index" ls-files-added "ls-files" "-z" "-c" "-s" ls-files-up-to-date ls-files-unknown "-o" "--directory" "--no-empty-directory" "--exclude-standard" ls-files-ignored "-i" diff-index "diff-index" "--relative" "-M" "HEAD" vc-exec-after vc-git-after-dir-status-stage quote] 12]) #@54 Return a list of (FILE STATE EXTRA) entries for DIR. (defalias 'vc-git-dir-status #[(dir update-function) "\301\302\303#\207" [update-function vc-git-dir-status-goto-stage update-index nil] 4 (#$ . 19678)]) #@63 Return a list of (FILE STATE EXTRA) entries for FILES in DIR. (defalias 'vc-git-dir-status-files #[(dir files default-state update-function) "\302\303 #\207" [files update-function vc-git-dir-status-goto-stage update-index] 4 (#$ . 19892)]) (byte-code "\302B\303\302!\204C\304\302\305 \306 \307\310#\210\306 \311\312#\210\306 \313\314#\210\306 \315\316#\210\306 \317\316#\210\306 \320\321#\210\306 \322\323#\210\306 \324\325#\210 )\"\210\326B\303\326!\204o\304\326\305\327!\306 \330\331#\210\306 \332\333#\210\306 \334\335#\210\306 \336\337#\210 )\"\210\302\207" [current-load-list map vc-git-stash-map default-boundp set-default make-sparse-keymap define-key [mouse-2] ignore [down-mouse-3] vc-git-stash-menu " " vc-git-stash-delete-at-point "=" vc-git-stash-show-at-point " " "A" vc-git-stash-apply-at-point "P" vc-git-stash-pop-at-point "S" vc-git-stash-snapshot vc-git-stash-menu-map "Git Stash" [de] (menu-item "Delete stash" vc-git-stash-delete-at-point :help "Delete the current stash") [ap] (menu-item "Apply stash" vc-git-stash-apply-at-point :help "Apply the current stash and keep it in the stash list") [po] (menu-item "Apply and remove stash (pop)" vc-git-stash-pop-at-point :help "Apply the current stash and remove it") [sh] (menu-item "Show stash" vc-git-stash-show-at-point :help "Show the contents of the current stash")] 6) (defalias 'vc-git-dir-extra-headers #[(dir) "\306\307\310!!\311\216rq\210\312\313\314\"\210*rq\210\315 +\316 \317\320\211\211,\321\322,\"\203\223\323\324,\"\306\307\310!!\325\216rq\210\312\326\327 \330Q\"\210*rq\210\315 +\321\331\n\"\203a\323\332\n\"\n\203\204\306\307\310!!\333\216rq\210\312\326\334\n\335Q\"\210*rq\210\315 +\321\331 \"\203\225\323\332 \"\202\225\336\337\340\341\342#\337 \341\343#\n\205\257\344\337\345\341\342#\337 \341\343#Q\344 \203\304\337\346\341\342\347\f%\350\351 \344#P\202\323\337\352\341\342\347\f%\337\353\347\f\341\343%P\260.\207" [standard-output remote-url remote branch stash-help-echo stash get-buffer-create generate-new-buffer-name " *string-output*" ((kill-buffer standard-output)) vc-git--out-ok "symbolic-ref" "HEAD" buffer-string vc-git-stash-list "Use M-x vc-git-stash to create stashes." nil string-match "^\\(refs/heads/\\)?\\(.+\\)$" match-string 2 ((kill-buffer standard-output)) "config" "branch." ".remote" "\\([^\n]+\\)" 1 ((kill-buffer standard-output)) "remote." ".url" "not (detached HEAD)" propertize "Branch : " face font-lock-type-face font-lock-variable-name-face "\n" "Remote : " "Stash :\n" help-echo mapconcat #[(x) "\302\303\304\305\306\307\310\311 & \207" [x vc-git-stash-map propertize face font-lock-variable-name-face mouse-face highlight help-echo "mouse-3: Show stash menu\nRET: Show stash\nA: Apply stash\nP: Apply and remove stash (pop)\nC-k: Delete stash" keymap] 10] "Stash : " "Nothing stashed" str] 11]) #@30 Create a new Git repository. (defalias 'vc-git-create-repo #[nil "\300\301\302\301\303$\207" [vc-git-command nil 0 "init"] 5 (#$ . 22784)]) #@53 Register FILES into the git version-control system. (defalias 'vc-git-register #[(files &optional rev comment) "\305\211\n\305\211\203'\f@\306 !\203 B\202 B\fA\211\204\f* \2036\307\305\310 \311\312\313&\210\205@\307\305\310\314$*\207" [dlist flist files crt #1=#:--cl-dolist-temp-- nil file-directory-p vc-git-command 0 "update-index" "--add" "--" "add"] 7 (#$ . 22930)]) (defalias 'vc-git-responsible-p 'vc-git-root) (defalias 'vc-git-unregister #[(file) "\301\302\303\304\305\306\307&\207" [file vc-git-command nil 0 "rm" "-f" "--cached" "--"] 8]) (defalias 'vc-git-checkin #[(files rev comment) "\304\305\306\307\n\310\311D\312\313 \"\244\314\315D\244%)\207" [vc-git-commits-coding-system coding-system-for-write files comment apply vc-git-command nil 0 "commit" "-m" log-edit-extract-headers (("Author" . "--author") ("Date" . "--date")) "--only" "--"] 9]) (defalias 'vc-git-find-revision #[(file rev buffer) "\306\307\211\310 \311\312\313\314%\211\315\230\203\316 \317 !\"\202!\f\320\321O)\322\320\306\323\324\2035\2026\325\326Q&,\207" [process-file-side-effects coding-system-for-read coding-system-for-write file fn default-directory nil binary vc-git--run-command-string "ls-files" "-z" "--full-name" "--" "" file-relative-name vc-git-root 0 -1 vc-git-command "cat-file" "blob" "HEAD" ":" fullname buffer rev] 10]) (defalias 'vc-git-checkout #[(file &optional editable rev) "\302\303\304\305 \206\n\306%\207" [file rev vc-git-command nil 0 "checkout" "HEAD"] 6]) #@58 Revert FILE to the version stored in the git repository. (defalias 'vc-git-revert #[(file &optional contents-done) "\203\f\302\303\304 \305\306%\207\302\303\304 \307\310\306&\210\302\303\211 \311\310\306&\207" [contents-done file vc-git-command nil 0 "update-index" "--" "reset" "-q" "checkout"] 7 (#$ . 24454)]) #@125 Get change log associated with FILES. Note that using SHORTLOG requires at least Git version 1.5.6, for the --graph option. (defalias 'vc-git-print-log #[(files buffer &optional shortlog start-revision limit) "\306\n!\210\307r\nq\210\310\311\n\312\f\313\314 \205\315\205$\316\317\320\"D\205,C\321%%+\207" [vc-git-commits-coding-system coding-system-for-read buffer inhibit-read-only files shortlog vc-setup-buffer t apply vc-git-command async append ("log" "--no-color") ("--graph" "--decorate" "--date=short" "--pretty=tformat:%d%h %ad %s" "--abbrev-commit") "-n" format "%s" ("--") limit start-revision] 12 (#$ . 24778)]) (defalias 'vc-git-log-outgoing #[(buffer remote-location) "\302\303\304\305\306\307\310\311\312\313 \314\230\203\315\202 \316P& \207" [buffer remote-location vc-git-command 0 nil "log" "--no-color" "--graph" "--decorate" "--date=short" "--pretty=tformat:%d%h %ad %s" "--abbrev-commit" "" "@{upstream}" "..HEAD"] 13 nil nil]) (defalias 'vc-git-log-incoming #[(buffer remote-location) "\302\303\304\303\305$\210\302\304\303\306\307\310\311\312\313\314\315 \316\230\203\317\202 P& \207" [buffer remote-location vc-git-command nil 0 "fetch" "log" "--no-color" "--graph" "--decorate" "--date=short" "--pretty=tformat:%d%h %ad %s" "--abbrev-commit" "HEAD.." "" "@{upstream}"] 14 nil nil]) (byte-code "\302\303N\204\304\302\303\305\306!#\210\307\310!\204\304\310\311\312#\210\310B\313\310!\204*\314\310\315 \"\210\310\303N\2048\304\310\303\305\316!#\210\307\317!\204D\304\317\311\312#\210\317B\313\317!\204T\314\317\320 \"\210\317\303N\204b\304\317\303\305\321!#\210\304\301\311\312#\210\301B\313\301!\204|\314\301\322\301\323\"\210 \"\210\301\303N\204\212\304\301\303\305\324!#\210\304\312\325\326#\207" [current-load-list vc-git-log-view-mode-abbrev-table vc-git-log-view-mode-hook variable-documentation put purecopy "Hook run when entering Git-Log-View 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-git-log-view-mode-map definition-name vc-git-log-view-mode default-boundp set-default make-sparse-keymap "Keymap for `vc-git-log-view-mode'." vc-git-log-view-mode-syntax-table make-syntax-table "Syntax table for `vc-git-log-view-mode'." define-abbrev-table nil "Abbrev table for `vc-git-log-view-mode'." derived-mode-parent log-view-mode] 5) #@519 Major mode derived from `log-view-mode' by `define-derived-mode'. It inherits all of the parent's attributes, but has its own keymap, abbrev table and syntax table: `vc-git-log-view-mode-map', `vc-git-log-view-mode-abbrev-table' and `vc-git-log-view-mode-syntax-table' which more-or-less shadow log-view-mode's corresponding tables. In addition to any hooks its parent mode might have run, this mode runs the hook `vc-git-log-view-mode-hook', as the final step during initialization. \{vc-git-log-view-mode-map} (defalias 'vc-git-log-view-mode #[nil "\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\2036 \321 =\203<\322\f\323 \"\210)\324 !\210\325\f!\210'(\326\327!\210\306\330!\210\331\306\332!\210\333\306\334!\210)\335=\204j\336\202k\337\306\340!\210)\335=\204|\341\202\204\342\343BC\344\" )\345\346!\207" [delay-mode-hooks major-mode mode-name vc-git-log-view-mode-map vc-git-log-view-mode-syntax-table parent make-local-variable t log-view-mode vc-git-log-view-mode "Git-Log-View" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table use-local-map set-syntax-table require add-log log-view-file-re "\\`a\\`" log-view-per-file-logs nil log-view-message-re long "^\\(?:[*/\\| ]+ \\)?\\(?: ([^)]+)\\)?\\([0-9a-z]+\\) \\([-a-z0-9]+\\) \\(.*\\)" "^commit *\\([0-9a-z]+\\)" log-view-font-lock-keywords (("^\\(?:[*/\\| ]+ \\)?\\( ([^)]+)\\)?\\([0-9a-z]+\\) \\([-a-z0-9]+\\) \\(.*\\)" (1 'highlight nil lax) (2 'change-log-acknowledgement) (3 'change-log-date))) append ((1 'change-log-acknowledgement)) (("^Author:[ ]+\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)" (1 'change-log-email)) ("^Author:[ ]+\\([^<(]+?\\)[ ]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" (1 'change-log-name) (2 'change-log-email)) ("^ +\\(?:\\(?:[Aa]cked\\|[Ss]igned-[Oo]ff\\)-[Bb]y:\\)[ ]+\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)" (1 'change-log-name)) ("^ +\\(?:\\(?:[Aa]cked\\|[Ss]igned-[Oo]ff\\)-[Bb]y:\\)[ ]+\\([^<(]+?\\)[ ]*[(<]\\([A-Za-z0-9_.+-]+@[A-Za-z0-9_.-]+\\)[>)]" (1 'change-log-name) (2 'change-log-email)) ("^Merge: \\([0-9a-z]+\\) \\([0-9a-z]+\\)" (1 'change-log-acknowledgement) (2 'change-log-acknowledgement)) ("^Date: \\(.+\\)" (1 'change-log-date)) ("^summary:[ ]+\\(.+\\)" (1 'log-view-message))) run-mode-hooks vc-git-log-view-mode-hook vc-git-log-view-mode-abbrev-table local-abbrev-table vc-log-view-type] 6 (#$ . 27193) nil]) #@122 Move to the log entry for REVISION. REVISION may have the form BRANCH, BRANCH~N, or BRANCH^ (where "^" can be repeated). (defalias 'vc-git-show-log-entry #[(revision) "eb\210\2051\301\302\303\"\304\305\306\307\"\203\310\311\312\"!T\2020\306\313\"\203/\311\314\"GT\2020\304$\315 \210\207" [revision search-forward format "\ncommit %s" nil t string-match "~\\([0-9]\\)\\'" string-to-number match-string 1 "\\^+\\'" 0 beginning-of-line] 8 (#$ . 29718)]) #@67 Get a difference report using Git between two revisions of FILES. (defalias 'vc-git-diff #[(files &optional rev1 rev2 buffer) "\305\306\307 \206 \310\311\n \203\f\203\312\202\313\314\315\316\317\320\"\321 \206$\322\f\323F\"&)\207" [process-file-side-effects buffer files rev1 rev2 nil apply vc-git-command "*vc-diff*" 1 "diff-tree" "diff-index" "--exit-code" append vc-switches git diff "-p" "HEAD" "--"] 13 (#$ . 30187)]) (defalias 'vc-git-revision-table #[(files) "\303\304C\305\306!r\nq\210\307\216\310\311\303\211\312\313%\210eb\210\314\315\303\311#\203+\316\317!B\202+*\207" [table process-file-side-effects #1=#:temp-buffer nil "HEAD" generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-git-command t "for-each-ref" "--format=%(refname)" re-search-forward "^refs/\\(heads\\|tags\\|remotes\\)/\\(.*\\)$" match-string 2] 6]) (defalias 'vc-git-revision-completion-table #[(files) "\303\304!\303\305!\211\nL\210\306L\210\307\310\311\312\313\314D\314 D\315\257E!L\210J*\207" [#1=#:--cl-table-- #2=#:--cl-files-- files make-symbol "--files--" "--table--" nil completion-table-dynamic lambda #3=(&rest --cl-rest--) apply #[(#4=#:G93902 #5=#:G93903 #6=#:string) "\302J!\203\303\304\305\306\307D\307 D\310\257E L\210J\207" [#4# #5# functionp lambda #3# apply #[(#7=#:G93900 #8=#:G93901) "\301J!\207" [#8# vc-git-revision-table] 2] quote --cl-rest--] 8] quote --cl-rest--] 10]) (defalias 'vc-git-annotate-command #[(file buf &optional rev) "\304!\305\n\306\307\310\311\312\211 \313 &\n)\207" [file name buf rev file-relative-name vc-git-command async nil "blame" "--date=iso" "-C" "--"] 11]) (defalias 'vc-git-annotate-time #[nil "\300\301\302\303#\205\304\305\306\307\310\311\"\"!\207" [re-search-forward "[0-9a-f]+[^()]+(.* \\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\) \\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\) \\([-+0-9]+\\) +[0-9]+) " nil t vc-annotate-convert-time apply encode-time mapcar #[(match) "\301\302!!\207" [match string-to-number match-string] 3] (6 5 4 3 2 1 7)] 6]) (defalias 'vc-git-annotate-extract-revision-at-line #[nil "\212\303\304!\210\305\306!\2053\307\304!\310\224\2031\307\311!\312\313 \"\203% \314\211\224O\315 \316\n!\")B\2022))\207" [revision fname default-directory move-beginning-of-line 1 looking-at "\\([0-9a-f^][0-9a-f]+\\) \\(\\([^(]+\\) \\)?" match-string-no-properties 2 3 string-match " +\\'" 0 expand-file-name vc-git-root] 5]) (defalias 'vc-git-create-tag #[(dir name branchp) "\304\305\306\305\307\310%\205#\n\203\304\305\306\305\311\312 &\202#\304\305\306\305\313 %)\207" [dir default-directory branchp name vc-git-command nil 0 "update-index" "--refresh" "checkout" "-b" "tag"] 7]) (defalias 'vc-git-retrieve-tag #[(dir name update) "\303\304\305\304\306\n%)\207" [dir default-directory name vc-git-command nil 0 "checkout"] 6]) #@49 Git-specific version of `vc-previous-revision'. (defalias 'vc-git-previous-revision #[(file rev) "\203A\306!\307\310!r\nq\210\311\216\312\313\314 \315 %\2056db\2056n\2056\316\317y!\2056o?\2056\320`dS\"+\321\f!\206?\f*\207\307\310!r q\210\322\216\312\323 \324P\"\205Z\320ee\325\\\"+\207" [file fname #1=#:temp-buffer rev prev-rev #2=#:temp-buffer file-relative-name generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-git--out-ok "rev-list" "-2" "--" zerop -1 buffer-substring-no-properties vc-git-symbolic-commit ((byte-code "\301!\203\n\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) "rev-parse" "^" 40] 6 (#$ . 33072)]) #@45 Git-specific version of `vc-next-revision'. (defalias 'vc-git-next-revision #[(file rev) "\306\307!!\310!\311\312!r\nq\210\313\216\314\315\316 \317%\2057db\2057n\2057\320\321y!\2057o\2057\322`dS\"+\211\205m\311\312!r q\210\323\216\314\315\324\317$\205leb\205l\325\f\326\327#\205l\320\321y!\205l\322`\330y\210`S\"+\331!\206x,\207" [file default-directory #1=#:temp-buffer rev current-rev #2=#:temp-buffer file-name-directory expand-file-name file-name-nondirectory generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-git--out-ok "rev-list" "-1" "--" zerop -1 buffer-substring-no-properties ((byte-code "\301!\203\n\302!\210\301\207" [#2# buffer-name kill-buffer] 2)) "HEAD" search-forward nil t 1 vc-git-symbolic-commit next-rev] 7 (#$ . 33783)]) (defalias 'vc-git-delete-file #[(file) "\301\302\303\304\305\306&\207" [file vc-git-command nil 0 "rm" "-f" "--"] 7]) (defalias 'vc-git-rename-file #[(old new) "\302\303\304 D\305\306\307&\207" [old new vc-git-command nil 0 "mv" "-f" "--"] 7]) (byte-code "\302B\303\302!\204+\304\302\305 \306 \307\310#\210\306 \311\312#\210\306 \313\314#\210\306 \315\316#\210 )\"\210\302\207" [current-load-list map vc-git-extra-menu-map default-boundp set-default make-sparse-keymap define-key [git-grep] (menu-item "Git grep..." vc-git-grep :help "Run the `git grep' command") [git-sn] (menu-item "Stash a snapshot" vc-git-stash-snapshot :help "Stash the current state of the tree and keep the current state") [git-st] (menu-item "Create Stash..." vc-git-stash :help "Stash away changes") [git-ss] (menu-item "Show Stash..." vc-git-stash-show :help "Show stash contents")] 6) (defalias 'vc-git-extra-menu #[nil "\207" [vc-git-extra-menu-map] 1]) (defalias 'vc-git-extra-status-menu #[nil "\207" [vc-git-extra-menu-map] 1]) (defalias 'vc-git-root #[(file) "\301\302\"\207" [file vc-find-root ".git"] 3]) #@712 Run git grep, searching for REGEXP in FILES in directory DIR. The search is limited to file names matching shell pattern FILES. FILES may use abbreviations defined in `grep-files-aliases', e.g. entering `ch' is equivalent to `*.[ch]'. With \[universal-argument] prefix, you can edit the constructed shell command line before it is executed. With two \[universal-argument] prefixes, directly edit and run `grep-command'. Collect output in a buffer. While git grep runs asynchronously, you can use \[next-error] (M-x next-error), or \\[compile-goto-error] in the grep output buffer, to go to the lines where grep found matches. This command shares argument histories with \[rgrep] and \[grep]. (defalias 'vc-git-grep #[(regexp &optional files dir) "\306\307!\210;\205bG\310V\205b\n\204! \311\230\203G\312\202G\313\314 !!\315\316\n#\211\203G\f\317\232\203B\320\321 \312\211\322%\202G\323\322 \"\210 \205a \324\325 \326\"\210*p=\205a \211)\207" [regexp command files dir current-prefix-arg compilation-environment require grep 0 "git grep" nil file-name-as-directory expand-file-name grep-expand-template "git grep -n -e -- " (4) read-from-minibuffer "Confirm: " grep-history add-to-history ("PAGER=") compilation-start grep-mode default-directory next-error-last-buffer] 7 (#$ . 35727) (byte-code "\305 \210\306\232\203\307\310\311\312\211\313%\312D\207\314 \315 !\316\317\312 \320$ \n\fE+\207" [current-prefix-arg regexp files default-directory dir grep-compute-defaults (16) read-from-minibuffer "Run: " "git grep" nil grep-history grep-read-regexp grep-read-files read-directory-name "In directory: " t] 6)]) #@17 Create a stash. (defalias 'vc-git-stash #[(name) "\303!\211\205\304\305\306\307\n$\210\310 \311\211#)\207" [default-directory root name vc-git-root vc-git--call nil "stash" "save" vc-resynch-buffer t] 6 (#$ . 37400) "sStash name: "]) #@34 Show the contents of stash NAME. (defalias 'vc-git-stash-show #[(name) "\302\303!\210\304\303\305\306\307\310\311&\210\303q\210\312 \210\313\314p!\207" [name buffer-read-only vc-setup-buffer "*vc-git-stash*" vc-git-command async nil "stash" "show" "-p" diff-mode t pop-to-buffer] 8 (#$ . 37644) "sStash name: "]) #@19 Apply stash NAME. (defalias 'vc-git-stash-apply #[(name) "\302\303\304\305\306\307\310&\210\311\312 !\313\211#\207" [name default-directory vc-git-command "*vc-git-stash*" 0 nil "stash" "apply" "-q" vc-resynch-buffer vc-git-root t] 8 (#$ . 37966) "sApply stash: "]) #@17 Pop stash NAME. (defalias 'vc-git-stash-pop #[(name) "\302\303\304\305\306\307\310&\210\311\312 !\313\211#\207" [name default-directory vc-git-command "*vc-git-stash*" 0 nil "stash" "pop" "-q" vc-resynch-buffer vc-git-root t] 8 (#$ . 38240) "sPop stash: "]) #@45 Create a stash with the current tree state. (defalias 'vc-git-stash-snapshot #[nil "\302\303\304\305\306 \307\310\"\307\311\"P)$\210\312\313\314\303\304\315\316\317&\210\320\321 !\322\211#\207" [ct default-directory vc-git--call nil "stash" "save" current-time format-time-string "Snapshot on %Y-%m-%d" " at %H:%M" vc-git-command "*vc-git-stash*" 0 "apply" "-q" "stash@{0}" vc-resynch-buffer vc-git-root t] 8 (#$ . 38506) nil]) (defalias 'vc-git-stash-list #[nil "\300\301\302\303\304\305\306\307\310\311##\312\"\"\207" [delete "" split-string replace-regexp-in-string "^stash@" " " vc-git--run-command-string nil "stash" "list" "\n"] 10]) (defalias 'vc-git-stash-get-at-point #[(point) "\212b\210\301 \210\302\303!\203\304\305!\202\306\307!)\207" [point beginning-of-line looking-at "^ +\\({[0-9]+}\\):" match-string 1 error "Cannot find stash at point"] 2]) (defalias 'vc-git-stash-delete-at-point #[nil "\301`!\302\303\304\"!\205\305\306\307\310\303\311\"$\210\312 )\207" [stash vc-git-stash-get-at-point y-or-n-p format "Remove stash %s ? " vc-git--run-command-string nil "stash" "drop" "stash@%s" vc-dir-refresh] 7 nil nil]) (defalias 'vc-git-stash-show-at-point #[nil "\300\301\302\303`!\"!\207" [vc-git-stash-show format "stash@%s" vc-git-stash-get-at-point] 5 nil nil]) (defalias 'vc-git-stash-apply-at-point #[nil "\300\301\302\303`!\"!\207" [vc-git-stash-apply format "stash@%s" vc-git-stash-get-at-point] 5 nil nil]) (defalias 'vc-git-stash-pop-at-point #[nil "\300\301\302\303`!\"!\207" [vc-git-stash-pop format "stash@%s" vc-git-stash-get-at-point] 5 nil nil]) (defalias 'vc-git-stash-menu #[(e) "\212\305\232\204B\211:\203 A@\202\306 `\307\310F)\311\n\211@)!q\210\n\312 8\206> A@:\203; A@@\202> A@)b\210)\313\f\")\207" [e event #1=#:vc-dir-at-event-posn position vc-git-stash-menu-map (tool-bar) selected-window (0 . 0) 0 window-buffer 5 popup-menu] 5 nil "e"]) #@132 A wrapper around `vc-do-command' for use in vc-git.el. The difference to vc-do-command is that this function always invokes `git'. (defalias 'vc-git-command #[(buffer okstatus file-or-list &rest flags) "\304\305\206\306 \307\n &\207" [buffer okstatus file-or-list flags apply vc-do-command "*vc*" "git"] 7 (#$ . 40430)]) #@52 Check if the git db is empty (no commit done yet). (defalias 'vc-git--empty-db-p #[nil "\301\302\301\303\304\305$)\306=?\207" [process-file-side-effects nil vc-git--call "rev-parse" "--verify" "HEAD" 0] 5 (#$ . 40761)]) (defalias 'vc-git--call #[(buffer command &rest args) "\303\304\305\306\306 \n&\207" [buffer command args apply process-file "git" nil] 8]) (defalias 'vc-git--out-ok #[(command &rest args) "\302\303\304\305 $!\207" [command args zerop apply vc-git--call (t nil)] 6]) #@77 Run a git command on FILE and return its output as string. FILE can be nil. (defalias 'vc-git--run-command-string #[(file &rest args) "\305\306\307\310!!\311\216 r q\210\312\313\n\203 \314 \315\n!C\"\202! \"\204'\316*r q\210\317 +\2055\f*\207" [ok standard-output file args str t get-buffer-create generate-new-buffer-name " *string-output*" ((kill-buffer standard-output)) apply vc-git--out-ok append file-relative-name nil buffer-string] 6 (#$ . 41258)]) #@74 Translate COMMIT string into symbolic form. Returns nil if not possible. (defalias 'vc-git-symbolic-commit #[(commit) "\205:\303\304!r q\210\305\216\306\307\310#\205+eb\205+\311y\312U\205+n\205+\313edS\"+\211\2059\n\314\230?\2059\n)\207" [commit #1=#:temp-buffer name generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) vc-git--out-ok "name-rev" "--name-only" 2 1 buffer-substring-no-properties "undefined"] 5 (#$ . 41731)]) (provide 'vc-git)