| Current Path : /usr/share/emacs/24.3/lisp/vc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/vc/vc-git.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:56 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vc/vc-git.el
;;; in Emacs version 24.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\304\320\306\301& \210\310\321\312\313\322DD\323\304\305\316\324\306\301& \210\310\325\312\313\326DD\327\316\330\306\301\304\305& \207" [custom-declare-group vc-git nil "VC Git backend." :version "24.1" :group vc custom-declare-variable vc-git-diff-switches funcall function #[0 "\300\207" [t] 1 "\n\n(fn)"] "String or list of strings specifying switches for Git diff under VC.\nIf nil, use the value of `vc-diff-switches'. If t, use no switches." :type (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value ("") string)) "23.1" vc-git-program #[0 "\300\207" ["git"] 1 "git\n\n(fn)"] "Name of the Git executable (excluding any arguments)." string vc-git-root-log-format #[0 "\300\207" [("%d%h..: %an %ad %s" "^\\(?:[*/\\| ]+ \\)?\\(?2: ([^)]+)\\)?\\(?1:[0-9a-z]+\\)..: \\(?3:.*?\\)[ ]+\\(?4:[0-9]\\{4\\}-[0-9]\\{2\\}-[0-9]\\{2\\}\\)" ((1 'log-view-message-face) (2 'change-log-list nil lax) (3 'change-log-name) (4 'change-log-date)))] 1 "\n\n(fn)"] "Git log format for `vc-print-root-log'.\nThis should be a list (FORMAT REGEXP KEYWORDS), where FORMAT is a\nformat string (which is passed to \"git log\" via the argument\n\"--pretty=tformat:FORMAT\"), REGEXP is a regular expression\nmatching the resulting Git log output, and KEYWORDS is a list of\n`font-lock-keywords' for highlighting the Log View buffer." (list string string (repeat sexp))] 10)
#@40 Default coding system for git commits.
(defvar vc-git-commits-coding-system 'utf-8 (#$ . 2064))
(defvar vc-git-history nil)
(defalias 'vc-git-revision-granularity #[0 "\300\207" [repository] 1 "\n\n(fn)"])
(defalias 'vc-git-checkout-model #[257 "\300\207" [implicit] 2 "\n\n(fn FILES)"])
#@55 Check whether FILE is registered with git.
(fn FILE)
(defalias 'vc-git-registered #[257 "\301!\211\205[ \302\303!r\211q\210\304\305\306\307\310\311!\312\"\313\314%DC\216\315\316\"\317\304\305\306\320\310\311 \"\321\"\322\314%D\323\304\324\317EDC\217\211\205U \211GGV\205U \211\306GTO\325P\230)\266\202*\262\207" [process-file-side-effects vc-git-root generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" nil file-relative-name #1=#:err "\302\300!\210\303\304\305\306\307\301%\210ed=\203 \303\310\311\306\312\307\301&\210\313 \207" [cd vc-git--out-ok "ls-files" "-c" "-z" "--" "ls-tree" "--name-only" "HEAD" buffer-string] 7 error #[257 "\300\207" [nil] 2 "\n\n(fn IGNORED)"] " "] 13 (#$ . 2358)])
#@69 Convert from a string to a added/deleted/modified state.
(fn CODE)
(defalias 'vc-git--state-code #[257 "\300!\211\301=\203
\302\2026 \211\303=\203 \304\2026 \211\305=\203! \306\2026 \211\307=\203+ \302\2026 \211\310=\2035 \302\2026 \311\207" [string-to-char 77 edited 65 added 68 removed 85 84 nil] 4 (#$ . 3164)])
#@48 Git-specific version of `vc-state'.
(fn FILE)
(defalias 'vc-git-state #[257 "\300\301\302\303\304\305\306&\211\2035 \307\310\"\2035 \311\312\"\313\224\204- \314\315\316\317\320\306\321 !%\210\2020 \322!\262\202? \323 \203> \324\202? \314\207" [vc-git--run-command-string "diff-index" "-p" "--raw" "-z" "HEAD" "--" string-match ":[0-7]\\{6\\} [0-7]\\{6\\} [0-9a-f]\\{40\\} [0-9a-f]\\{40\\} \\([ADMUT]\\) [^ ]+ \\(.*\n.\\)?" match-string 1 2 up-to-date vc-git--call nil "add" "--refresh" file-relative-name vc-git--state-code vc-git--empty-db-p added] 11 (#$ . 3489)])
#@59 Git-specific version of `vc-working-revision'.
(fn FILE)
(defalias 'vc-git-working-revision #[257 "\302\303\304\305!!\306\307DC\216 r q\210\310\311\312\"\210*r q\210\313 +\314\315\"\203. \316\317\"\202/ \211)\207" [process-file-side-effects standard-output nil get-buffer-create generate-new-buffer-name " *string-output*" funcall #[0 "\301!\207" [standard-output kill-buffer] 2 "\n\n(fn)"] vc-git--out-ok "symbolic-ref" "HEAD" buffer-string string-match "^\\(refs/heads/\\)?\\(.+\\)$" match-string 2] 5 (#$ . 4070)])
(defalias 'vc-git-workfile-unchanged-p #[257 "\300!\301=\207" [vc-git-state up-to-date] 3 "\n\n(fn FILE)"])
#@81 Return a string for `vc-mode-line' to put in the mode line for FILE.
(fn FILE)
(defalias 'vc-git-mode-line-string #[257 "\300!\301\302\"\303\304\305#\306G!\203 \307\310P\305\311P#\202( \307\305\312Q#\207" [vc-working-revision vc-default-mode-line-string Git get-text-property 0 help-echo zerop propertize "!" "\nNo current branch (detached HEAD)" "\nCurrent branch: "] 10 (#$ . 4710)])
(byte-code "\300\301\302\303#\210\304\211\203 \300\301\305\306\307!!#\210\207" [put vc-git-extra-fileinfo->old-perm compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-git-extra-fileinfo->old-perm (or (and (memq (aref cl-x 0) cl-struct-vc-git-extra-fileinfo-tags)) (error "%s accessing a non-%s" 'vc-git-extra-fileinfo->old-perm 'vc-git-extra-fileinfo)) (aref cl-x 1)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-git.el" compiler-macro-file purecopy file-name-nondirectory] 7)
(defalias 'vc-git-extra-fileinfo->old-perm #[257 "\211\301H>\204 \302\303\304\305#\210\211\306H\207" [cl-struct-vc-git-extra-fileinfo-tags 0 error "%s accessing a non-%s" vc-git-extra-fileinfo->old-perm vc-git-extra-fileinfo 1] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\211\203 \300\301\305\306\307!!#\210\207" [put vc-git-extra-fileinfo->new-perm compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-git-extra-fileinfo->new-perm (or (and (memq (aref cl-x 0) cl-struct-vc-git-extra-fileinfo-tags)) (error "%s accessing a non-%s" 'vc-git-extra-fileinfo->new-perm 'vc-git-extra-fileinfo)) (aref cl-x 2)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-git.el" compiler-macro-file purecopy file-name-nondirectory] 7)
(defalias 'vc-git-extra-fileinfo->new-perm #[257 "\211\301H>\204 \302\303\304\305#\210\211\306H\207" [cl-struct-vc-git-extra-fileinfo-tags 0 error "%s accessing a non-%s" vc-git-extra-fileinfo->new-perm vc-git-extra-fileinfo 2] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\211\203 \300\301\305\306\307!!#\210\207" [put vc-git-extra-fileinfo->rename-state compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-git-extra-fileinfo->rename-state (or (and (memq (aref cl-x 0) cl-struct-vc-git-extra-fileinfo-tags)) (error "%s accessing a non-%s" 'vc-git-extra-fileinfo->rename-state 'vc-git-extra-fileinfo)) (aref cl-x 3)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-git.el" compiler-macro-file purecopy file-name-nondirectory] 7)
(defalias 'vc-git-extra-fileinfo->rename-state #[257 "\211\301H>\204 \302\303\304\305#\210\211\306H\207" [cl-struct-vc-git-extra-fileinfo-tags 0 error "%s accessing a non-%s" vc-git-extra-fileinfo->rename-state vc-git-extra-fileinfo 3] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\211\203 \300\301\305\306\307!!#\210\207" [put vc-git-extra-fileinfo->orig-name compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-git-extra-fileinfo->orig-name (or (and (memq (aref cl-x 0) cl-struct-vc-git-extra-fileinfo-tags)) (error "%s accessing a non-%s" 'vc-git-extra-fileinfo->orig-name 'vc-git-extra-fileinfo)) (aref cl-x 4)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-git.el" compiler-macro-file purecopy file-name-nondirectory] 7)
(defalias 'vc-git-extra-fileinfo->orig-name #[257 "\211\301H>\204 \302\303\304\305#\210\211\306H\207" [cl-struct-vc-git-extra-fileinfo-tags 0 error "%s accessing a non-%s" vc-git-extra-fileinfo->orig-name vc-git-extra-fileinfo 4] 5 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\211\203 \300\301\305\306\307!!#\210\207" [put vc-git-extra-fileinfo-p compiler-macro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-git-extra-fileinfo-p (and (vectorp cl-x) (>= (length cl-x) 5) (memq (aref cl-x 0) cl-struct-vc-git-extra-fileinfo-tags) t)) nil] 9 "\n\n(fn CL-WHOLE-ARG CL-X)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-git.el" compiler-macro-file purecopy file-name-nondirectory] 7)
(defalias 'vc-git-extra-fileinfo-p #[257 "\301!\205 \211G\302Y\205 \211\303H>\205 \304\207" [cl-struct-vc-git-extra-fileinfo-tags vectorp 5 0 t] 3 "\n\n(fn CL-X)"])
(byte-code "\300\301\302\303#\210\304\211\203 \300\301\305\306\307!!#\210\207" [put make-vc-git-extra-fileinfo compiler-macro #[385 "\300>A@\301>A@\302>A@\303>A@\211\203@ \211@\304>\203( \211AA\262\202 \305>A@\2037 \306\262\202 \307\310@\"\210\202 \210\311\312\313\306 \306 & \207" [: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) (cl-block make-vc-git-extra-fileinfo (vector 'cl-struct-vc-git-extra-fileinfo old-perm new-perm rename-state orig-name))] 16 "\n\n(fn CL-WHOLE &cl-quote &key OLD-PERM NEW-PERM RENAME-STATE ORIG-NAME)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-git.el" compiler-macro-file purecopy file-name-nondirectory] 7)
#@54
(fn &key OLD-PERM NEW-PERM RENAME-STATE ORIG-NAME)
(defalias 'make-vc-git-extra-fileinfo #[128 "\300>A@\301>A@\302>A@\303>A@\211\203@ \211@\304>\203( \211AA\262\202 \305>A@\2037 \306\262\202 \307\310@\"\210\202 \210\311\312%\207" [: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] 11 (#$ . 9932)])
(byte-code "\300\301\302\303#\210\304\211\203 \300\301\305\306\307!!#\210\207" [put vc-git-create-extra-fileinfo compiler-macro #[899 "\211A\262@\211A\262@\203 \300\301\302\303G\\D\"\210\304\305\306\302\211\211\n\n & \207" [signal wrong-number-of-arguments nil 5 cl--defsubst-expand (old-perm new-perm rename-state orig-name) (cl-block vc-git-create-extra-fileinfo (vector 'cl-struct-vc-git-extra-fileinfo old-perm new-perm rename-state orig-name))] 16 "\n\n(fn CL-WHOLE-ARG &cl-quote OLD-PERM NEW-PERM &optional RENAME-STATE ORIG-NAME)"] "/builddir/build/BUILD/emacs-24.3/lisp/vc/vc-git.el" compiler-macro-file purecopy file-name-nondirectory] 7)
#@59
(fn OLD-PERM NEW-PERM &optional RENAME-STATE ORIG-NAME)
(defalias 'vc-git-create-extra-fileinfo #[642 "\211A\262@\211A\262@\203 \300\301\302\303G\\D\"\210\304\305%\207" [signal wrong-number-of-arguments vc-git-create-extra-fileinfo 4 vector cl-struct-vc-git-extra-fileinfo] 11 (#$ . 11126)])
(byte-code "\301C\302\303\304\305#\210\302\303\306\307#\210\302\303\310\311#\210\302\303\312\313#\210\302\314\315\313#\210\302\316\315\313#\210\302\317\315\320#\210\302\321\315\313#\210\302\322\315\313#\210\302\323\315\313#\210\302\324\315\313#\207" [cl-struct-vc-git-extra-fileinfo-tags 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)
#@45 Escape a file name if necessary.
(fn NAME)
(defalias 'vc-git-escape-file-name #[257 "\300\301\"\203 \302\303\304\305#\302Q\207\207" [string-match "[\n \"\\]" "\"" mapconcat #[257 "\211\300=\203 \301\207\211\302=\203 \303\207\211\304=\203 \305\207\211\306=\203 \307\207\310!\207" [10 "\\n" 9 "\\t" 92 "\\\\" 34 "\\\"" char-to-string] 3 "\n\n(fn C)"] ""] 6 (#$ . 12181)])
#@92 Return a string describing the file type based on its permissions.
(fn OLD-PERM NEW-PERM)
(defalias 'vc-git-file-type-as-string #[514 "\300\206 \301\302\"\300\206 \301\302\"\211\303=\2038 \303=\203 \304\202\240 \305=\203* \306\202\240 \307=\2034 \310\202\240 \304\202\240 \211\305=\203V \303=\203H \311\202\240 \307=\203R \312\202\240 \313\202\240 \211\307=\203t \303=\203f \314\202\240 \305=\203p \315\202\240 \316\202\240 \211\317=\203~ \304\202\240 \211\301=\203\234 \305=\203\216 \313\202\240 \307=\203\230 \316\202\240 \304\202\240 \320\321\"\211\203\254 \322\323\324#\202\267 \317=\203\266 \325\202\267 \326\207" [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 "/" ""] 9 (#$ . 12566)])
#@115 Return a string describing the copy or rename associated with INFO,
or an empty string if none.
(fn STATE EXTRA)
(defalias 'vc-git-rename-as-string #[514 "\211\205 \211\301H>\204 \302\303\304\305#\210\211\306H\211\203K \307\310\311=\203% \312\2020 \313=\203/ \314\2020 \315\316\301H>\204? \302\303\317\305#\210\320H!\321R\322\323#\202L \324\207" [cl-struct-vc-git-extra-fileinfo-tags 0 error "%s accessing a non-%s" vc-git-extra-fileinfo->rename-state 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 4 ")" face font-lock-comment-face ""] 11 (#$ . 13592)])
#@63 Format a permission change as string.
(fn OLD-PERM NEW-PERM)
(defalias 'vc-git-permissions-as-string #[514 "\300\203 \203 \301\302\"\303\"\304=\203 \305\202' \301\303\"\304=\203& \306\202' \307\310\311#\207" [propertize logand logxor 73 0 " " "+x" "-x" face font-lock-type-face] 7 (#$ . 14270)])
#@62 Pretty-printer for the vc-dir-fileinfo structure.
(fn INFO)
(defalias 'vc-git-dir-printer #[257 "\3028\211\203 \303\202 A@\3048\211\205& \211\305H>\204# \306\307\310\311#\210\211\312H\205; \305H>\2048 \306\307\313\311#\210\304H\314\315\316\317\320\n8\203J \321\202K \322\"\323\324#\314\315\316\325 \"\323 \326=\203b \327\202n \330=\203m \331\202n \332\333\334%\314\335\"\336\315\337@!\323\203\211 \340\202\212 \341\342\203\224 \343\202\225 \344\345 \333\334& \346\n\n\"\347
\"\261\n\207" [cl-struct-vc-git-extra-fileinfo-tags vc-dir-filename-mouse-map 5 "" 2 0 error "%s accessing a non-%s" vc-git-extra-fileinfo->old-perm vc-git-extra-fileinfo 1 vc-git-extra-fileinfo->new-perm " " 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] 23 (#$ . 14582)])
#@87 Process sentinel for the various dir-status stages.
(fn STAGE FILES UPDATE-FUNCTION)
(defalias 'vc-git-after-dir-status-stage #[771 "\300\211eb\210\301=\203\" \302 \203 \303\202 \203 \304\202 \305\262\202U\303=\203N \306\262\307\310\300\311#\203U\312\313\314!\315\"\313\316!\211\317\320\321\322\300\211%EB\266\203\202+ \304=\203y \305\262\307\310\300\311#\203U\312\313\314!\315\"\313\316!\211\323\320\321\211\300\211%EB\266\203\202W \306=\203\242 \203\206 \324\262\307\325\300\311\314$\203U\313\314!\326\320\321\322\211\300\211%EB\262\202\206 \324=\203\304 \307\325\300\311\314$\203U\313\314!\327\320\321\322\211\300\211%EB\262\202\250 \305=\203U\306\262\307\330\300\311\314$\203U\312\313\314!\315\"\312\313\316!\315\"\313\331!\206\353 \313\332!\313\333!\206\364 \313\334!\313\315!\211\203=\335!\336=\203\211\317\320\321\337%EB\262\202P\340\320\321\322\211\341%EB\262\211\317\320\321\341%EB\262\202P\342!\320\321\300\211%EB\262\266\202\315 \211\203\211\237\262\203\211\211\203w\211@\343@\"\262A\266\202\202b\210\204\300\262\211\204\207\204\214\"\210\205\225\344#\207" [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] 18 (#$ . 15790)])
(defalias 'vc-git-dir-status-goto-stage #[771 "\300 \210\301=\203% \203 \302p\303\304\305\306&\210\202\221 \302p\303\307\310\305%\210\202\221 \311=\203: \302p\303\312\313\314\315\306&\210\202\221 \316=\203O \302p\303\312\313\314\315\306&\210\202\221 \317=\203f \302p\303\312\313\320\321\322\323\306&\n\210\202\221 \324=\203~ \302p\303\312\313\320\325\321\322\323\306& \210\202\221 \326=\203\221 \302p\303\327\330\313\331\332\306& \210\333\334\335D\335D\335DF!\207" [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] 15 "\n\n(fn STAGE FILES UPDATE-FUNCTION)"])
#@80 Return a list of (FILE STATE EXTRA) entries for DIR.
(fn DIR UPDATE-FUNCTION)
(defalias 'vc-git-dir-status #[514 "\300\301\302#\207" [vc-git-dir-status-goto-stage update-index nil] 6 (#$ . 18440)])
#@109 Return a list of (FILE STATE EXTRA) entries for FILES in DIR.
(fn DIR FILES DEFAULT-STATE UPDATE-FUNCTION)
(defalias 'vc-git-dir-status-files #[1028 "\300\301#\207" [vc-git-dir-status-goto-stage update-index] 8 (#$ . 18647)])
(defvar vc-git-stash-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\311#\210\301\313\314#\210\301\315\316#\210\301\317\320#\210\211\207" [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] 5))
(defvar vc-git-stash-menu-map (byte-code "\300\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\211\207" [make-sparse-keymap "Git Stash" define-key [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")] 5))
(defalias 'vc-git-dir-extra-headers #[257 "\301\302\303!!\304\305DC\216rq\210\306\307\310\"\210*rq\210\311 +\312 \313\314\211\211\315\316\"\203\232 \317\320\"\262\301\302\303!!\304\321DC\216rq\210\306\322\323\324Q\"\210*rq\210\311 +\262\315\325\"\203c \317\326\"\262\203\212 \301\302\303!!\304\327DC\216rq\210\306\322\330\331Q\"\210*rq\210\311 +\262\315\325\"\203\235 \317\326\"\262\202\235 \332\262\333\334\335\336#\333\335\337#\205\267 \340\333\341\335\336#\333\335\337#Q\340\203\317 \333\342\335\336\343\f%\344\345 \340#P\202\340 \333\346\335\336\343\f%\333\347\343 \335\337%P\260\207" [standard-output get-buffer-create generate-new-buffer-name " *string-output*" funcall #[0 "\301!\207" [standard-output kill-buffer] 2 "\n\n(fn)"] 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 #[0 "\301!\207" [standard-output kill-buffer] 2 "\n\n(fn)"] "config" "branch." ".remote" "\\([^\n]+\\)" 1 #[0 "\301!\207" [standard-output kill-buffer] 2 "\n\n(fn)"] "remote." ".url" "not (detached HEAD)" propertize "Branch : " face font-lock-type-face font-lock-variable-name-face "\n" "Remote : " "Stash :\n" help-echo mapconcat #[257 "\301\302\303\304\305\306\307\310& \207" [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] 11 "\n\n(fn X)"] "Stash : " "Nothing stashed"] 18 "\n\n(fn DIR)"])
#@102 Return the existing branches, as a list of strings.
The car of the list is the current branch.
(fn)
(defalias 'vc-git-branches #[0 "\300\301!r\211q\210\302\303\304\305\306\307!\310\"\311\312%DC\216\313\314\315\"\210eb\210\316\211m\204I \317\320!\203C \321\322!\323\230\203< \321\311!\262\202C \321\311!B\262\322y\210\202\" \237B\266\202*\207" [generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" vc-git--call t "branch" nil looking-at "^\\([ *]\\) \\(.+\\)$" match-string 1 "*"] 8 (#$ . 21575)])
#@36 Create a new Git repository.
(fn)
(defalias 'vc-git-create-repo #[0 "\300\301\302\301\303$\207" [vc-git-command nil 0 "init"] 5 (#$ . 22173)])
#@87 Register FILES into the git version-control system.
(fn FILES &optional REV COMMENT)
(defalias 'vc-git-register #[769 "\300\211\211\203# \211@\301!\203 \211B\262\202 \211B\262A\266\202\202 \210\2032 \302\300\303\304\305\306&\210\211\205< \302\300\303\307$\207" [nil file-directory-p vc-git-command 0 "update-index" "--add" "--" "add"] 12 (#$ . 22323)])
(defalias 'vc-git-responsible-p 'vc-git-root)
(defalias 'vc-git-unregister #[257 "\300\301\302\303\304\305\306&\207" [vc-git-command nil 0 "rm" "-f" "--cached" "--"] 9 "\n\n(fn FILE)"])
#@88 Toggle whether to add the "Signed-off-by" line at the end of
the commit message.
(fn)
(defalias 'vc-git-log-edit-toggle-signoff #[0 "\300\301\302\"\207" [log-edit-toggle-header "Sign-Off" "yes"] 3 (#$ . 22885) nil])
#@116 Toggle whether this will amend the previous commit.
If toggling on, also insert its message into the buffer.
(fn)
(defalias 'vc-git-log-edit-toggle-amend #[0 "\301\302\303\"\2052 db\210n\204 \304c\210\305\306\307!!\310\311DC\216\312\313\314\315\316\317\320&\210)rq\210\321 +c\207" [standard-output log-edit-toggle-header "Amend" "yes" "\n" get-buffer-create generate-new-buffer-name " *string-output*" funcall #[0 "\301!\207" [standard-output kill-buffer] 2 "\n\n(fn)"] vc-git-command 1 nil "log" "--max-count=1" "--pretty=format:%B" "HEAD" buffer-string] 8 (#$ . 23109) nil])
(defvar vc-git-log-edit-mode-map (byte-code "\300\301!\302\303\304#\210\302\305\306#\210\211\207" [make-sparse-keymap "Git-Log-Edit" define-key "" vc-git-log-edit-toggle-signoff "" vc-git-log-edit-toggle-amend] 5))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [vc-git-log-edit-mode-hook variable-documentation put purecopy "Hook run when entering Log-Edit/git 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-edit-mode-map definition-name vc-git-log-edit-mode] 5)
(defvar vc-git-log-edit-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [vc-git-log-edit-mode-map variable-documentation put purecopy "Keymap for `vc-git-log-edit-mode'." boundp vc-git-log-edit-mode-syntax-table definition-name vc-git-log-edit-mode] 5)
(defvar vc-git-log-edit-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [vc-git-log-edit-mode-syntax-table variable-documentation put purecopy "Syntax table for `vc-git-log-edit-mode'." vc-git-log-edit-mode-abbrev-table definition-name vc-git-log-edit-mode] 5)
(defvar vc-git-log-edit-mode-abbrev-table (progn (define-abbrev-table 'vc-git-log-edit-mode-abbrev-table nil) vc-git-log-edit-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [vc-git-log-edit-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `vc-git-log-edit-mode'." vc-git-log-edit-mode derived-mode-parent log-edit-mode] 5)
#@294 Major mode for editing Git log messages.
It is based on `log-edit-mode', and has Git-specific extensions.
In addition to any hooks its parent mode might have run,
this mode runs the hook `vc-git-log-edit-mode-hook', as the final step
during initialization.
\{vc-git-log-edit-mode-map}
(fn)
(defalias 'vc-git-log-edit-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
=\204R \326
\325C#\210\327 !\210\330\f!\210
)\331\332!\207" [delay-mode-hooks major-mode mode-name vc-git-log-edit-mode-map vc-git-log-edit-mode-syntax-table vc-git-log-edit-mode-abbrev-table make-local-variable t log-edit-mode vc-git-log-edit-mode "Log-Edit/git" 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 run-mode-hooks vc-git-log-edit-mode-hook local-abbrev-table] 5 (#$ . 25387) nil])
(defalias 'vc-git-checkin #[771 "\302\303\304\305\306\307\310D\311\312\313\314\n\315!B\316 \317!BF \"\244\320\321D\244%\262)\207" [vc-git-commits-coding-system coding-system-for-write #[257 "\300\301\302\303\304!\305\"\306\307%\207" [make-byte-code 257 "\211\301\232\205 \300C\207" vconcat vector ["yes"] 3 "\n\n(fn VALUE)"] 7 "\n\n(fn ARGUMENT)"] apply vc-git-command nil 0 "commit" "-m" log-edit-extract-headers ("Author" . "--author") ("Date" . "--date") "Amend" "--amend" "Sign-Off" "--signoff" "--only" "--"] 17 "\n\n(fn FILES REV COMMENT)"])
(defalias 'vc-git-find-revision #[771 "\304\305\211\306\307\310\311\312%\211\313\230\203 \314\315 !\"\202 \211\316\317O\262\320\316\304\321\322\2032 \2023 \323\324Q&+\207" [process-file-side-effects coding-system-for-read coding-system-for-write 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" ":"] 14 "\n\n(fn FILE REV BUFFER)"])
(defalias 'vc-git-checkout #[769 "\300\301\302\303\206\n \304%\207" [vc-git-command nil 0 "checkout" "HEAD"] 9 "\n\n(fn FILE &optional EDITABLE REV)"])
#@93 Revert FILE to the version stored in the git repository.
(fn FILE &optional CONTENTS-DONE)
(defalias 'vc-git-revert #[513 "\211\203\f \300\301\302\303\304%\207\300\301\302\305\306\304&\210\300\301\211\307\306\304&\207" [vc-git-command nil 0 "update-index" "--" "reset" "-q" "checkout"] 9 (#$ . 27648)])
#@64 Value of `compilation-error-regexp-alist' in *vc-git* buffers.
(defvar vc-git-error-regexp-alist '(("^ \\(.+\\) |" 1 nil nil 0)) (#$ . 27963))
#@146 Pull changes into the current Git branch.
Normally, this runs "git pull". If PROMPT is non-nil, prompt
for the Git command to run.
(fn PROMPT)
(defalias 'vc-git-pull #[257 "\303!\304\305\306!\"\307 \310\2033 \311\312\313\304\314\"\315#\316\317#\262\211@\262\211\211A@)\262\211\211AA)\262\320\321&\210rq\210\322\323!\210)\324!\207" [default-directory vc-git-program x vc-git-root format "*vc-git : %s*" expand-file-name "pull" nil split-string read-shell-command "Git pull command: " "%s pull" vc-git-history " " t apply vc-do-async-command vc-exec-after (vc-compilation-mode 'git) vc-set-async-update] 13 (#$ . 28113)])
#@91 Merge changes into the current Git branch.
This prompts for a branch to merge from.
(fn)
(defalias 'vc-git-merge-branch #[0 "\302!\303\304\305!\"\306 A\307\310\311\235\204 \312\305\313\"!\204\" \202% \311B\314\315$\316\317 \320C&\210rq\210\321\322!\210)\323!\207" [default-directory vc-git-program vc-git-root format "*vc-git : %s*" expand-file-name vc-git-branches completing-read "Merge from branch: " "FETCH_HEAD" file-readable-p ".git/FETCH_HEAD" nil t apply vc-do-async-command "merge" vc-exec-after (vc-compilation-mode 'git) vc-set-async-update] 11 (#$ . 28763)])
#@184 Get change log associated with FILES.
Note that using SHORTLOG requires at least Git version 1.5.6,
for the --graph option.
(fn FILES BUFFER &optional SHORTLOG START-REVISION LIMIT)
(defalias 'vc-git-print-log #[1282 "\304!\210\305rq\210\306\307\310\311\312 \205& \313\314\315\316\317 @\"\320BBBB\2052 \321\316\322 \"D\n\205: \nC\323%%+\207" [vc-git-commits-coding-system coding-system-for-read inhibit-read-only vc-git-root-log-format vc-setup-buffer t apply vc-git-command async append ("log" "--no-color") "--graph" "--decorate" "--date=short" format "--pretty=tformat:%s" ("--abbrev-commit") "-n" "%s" ("--")] 18 (#$ . 29358)])
(defalias 'vc-git-log-outgoing #[514 "\301\302\303\304\305\306\307\310\311\312@\"\313 \314\230\203 \315\202 \316P& \207" [vc-git-root-log-format vc-git-command 0 nil "log" "--no-color" "--graph" "--decorate" "--date=short" format "--pretty=tformat:%s" "--abbrev-commit" "" "@{upstream}" "..HEAD"] 15 "\n\n(fn BUFFER REMOTE-LOCATION)" nil])
(defalias 'vc-git-log-incoming #[514 "\301\302\303\302\304$\210\301\303\302\305\306\307\310\311\312\313@\"\314\315\f\316\230\203\" \317\202$ \fP& \207" [vc-git-root-log-format vc-git-command nil 0 "fetch" "log" "--no-color" "--graph" "--decorate" "--date=short" format "--pretty=tformat:%s" "--abbrev-commit" "HEAD.." "" "@{upstream}"] 16 "\n\n(fn BUFFER REMOTE-LOCATION)" nil])
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [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] 5)
(defvar vc-git-log-view-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [vc-git-log-view-mode-map variable-documentation put purecopy "Keymap for `vc-git-log-view-mode'." boundp vc-git-log-view-mode-syntax-table definition-name vc-git-log-view-mode] 5)
(defvar vc-git-log-view-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [vc-git-log-view-mode-syntax-table variable-documentation put purecopy "Syntax table for `vc-git-log-view-mode'." vc-git-log-view-mode-abbrev-table definition-name vc-git-log-view-mode] 5)
(defvar vc-git-log-view-mode-abbrev-table (progn (define-abbrev-table 'vc-git-log-view-mode-abbrev-table nil) vc-git-log-view-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [vc-git-log-view-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `vc-git-log-view-mode'." vc-git-log-view-mode derived-mode-parent log-view-mode] 5)
#@525 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}
(fn)
(defalias 'vc-git-log-view-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203 \314\311\313\310\313N#\210\315 !\204' \316 \317 \"\210\320\f!\211\2035 \211\321 =\203; \322\f\323 \"\210\210\324
\325\"\204R
,=\204R \326
\325,C#\210\327 !\210\330\f!\210
,\331\332!\210\306\333!\210\334\306\335!\210\336 \306\337!\210-\340=\204\205 .\211 /A@)\202\206 \341 -\342=\203\231 \3070\306\343!\210\344#\306\345!\210-\340=\204\261 .A@\346.8BC\202\271 \347 \350BC\351\"%)\352\353!\207" [delay-mode-hooks major-mode mode-name vc-git-log-view-mode-map vc-git-log-view-mode-syntax-table vc-git-log-view-mode-abbrev-table 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 abbrev-table-get :parents abbrev-table-put 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 "^commit *\\([0-9a-z]+\\)" short log-view-expanded-log-entry-function vc-git-expanded-log-entry log-view-font-lock-keywords 2 append ((1 'change-log-acknowledgment)) (("^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-acknowledgment) (2 'change-log-acknowledgment)) ("^Date: \\(.+\\)" (1 'change-log-date)) ("^summary:[ ]+\\(.+\\)" (1 'log-view-message))) run-mode-hooks vc-git-log-view-mode-hook local-abbrev-table vc-log-view-type vc-git-root-log-format x truncate-lines] 6 (#$ . 32206) nil])
#@137 Move to the log entry for REVISION.
REVISION may have the form BRANCH, BRANCH~N,
or BRANCH^ (where "^" can be repeated).
(fn REVISION)
(defalias 'vc-git-show-log-entry #[257 "eb\210\211\2055 \300\301\302\"\303\304\305\306\"\203! \307\310\311\"!T\2024 \305\312\"\2033 \310\313\"GT\2024 \303$\314 \210\207" [search-forward format "\ncommit %s" nil t string-match "~\\([0-9]\\)\\'" string-to-number match-string 1 "\\^+\\'" 0 beginning-of-line] 9 (#$ . 34749)])
(defalias 'vc-git-expanded-log-entry #[257 "\300\301!r\211q\210\302\303\304\305\306\307!\310\"\311\312%DC\216\313\314\315\316\211\317\320E%\210eb\210m?\2054 \321ed\311#\210\322 *\207" [generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" apply vc-git-command t nil "log" "-1" indent-region buffer-string] 10 "\n\n(fn REVISION)"])
#@106 Get a difference report using Git between two revisions of FILES.
(fn FILES &optional REV1 REV2 BUFFER)
(defalias 'vc-git-diff #[1025 "\301\302\303\206 \304\305\203 \203 \306\202 \307\310\311\312\313\314\"\315\f\206( \316\f\317F\"&)\207" [process-file-side-effects nil apply vc-git-command "*vc-diff*" 1 "diff-tree" "diff-index" "--exit-code" append vc-switches git diff "-p" "HEAD" "--"] 17 (#$ . 35646)])
(defalias 'vc-git-revision-table #[257 "\301\302C\301\262\303\304!r\211q\210\305\306\307\310\311\312!\313\"\314\315%DC\216\316\317\301\211\320\321%\210eb\210\322\323\301\317#\203= \324\314!B\262\202+ *\210)\207" [process-file-side-effects nil "HEAD" generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" vc-git-command t "for-each-ref" "--format=%(refname)" re-search-forward "^refs/\\(heads\\|tags\\|remotes\\)/\\(.*\\)$" match-string] 11 "\n\n(fn FILES)"])
(defalias 'vc-git-revision-completion-table #[257 "\300C\211\301\302\303\304\305\306\"\307\"\310\311%!\240\210\211@\207" [nil completion-table-dynamic make-byte-code 257 "\302\301@!\203 \301\303\304\305\306\307\300!\310\"\311\312% \240\210\301@\207" vconcat vector [functionp make-byte-code 0 "\301\300!\207" vconcat vector [vc-git-revision-table] 2 "\n\n(fn)"] 8 "\n\n(fn STRING)"] 11 "\n\n(fn FILES)"])
(defalias 'vc-git-annotate-command #[770 "\300!\301\302\303\304\305\306\211 \307\n&\n\207" [file-relative-name vc-git-command async nil "blame" "--date=iso" "-C" "--"] 15 "\n\n(fn FILE BUF &optional REV)"])
(defalias 'vc-git-annotate-time #[0 "\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 #[257 "\300\301!!\207" [string-to-number match-string] 4 "\n\n(fn MATCH)"] (6 5 4 3 2 1 7)] 6 "\n\n(fn)"])
(defalias 'vc-git-annotate-extract-revision-at-line #[0 "\212\301\302!\210\303\304!\2054 \305\302!\306\224\2031 \305\307!\310\311\"\203$ \211\312\211\224O\262\313\314!\"B\262\2022 \211\262)\207" [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] 7 "\n\n(fn)"])
(defalias 'vc-git-create-tag #[771 "\301\302\303\302\304\305%\205% \211\203 \301\302\303\302\306\307&\202% \301\302\303\302\310%)\207" [default-directory vc-git-command nil 0 "update-index" "--refresh" "checkout" "-b" "tag"] 10 "\n\n(fn DIR NAME BRANCHP)"])
(defalias 'vc-git-retrieve-tag #[771 "\301\302\303\302\304%)\207" [default-directory vc-git-command nil 0 "checkout"] 9 "\n\n(fn DIR NAME UPDATE)"])
#@64 Git-specific version of `vc-previous-revision'.
(fn FILE REV)
(defalias 'vc-git-previous-revision #[514 "\203O \300!\301\302!r\211q\210\303\304\305\306\307\310!\311\"\312\313%DC\216\314\315\316\317%\205D db\205D n\205D \320\321y!\205D o?\205D \322`dS\"*\262\323!\206N \211\207\301\302!r\211q\210\303\304\305\306\307\310!\324\"\312\313%DC\216\314\325\326P\"\205v \322ee\327\\\"*\207" [file-relative-name generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" vc-git--out-ok "rev-list" "-2" "--" zerop -1 buffer-substring-no-properties vc-git-symbolic-commit [buffer-name kill-buffer] "rev-parse" "^" 40] 11 (#$ . 38472)])
#@60 Git-specific version of `vc-next-revision'.
(fn FILE REV)
(defalias 'vc-git-next-revision #[514 "\301\302!!\303!\304\305!r\211q\210\306\307\310\311\312\313!\314\"\315\316%DC\216\317\320\321\322%\205E db\205E n\205E \323\324y!\205E o\205E \325`dS\"*\262\211\205\215 \304\305!r\211q\210\306\307\310\311\312\313!\326\"\315\316%DC\216\317\320\327\322$\205\212 eb\205\212 \330\331\332#\205\212 \323\324y!\205\212 \325`\333y\210`S\"*\262\334!\206\224 \211)\207" [default-directory file-name-directory expand-file-name file-name-nondirectory generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" vc-git--out-ok "rev-list" "-1" "--" zerop -1 buffer-substring-no-properties [buffer-name kill-buffer] "HEAD" search-forward nil t 1 vc-git-symbolic-commit] 12 (#$ . 39197)])
(defalias 'vc-git-delete-file #[257 "\300\301\302\303\304\305&\207" [vc-git-command nil 0 "rm" "-f" "--"] 8 "\n\n(fn FILE)"])
(defalias 'vc-git-rename-file #[514 "\300\301\302D\303\304\305&\207" [vc-git-command nil 0 "mv" "-f" "--"] 9 "\n\n(fn OLD NEW)"])
(defvar vc-git-extra-menu-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\211\207" [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")] 5))
(defalias 'vc-git-extra-menu #[0 "\207" [vc-git-extra-menu-map] 1 "\n\n(fn)"])
(defalias 'vc-git-extra-status-menu #[0 "\207" [vc-git-extra-menu-map] 1 "\n\n(fn)"])
(defalias 'vc-git-root #[257 "\300\301\"\206 \302\301\303\304\"#\207" [vc-file-getprop git-root vc-file-setprop vc-find-root ".git"] 7 "\n\n(fn FILE)"])
#@745 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 \<grep-mode-map>\[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].
(fn REGEXP &optional FILES DIR)
(defalias 'vc-git-grep #[769 "\304\305!\210;\205e G\306V\205e \204! \211\307\230\203J \310\262\202J \311\312!!\262\313\314#\262\211\203J \315\232\203E \316\317\310\211\320%\262\202J \321\320\"\210\211\205c \322 B\323\324\"\210* p=\205c \211\262\207" [current-prefix-arg compilation-environment default-directory next-error-last-buffer require grep 0 "git grep" nil file-name-as-directory expand-file-name grep-expand-template "git grep -n -e <R> -- <F>" (4) read-from-minibuffer "Confirm: " grep-history add-to-history "PAGER=" compilation-start grep-mode] 10 (#$ . 41199) (byte-code "\302 \210\303\232\203 \304\305\306\307\211\310%\307D\207\311 \312!\313\314\307 \315$E\207" [current-prefix-arg default-directory 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] 7)])
#@28 Create a stash.
(fn NAME)
(defalias 'vc-git-stash #[257 "\301!\211\205 \302\303\304\305$\210\306\307\211#\207" [default-directory vc-git-root vc-git--call nil "stash" "save" vc-resynch-buffer t] 7 (#$ . 42852) "sStash name: "])
#@45 Show the contents of stash NAME.
(fn NAME)
(defalias 'vc-git-stash-show #[257 "\301\302!\210\303\302\304\305\306\307\310&\210\302q\210\311 \210\312\313p!\207" [buffer-read-only vc-setup-buffer "*vc-git-stash*" vc-git-command async nil "stash" "show" "-p" diff-mode t pop-to-buffer] 9 (#$ . 43091) "sStash name: "])
#@30 Apply stash NAME.
(fn NAME)
(defalias 'vc-git-stash-apply #[257 "\301\302\303\304\305\306\307&\210\310\311!\312\211#\207" [default-directory vc-git-command "*vc-git-stash*" 0 nil "stash" "apply" "-q" vc-resynch-buffer vc-git-root t] 9 (#$ . 43417) "sApply stash: "])
#@28 Pop stash NAME.
(fn NAME)
(defalias 'vc-git-stash-pop #[257 "\301\302\303\304\305\306\307&\210\310\311!\312\211#\207" [default-directory vc-git-command "*vc-git-stash*" 0 nil "stash" "pop" "-q" vc-resynch-buffer vc-git-root t] 9 (#$ . 43695) "sPop stash: "])
#@51 Create a stash with the current tree state.
(fn)
(defalias 'vc-git-stash-snapshot #[0 "\301\302\303\304\305 \306\307\"\306\310\"P\262$\210\311\312\313\302\303\314\315\316&\210\317\320!\321\211#\207" [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] 9 (#$ . 43965) nil])
(defalias 'vc-git-stash-list #[0 "\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 "\n\n(fn)"])
(defalias 'vc-git-stash-get-at-point #[257 "\212\211b\210\300 \210\301\302!\203 \303\304!\202 \305\306!)\207" [beginning-of-line looking-at "^ +\\({[0-9]+}\\):" match-string 1 error "Cannot find stash at point"] 3 "\n\n(fn POINT)"])
(defalias 'vc-git-stash-delete-at-point #[0 "\300`!\301\302\303\"!\205 \304\305\306\307\302\310\"$\210\311 \207" [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] 8 "\n\n(fn)" nil])
(defalias 'vc-git-stash-show-at-point #[0 "\300\301\302\303`!\"!\207" [vc-git-stash-show format "stash@%s" vc-git-stash-get-at-point] 5 "\n\n(fn)" nil])
(defalias 'vc-git-stash-apply-at-point #[0 "\300\301\302\303`!\"!\207" [vc-git-stash-apply format "stash@%s" vc-git-stash-get-at-point] 5 "\n\n(fn)" nil])
(defalias 'vc-git-stash-pop-at-point #[0 "\300\301\302\303`!\"!\207" [vc-git-stash-pop format "stash@%s" vc-git-stash-get-at-point] 5 "\n\n(fn)" nil])
(defalias 'vc-git-stash-menu #[257 "\212\211\302\232\2040 \303!\304\211@)!q\210\211\3058\206, A@:\203) A@@\202, A@)b\266\306 \")\207" [position vc-git-stash-menu-map (tool-bar) event-start window-buffer 5 popup-menu] 5 "\n\n(fn E)" "e"])
#@190 A wrapper around `vc-do-command' for use in vc-git.el.
The difference to vc-do-command is that this function always invokes
`vc-git-program'.
(fn BUFFER OKSTATUS FILE-OR-LIST &rest FLAGS)
(defalias 'vc-git-command #[899 "\301\302\206 \303&\207" [vc-git-program apply vc-do-command "*vc*"] 11 (#$ . 45856)])
#@58 Check if the git db is empty (no commit done yet).
(fn)
(defalias 'vc-git--empty-db-p #[0 "\301\302\301\303\304\305$)\306=?\207" [process-file-side-effects nil vc-git--call "rev-parse" "--verify" "HEAD" 0] 5 (#$ . 46179)])
(defalias 'vc-git--call #[642 "\303\304B\305\306\n\307\307&*\207" [process-environment inhibit-null-byte-detection vc-git-program t "PAGER=" apply process-file nil] 11 "\n\n(fn BUFFER COMMAND &rest ARGS)"])
(defalias 'vc-git--out-ok #[385 "\300\301\302\303$!\207" [zerop apply vc-git--call (t nil)] 8 "\n\n(fn COMMAND &rest ARGS)"])
#@99 Run a git command on FILE and return its output as string.
FILE can be nil.
(fn FILE &rest ARGS)
(defalias 'vc-git--run-command-string #[385 "\301\302\303\304!!\305\306DC\216rq\210\307\310\203# \311\312!C\"\202$ \"\204+ \313\262*rq\210\314 +\2058 \211\207" [standard-output t get-buffer-create generate-new-buffer-name " *string-output*" funcall #[0 "\301!\207" [standard-output kill-buffer] 2 "\n\n(fn)"] apply vc-git--out-ok append file-relative-name nil buffer-string] 9 (#$ . 46755)])
#@87 Translate COMMIT string into symbolic form.
Returns nil if not possible.
(fn COMMIT)
(defalias 'vc-git-symbolic-commit #[257 "\211\205J \300\301!r\211q\210\302\303\304\305\306\307!\310\"\311\312%DC\216\313\314\315#\2059 eb\2059 \311y\316U\2059 n\2059 \317edS\"*\262\211\205H \211\320\230?\205H \211\262\207" [generate-new-buffer " *temp*" funcall make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 "\n\n(fn)" vc-git--out-ok "name-rev" "--name-only" 1 buffer-substring-no-properties "undefined"] 9 (#$ . 47264)])
(provide 'vc-git)