Created
April 16, 2019 04:45
-
-
Save majorgreys/8a90509a163a4f658a97bdd39643813e to your computer and use it in GitHub Desktop.
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Total User Startup Time: 4.321sec Total Number of GC Pauses: 0 Total GC Time: 0.000sec | |
core.el:512 3.039sec 70% | |
(unless noninteractive | |
(doom-initialize-modules)) | |
core.el:511 1.247sec 28% | |
(doom-initialize noninteractive) | |
vc-git.elc:373 0.027sec 0% | |
(require 'diff-mode) | |
vc-git.elc:15 0.006sec 0% | |
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\316\317\304\320&\210\310\321\312\313\322DD\323\316\324\304\325&\210\310\326\312\313\327DD\330\316\331\304\325&\210\310\332\312\313\333DD\334\304\305\316\335&\210\310\336\312\313\337DD\340\316\341\304\305&\210\310\342\312\313\343DD\344\316\345\304\325&\210\310\346\312\313\347DD\350\316\351\304\325&\210\310\352\312\313\353DD\354\316\335\304\355&\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] "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 (#1="") string)) "23.1" vc-git-annotate-switches #[0 "\300\207" [nil] 1] "String or list of strings specifying switches for Git blame under VC.\nIf nil, use the value of `vc-annotate-switches'. If t, use no switches." (choice (const :tag "Unspecified" nil) (const :tag "None" t) (string :tag "Argument String") (repeat :tag "Argument List" :value (#1#) string)) "25.1" vc-git-resolve-conflicts #[0 "\300\207" [t] 1] "When non-nil, mark conflicted file as resolved upon saving.\nThat is performed after all conflict markers in it have been\nremoved. If the value is `unstage-maybe', and no merge is in\nprogress, then after the last conflict is resolved, also clear\nthe staging area." (choice (const :tag "Don't resolve" nil) (const :tag "Resolve" t) (const :tag "Resolve and maybe unstage all files" unstage-maybe)) vc-git-program #[0 "\300\207" [#2="git"] 1 #2#] "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) (2 'change-log-list nil lax) (3 'change-log-name) (4 'change-log-date)))] 1] "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)) vc-git-commits-coding-system #[0 "\300\207" [utf-8] 1] "Default coding system for sending commit log messages to Git.\n\nShould be consistent with the Git config value i18n.commitEncoding,\nand should also be consistent with `locale-coding-system'." (coding-system :tag "Coding system to encode Git commit logs") vc-git-log-output-coding-system #[0 "\300\207" [utf-8] 1] "Default coding system for receiving log output from Git.\n\nShould be consistent with the Git config value i18n.logOutputEncoding." (coding-system :tag "Coding system to decode Git log output") vc-git-grep-template #[0 "\300\207" [#3="git --no-pager grep -n -e <R> -- <F>"] 1 #3#] "The default command to run for \\[vc-git-grep].\nThe following place holders should be present in the string:\n <F> - file names and wildcards to search.\n <R> - the regular expression searched for." "27.1"] 8) | |
vc-git.elc:91 0.000sec 0% | |
(put 'vc-git-extra-fileinfo->rename-state 'compiler-macro 'vc-git-extra-fileinfo->rename-state--cmacro) | |
vc-git.elc:207 0.000sec 0% | |
(cl-struct-define 'vc-git-dir-status-state nil 'cl-structure-object 'record nil '((cl-tag-slot) (stage) (files) (update-function) (hash (make-hash-table :test 'equal))) 'cl-struct-vc-git-dir-status-state-tags 'vc-git-dir-status-state t) | |
vc-git.elc:126 0.000sec 0% | |
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303& \207" [function-put vc-git-create-extra-fileinfo side-effect-free t cl-struct-define vc-git-extra-fileinfo nil cl-structure-object record ((cl-tag-slot) (old-perm) (new-perm) (rename-state) (orig-name)) cl-struct-vc-git-extra-fileinfo-tags] 11) | |
vc-git.elc:257 0.000sec 0% | |
(byte-code "\301\302N\204\0\303\301\302\304\305!#\210\306\307!\204\0\303\307\310\311#\210\312\313 !\210\307\302N\204-\0\303\307\302\304\314!#\210\306\300!\204B\0\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\0\303\300\302\304\320!#\210\303\311\321\322#\207" [vc-git-log-edit-mode-abbrev-table 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 (lambda (#1=#:def-tmp-var) (defvar vc-git-log-edit-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-git-log-edit-mode'." (lambda (#1#) (defvar vc-git-log-edit-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vc-git-log-edit-mode'." derived-mode-parent log-edit-mode] 5) | |
vc-git.elc:96 0.000sec 0% | |
(byte-code "\300\301\302\303#\300\207" [function-put vc-git-extra-fileinfo->rename-state side-effect-free t] 4) | |
vc-git.elc:95 0.000sec 0% | |
(defalias 'vc-git-extra-fileinfo->rename-state #[257 "\301!>\204\0\302\303\304D\"\210\211\305H\207" [cl-struct-vc-git-extra-fileinfo-tags type-of signal wrong-type-argument vc-git-extra-fileinfo 3] 5 (#$ . 11059)]) | |
vc-git.elc:161 0.000sec 0% | |
(defalias 'vc-git-dir-status-state->stage--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-git-dir-status-state->stage (or (vc-git-dir-status-state-p cl-x) (signal 'wrong-type-argument (list 'vc-git-dir-status-state cl-x))) (aref cl-x 1)) nil] 9 (#$ . 20073)]) | |
vc-git.elc:318 0.000sec 0% | |
(byte-code "\300\301\302\"\210\303\304\305\306\307DD\310\311\312\313\314&\207" [autoload vc-setup-buffer "vc-dispatcher" custom-declare-variable vc-git-print-log-follow funcall function #[0 "\300\207" [nil] 1] "If true, follow renames in Git logs for a single file." :type boolean :version "26.1"] 8) | |
vc-git.elc:343 0.000sec 0% | |
(byte-code "\301\302N\204\0\303\301\302\304\305!#\210\306\307!\204\0\303\307\310\311#\210\312\313 !\210\307\302N\204-\0\303\307\302\304\314!#\210\306\300!\204B\0\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\0\303\300\302\304\320!#\210\303\311\321\322#\207" [vc-git-log-view-mode-abbrev-table 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 (lambda (#1=#:def-tmp-var) (defvar vc-git-log-view-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-git-log-view-mode'." (lambda (#1#) (defvar vc-git-log-view-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vc-git-log-view-mode'." derived-mode-parent log-view-mode] 5) | |
vc-git.elc:225 0.000sec 0% | |
(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)) | |
vc-git.elc:226 0.000sec 0% | |
(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)) | |
vc-git.elc:253 0.000sec 0% | |
(defvar vc-git-log-edit-mode-map (byte-code "\300\301!\302\303\304#\210\302\305\306#\210\302\307\310#\210\211\207" [make-sparse-keymap "Git-Log-Edit" define-key "" vc-git-log-edit-toggle-signoff "" vc-git-log-edit-toggle-no-verify "" vc-git-log-edit-toggle-amend] 5)) | |
vc-git.elc:76 0.000sec 0% | |
(byte-code "\300\301\302\303#\300\207" [function-put vc-git-extra-fileinfo->old-perm side-effect-free t] 4) | |
vc-git.elc:75 0.000sec 0% | |
(defalias 'vc-git-extra-fileinfo->old-perm #[257 "\301!>\204\0\302\303\304D\"\210\211\305H\207" [cl-struct-vc-git-extra-fileinfo-tags type-of signal wrong-type-argument vc-git-extra-fileinfo 1] 5 (#$ . 8958)]) | |
vc-git.elc:147 0.000sec 0% | |
(defalias 'vc-git-dir-printer #[257 "\3028\211\203\0\303\202\0A@\3048\211\205'\0\305!>\204$\0\306\307\310D\"\210\211\311H\205=\0\305!>\204:\0\306\307\310D\"\210\304H\312\313\314\315\316\n8\203L\0\317\202M\0\320\"\321\322#\312\313\314\323 \"\321 \324\267\202h\0\325\202i\0\326\202i\0\327\330\331%\312\332\"\333\313\334@!\321\203\204\0\335\202\205\0\336\337\203\217\0\340\202\220\0\341\342 \330\331& \343\n\n\"\344 | |
\"\261\n\207" [cl-struct-vc-git-extra-fileinfo-tags vc-dir-filename-mouse-map 5 "" 2 type-of signal wrong-type-argument vc-git-extra-fileinfo 1 " " propertize format "%c" 3 42 32 face font-lock-type-face "%-12s" #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (up-to-date 96 missing 100)) font-lock-builtin-face 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 (#$ . 18106)]) | |
vc-git.elc:216 0.000sec 0% | |
(defalias 'vc-git-after-dir-status-stage #[257 "\301\302!>\204\0\303\304\305D\"\210\306Heb\210\302!>\204%\0\303\304\305D\"\210\307H\211\310\267\202\311 \2037\0\312\2028\0\313\262\202\314\262\315\316\301\317#\203\320\321\307!\322\"\321\306!\323\324\325\326\301\211%\327D\302!>\204r\0\303\304\305 D\"\210\330H#\210\302!>\204\210\0\303\304\305D\"\210\211\306\331\302 !>\204\237\0\303\304\305D\"\210\306H\"I\266\202@\0\202\314\262\315\332\301\317#\203\320\321\307!\322\"\321\306!\321\333!\334\232\203\321\0\335\202\322\0\336\324\325\211\301\211%\327D\302!>\204\360\0\303\304\305 D\"\210\330H#\210\302!>\204\303\304\305D\"\210\211\306\331\302 !>\204\303\304\305D\"\210\306H\"I\266 \202\260\0\202\314\262\315\337\301\317#\203\320\321\307!\322\"\321\306!\336\324\325\211\301\211%\327D\302!>\204`\303\304\305 D\"\210\330H#\210\302!>\204v\303\304\305D\"\210\211\306\331\302 !>\204\215\303\304\305D\"\210\306H\"I\266\202.\202\203\242\340\262\315\341\301\317\307$\203\321\307!\342\324\325\326\211\301\211%\327D\302!>\204\315\303\304\305 D\"\210\330H#\210\302!>\204\343\303\304\305D\"\210\211\306\331\302 !>\204\372\303\304\305D\"\210\306H\"I\266\202\242\202\315\341\301\317\307$\203\321\307!\343\324\325\326\211\301\211%\327D\302!>\2043\303\304\305 D\"\210\330H#\210\302!>\204I\303\304\305D\"\210\211\306\331\302 !>\204`\303\304\305D\"\210\306H\"I\266\202\202\203v\344\202w\345\262\315\346\301\317\307$\203\320\321\307!\322\"\320\321\306!\322\"\321\330!\206\227\321\347!\321\350!\206\240\321\351!\321\322!\211\203\276\352!\353=\203\323\324\325 \354 %\327D\302!>\204\323\303\304\305 D\"\210\330H#\210\302!>\204\351\303\304\305D\"\210\211\306\331\302 !>\204\0\303\304\305D\"\210\306H\"I\266\202\355\324\325\326\211\356%\327D\302!>\204-\303\304\305 D\"\210\330H#\210\302!>\204C\303\304\305D\"\210\211\306\331\302 !>\204Z\303\304\305D\"\210\306H\"I\266\323\324\325 \356 %\327D\302!>\204\206\303\304\305 D\"\210\330H#\210\302!>\204\234\303\304\305D\"\210\211\306\331\302 !>\204\263\303\304\305D\"\210\306H\"I\266\202\357!\324\325 \301\211%\327D\302!>\204\343\303\304\305 D\"\210\330H#\210\302!>\204\371\303\304\305D\"\210\211\306\331\302 !>\204\303\304\305D\"\210\306H\"I\266\266\202y\210\211\203:\302!>\2041\303\304\305D\"\210\306H\204:\301\262\302!>\204I\303\304\305D\"\210\211\307I\266\302!>\204_\303\304\305D\"\210\211\306I\266\203p\360!\202\257\302!>\204\303\304\305D\"\210\333H\301C\361\362\363\364\365\366!\367\"\350\370%\302!>\204\243\303\304\305 D\"\210\330H\"\210\211\242\262\301\"\207" [cl-struct-vc-git-dir-status-state-tags nil type-of signal wrong-type-argument vc-git-dir-status-state 2 1 #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (update-index 46 ls-files-added 61 ls-files-up-to-date 173 ls-files-conflict 299 ls-files-unknown 411 ls-files-ignored 520 diff-index 622)) vc-git--empty-db-p ls-files-added diff-index ls-files-unknown re-search-forward "\\([0-7]\\{6\\}\\) [0-9a-f]\\{40\\} 0 \\([^\0]+\\)\0" t string-to-number match-string 8 added record vc-git-extra-fileinfo 0 puthash 4 delete "\\([0-7]\\{6\\}\\) [0-9a-f]\\{40\\} \\([0-3]\\) \\([^\0]+\\)\0" 3 "0" up-to-date conflict "\\([0-7]\\{6\\}\\) [0-9a-f]\\{40\\} 3 \\([^\0]+\\)\0" ls-files-ignored "\\([^\0]*?\\)\0" unregistered ignored ls-files-up-to-date ls-files-conflict ":\\([0-7]\\{6\\}\\) \\([0-7]\\{6\\}\\) [0-9a-f]\\{40\\} [0-9a-f]\\{40\\} \\(\\([ADMUT]\\)\0\\([^\0]+\\)\\|\\([CR]\\)[0-9]*\0\\([^\0]+\\)\0\\([^\0]+\\)\\)\0" 6 5 7 string-to-char 67 copy removed rename vc-git--state-code vc-git-dir-status-goto-stage maphash make-byte-code 514 "\300B\300\242B\240\207" vconcat vector [] "\n\n(fn KEY VALUE)"] 22 (#$ . 26187)]) | |
vc-git.elc:308 0.000sec 0% | |
(defalias 'vc-git-merge-branch #[0 "\302!\303\304\305!\"\306 A\307\310\311\235\204\0\312\305\313\"!\204\"\0\202%\0\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 #[0 "\300\301!\207" [vc-compilation-mode git] 2] vc-set-async-update] 11 (#$ . 43944)]) | |
vc-git.elc:48 0.000sec 0% | |
(defalias 'vc-git-working-revision #[257 "\301\302\303!)\207" [process-file-side-effects nil vc-git--rev-parse "HEAD"] 3 (#$ . 6759)]) | |
vc-git.elc:81 0.000sec 0% | |
(put 'vc-git-extra-fileinfo->new-perm 'compiler-macro 'vc-git-extra-fileinfo->new-perm--cmacro) | |
vc-git.elc:85 0.000sec 0% | |
(defalias 'vc-git-extra-fileinfo->new-perm #[257 "\301!>\204\0\302\303\304D\"\210\211\305H\207" [cl-struct-vc-git-extra-fileinfo-tags type-of signal wrong-type-argument vc-git-extra-fileinfo 2] 5 (#$ . 9998)]) | |
vc-git.elc:86 0.000sec 0% | |
(byte-code "\300\301\302\303#\300\207" [function-put vc-git-extra-fileinfo->new-perm side-effect-free t] 4) | |
vc-git.elc:90 0.000sec 0% | |
(defalias 'vc-git-extra-fileinfo->rename-state--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-git-extra-fileinfo->rename-state (or (vc-git-extra-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'vc-git-extra-fileinfo cl-x))) (aref cl-x 3)) nil] 9 (#$ . 10549)]) | |
vc-git.elc:106 0.000sec 0% | |
(byte-code "\300\301\302\303#\300\207" [function-put vc-git-extra-fileinfo->orig-name side-effect-free t] 4) | |
vc-git.elc:120 0.000sec 0% | |
(defalias 'vc-git-create-extra-fileinfo--cmacro #[1283 "\300\301\302\303\211\211 & \207" [cl--defsubst-expand (old-perm new-perm rename-state orig-name) (cl-block vc-git-create-extra-fileinfo (record 'vc-git-extra-fileinfo old-perm new-perm rename-state orig-name)) nil] 15 (#$ . 14279)]) | |
vc-git.elc:139 0.000sec 0% | |
(defalias 'vc-git-rename-as-string #[514 "\211\205\0\301!>\204\0\302\303\304D\"\210\211\305H\211\203O\0\306\307\310=\203&\0\311\2021\0\312=\2030\0\313\2021\0\314\315\301!>\204C\0\302\303\304D\"\210\316H!\317R\320\321#\202P\0\322\207" [cl-struct-vc-git-extra-fileinfo-tags type-of signal wrong-type-argument vc-git-extra-fileinfo 3 propertize " (" copy "copied from " added "renamed from " "renamed to " vc-git-escape-file-name 4 ")" face font-lock-comment-face ""] 11 (#$ . 17185)]) | |
vc-git.elc:151 0.000sec 0% | |
(defalias 'vc-git-dir-status-state-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-git-dir-status-state-p (and (memq (type-of cl-x) cl-struct-vc-git-dir-status-state-tags) t)) nil] 9 (#$ . 19333)]) | |
vc-git.elc:156 0.000sec 0% | |
(defalias 'vc-git-dir-status-state-p #[257 "\301!>\205 \0\302\207" [cl-struct-vc-git-dir-status-state-tags type-of t] 3 (#$ . 19746)]) | |
vc-git.elc:157 0.000sec 0% | |
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put vc-git-dir-status-state-p side-effect-free error-free put vc-git-dir-status-state cl-deftype-satisfies] 5) | |
vc-git.elc:181 0.000sec 0% | |
(defalias 'vc-git-dir-status-state->update-function--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-git-dir-status-state->update-function (or (vc-git-dir-status-state-p cl-x) (signal 'wrong-type-argument (list 'vc-git-dir-status-state cl-x))) (aref cl-x 3)) nil] 9 (#$ . 21967)]) | |
vc-git.elc:186 0.000sec 0% | |
(defalias 'vc-git-dir-status-state->update-function #[257 "\301!>\204\0\302\303\304D\"\210\211\305H\207" [cl-struct-vc-git-dir-status-state-tags type-of signal wrong-type-argument vc-git-dir-status-state 3] 5 (#$ . 22506)]) | |
vc-git.elc:191 0.000sec 0% | |
(defalias 'vc-git-dir-status-state->hash--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-git-dir-status-state->hash (or (vc-git-dir-status-state-p cl-x) (signal 'wrong-type-argument (list 'vc-git-dir-status-state cl-x))) (aref cl-x 4)) nil] 9 (#$ . 22994)]) | |
vc-git.elc:201 0.000sec 0% | |
(defalias 'make-vc-git-dir-status-state--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"\206\0\305A@\211\203H\0\211@\306>\2030\0\211AA\262\202\0\307>A@\203?\0\310\262\202\0\311\312@\"\210\202\0\210\313\314\315\310 \310 & \207" [plist-member :stage :files :update-function :hash (nil (make-hash-table :test 'equal)) (:stage :files :update-function :hash :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:stage :files :update-function :hash)" cl--defsubst-expand (stage files update-function hash) (cl-block make-vc-git-dir-status-state (record 'vc-git-dir-status-state stage files update-function hash))] 16 (#$ . 23934)]) | |
vc-git.elc:202 0.000sec 0% | |
(put 'make-vc-git-dir-status-state 'compiler-macro 'make-vc-git-dir-status-state--cmacro) | |
vc-git.elc:206 0.000sec 0% | |
(defalias 'make-vc-git-dir-status-state #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"\206\0\305\306\307\310\"DA@\211\203M\0\211@\311>\2035\0\211AA\262\202\"\0\312>A@\203D\0\305\262\202\"\0\313\314@\"\210\202\"\0\210\315\316%\207" [plist-member :stage :files :update-function :hash nil make-hash-table :test equal (:stage :files :update-function :hash :allow-other-keys) :allow-other-keys error "Keyword argument %s not one of (:stage :files :update-function :hash)" record vc-git-dir-status-state] 11 (#$ . 24835)]) | |
vc-git.elc:220 0.000sec 0% | |
(defalias 'vc-git-dir-status-goto-stage #[257 "\301!>\204\0\302\303\304D\"\210\211\305H\306 \210\301!>\204$\0\302\303\304D\"\210\307H\211\310\267\202\245\0\203>\0\311p\312\313\314\315&\210\202\245\0\311p\312\316\317\314%\210\202\245\0\311p\312\320\321\322\323\315&\210\202\245\0\311p\312\320\321\322\323\315&\210\202\245\0\311p\312\320\321\324\315&\210\202\245\0\311p\312\320\321\325\326\327\330\315&\n\210\202\245\0\311p\312\320\321\325\331\326\327\330\315&\210\202\245\0\311p\312\332\333\321\334\335\315& \210\210\336\337\340\341\342\343!\344\"\305$!\207" [cl-struct-vc-git-dir-status-state-tags type-of signal wrong-type-argument vc-git-dir-status-state 2 erase-buffer 1 #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (update-index 45 ls-files-added 73 ls-files-up-to-date 88 ls-files-conflict 103 ls-files-unknown 117 ls-files-ignored 134 diff-index 152)) vc-git-command async "add" "--refresh" "--" nil "update-index" "ls-files" "-z" "-c" "-s" "-u" "-o" "--directory" "--no-empty-directory" "--exclude-standard" "-i" "diff-index" "--relative" "-M" "HEAD" vc-exec-after make-byte-code 0 "\301\300!\207" vconcat vector [vc-git-after-dir-status-stage]] 15 (#$ . 30249)]) | |
vc-git.elc:230 0.000sec 0% | |
(defalias 'vc-git-dir-extra-headers #[257 "\301\302\303!!\304\216rq\210\305\306\307\"\210*rq\210\310 +\311 \312\313\211\211\314\315\"\203\221\0\316\317\"\262\301\302\303!!\320\216rq\210\305\321\322\323Q\"\210*rq\210\310 +\262\314\324\"\203]\0\316\325\"\262\203\201\0\301\302\303!!\326\216rq\210\305\321\327\330Q\"\210*rq\210\310 +\262\314\324\"\203\224\0\316\325\"\262\202\224\0\331\262\332\333\334\335#\332\334\336#\205\256\0\337\332\340\334\335#\332\334\336#Q\337\341\342\343\344!\"!\205\300\0\332\345\334\346#\341\342\347\344!\"!\205\321\0\332\350\334\346#\n\203\350\0\332\351\334\335\352%\353\354 | |
\337#P\202\371\0\332\355\334\335\352%\332\356\352 | |
\334\336%P\260\207" [standard-output get-buffer-create generate-new-buffer-name " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] 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] "config" "branch." ".remote" "\\([^\n]+\\)" 1 #[0 "\301!\207" [standard-output kill-buffer] 2] "remote." ".url" "not (detached HEAD)" propertize "Branch : " face font-lock-type-face font-lock-variable-name-face "\n" "Remote : " file-exists-p expand-file-name ".git/BISECT_START" vc-git-root "Bisect : in progress\n" font-lock-warning-face ".git/rebase-apply" "Rebase : in progress\n" "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"] 20 (#$ . 32845)]) | |
vc-git.elc:235 0.000sec 0% | |
(defalias 'vc-git-create-repo #[0 "\300\301\302\301\303$\207" [vc-git-command nil 0 "init"] 5 (#$ . 35255)]) | |
vc-git.elc:240 0.000sec 0% | |
(defalias 'vc-git-responsible-p 'vc-git-root) | |
vc-git.elc:255 0.000sec 0% | |
(byte-code "\300\301N\204\f\0\302\300\301\303#\210\304\305!\204\0\302\305\306\307#\210\300\207" [vc-git-log-edit-mode-hook variable-documentation put "Hook run after 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] 4) | |
vc-git.elc:274 0.000sec 0% | |
(defalias 'vc-git-find-revision #[771 "\304\305\211\306\307\310\311\312%\211\313\230\203\0\314\315!\"\202!\0\316\317\320#\262\321\317\304\322\323\2033\0\2024\0\324\325Q&+\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 substring 0 -1 vc-git-command "cat-file" "blob" "HEAD" ":"] 14 (#$ . 40926)]) | |
vc-git.elc:293 0.000sec 0% | |
(defalias 'vc-git--pushpull #[771 "C\302!\303\304\305!\" C\306C\203A\0\211\307\310\303\311 \242\"\303\312\242\242#\313#\314\315#\240\210\242@\240\210\242A@\240\210\211\242AA\240\210\211\242\244\240\210\316\317!\210\320\321\242 \242\242&\210rq\210\322\323\324\325\326\327\n\n\n\n\n%\330\"\331$!\210)\332!\266\204\207" [default-directory vc-git-program vc-git-root format "*vc-git : %s*" expand-file-name nil split-string read-shell-command "Git %s command: " "%s %s" vc-git-history " " t require vc-dispatcher apply vc-do-async-command vc-exec-after make-byte-code 0 "\306\307!\210\310\305!\210\303\242\311\300\242\311\312\313\304\242\311#\260\310\314!\210\301\f\310\315!\210 | |
\316\317\320\321\322\323\302!\324\"\325\326%\316F\211 | |
\207" vconcat vector [compile-command vc-compilation-mode git make-local-variable " " mapconcat identity compilation-directory compilation-arguments nil make-byte-code 257 "\300\207" vconcat vector [] 2 "\n\n(fn NAME-OF-MODE)"] 8 vc-set-async-update] 19 (#$ . 42239)]) | |
vc-git.elc:299 0.000sec 0% | |
(defalias 'vc-git-pull #[257 "\300\301\302#\207" [vc-git--pushpull "pull" ("--stat")] 5 (#$ . 43440)]) | |
vc-git.elc:305 0.000sec 0% | |
(defalias 'vc-git-push #[257 "\300\301\302#\207" [vc-git--pushpull "push" nil] 5 (#$ . 43696)]) | |
vc-git.elc:312 0.000sec 0% | |
(defalias 'vc-git-conflicted-files #[257 "\300\301\302\303$\211\205\0\304\305\306#\307\211\203>\0\211@\310\311\"\2037\0\312\313\"\312\314\"\315\235\2035\0\316 \"B\262\266A\266\202\202\0\262\207" [vc-git--run-command-string "status" "--porcelain" "--" split-string "\n" omit-nulls nil string-match "\\([ MADRCU?!][ MADRCU?!]\\) \\(.+\\)\\(?: -> \\(.+\\)\\)?" match-string 1 2 ("AU" "UD" "UA" "DU" "AA" "UU") expand-file-name] 11 (#$ . 44554)]) | |
vc-git.elc:313 0.000sec 0% | |
(autoload 'vc-resynch-buffer "vc-dispatcher") | |
vc-git.elc:18 0.000sec 0% | |
(defalias 'vc-git-revision-granularity #[0 "\300\207" [repository] 1]) | |
vc-git.elc:44 0.000sec 0% | |
(defalias 'vc-git-state #[257 "\300\301\302\303\304\305\306\307 \"\205\0\310\311\"BBBB\312\313#\211\204!\0\314\202+\0\315\316\317\320\321\322#\"!\207" ["status" "--porcelain" "-z" "--untracked-files" append version<= "1.7.6.3" vc-git--program-version ("--ignored") ("--") apply vc-git--run-command-string unregistered vc-git--git-status-to-vc-state mapcar #[257 "\300\301\302#\207" [substring 0 2] 5 "\n\n(fn S)"] split-string "\0" t] 10 (#$ . 6253)]) | |
vc-git.elc:52 0.000sec 0% | |
(defalias 'vc-git--symbolic-ref #[257 "\301\302\"\206(\0\303\304\303\305\306#\307\302\205$\0\310\311\"\203#\0\312\313\"\202$\0#)\262\207" [process-file-side-effects vc-file-getprop vc-git-symbolic-ref nil vc-git--run-command-string "symbolic-ref" "HEAD" vc-file-setprop string-match "^\\(refs/heads/\\)?\\(.+\\)$" match-string 2] 8 (#$ . 6959)]) | |
vc-git.elc:61 0.000sec 0% | |
(put 'vc-git-extra-fileinfo-p 'compiler-macro 'vc-git-extra-fileinfo-p--cmacro) | |
vc-git.elc:65 0.000sec 0% | |
(defalias 'vc-git-extra-fileinfo-p #[257 "\301!>\205 \0\302\207" [cl-struct-vc-git-extra-fileinfo-tags type-of t] 3 (#$ . 8151)]) | |
vc-git.elc:70 0.000sec 0% | |
(defalias 'vc-git-extra-fileinfo->old-perm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-git-extra-fileinfo->old-perm (or (vc-git-extra-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'vc-git-extra-fileinfo cl-x))) (aref cl-x 1)) nil] 9 (#$ . 8469)]) | |
vc-git.elc:71 0.000sec 0% | |
(put 'vc-git-extra-fileinfo->old-perm 'compiler-macro 'vc-git-extra-fileinfo->old-perm--cmacro) | |
vc-git.elc:80 0.000sec 0% | |
(defalias 'vc-git-extra-fileinfo->new-perm--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-git-extra-fileinfo->new-perm (or (vc-git-extra-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'vc-git-extra-fileinfo cl-x))) (aref cl-x 2)) nil] 9 (#$ . 9509)]) | |
vc-git.elc:100 0.000sec 0% | |
(defalias 'vc-git-extra-fileinfo->orig-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-git-extra-fileinfo->orig-name (or (vc-git-extra-fileinfo-p cl-x) (signal 'wrong-type-argument (list 'vc-git-extra-fileinfo cl-x))) (aref cl-x 4)) nil] 9 (#$ . 11623)]) | |
vc-git.elc:101 0.000sec 0% | |
(put 'vc-git-extra-fileinfo->orig-name 'compiler-macro 'vc-git-extra-fileinfo->orig-name--cmacro) | |
vc-git.elc:105 0.000sec 0% | |
(defalias 'vc-git-extra-fileinfo->orig-name #[257 "\301!>\204\0\302\303\304D\"\210\211\305H\207" [cl-struct-vc-git-extra-fileinfo-tags type-of signal wrong-type-argument vc-git-extra-fileinfo 4] 5 (#$ . 12118)]) | |
vc-git.elc:110 0.000sec 0% | |
(defalias 'make-vc-git-extra-fileinfo--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D\0\211@\305>\203,\0\211AA\262\202\0\306>A@\203;\0\307\262\202\0\310\311@\"\210\202\0\210\312\313\314\307 \307 & \207" [plist-member :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 (record 'vc-git-extra-fileinfo old-perm new-perm rename-state orig-name))] 16 (#$ . 12674)]) | |
vc-git.elc:111 0.000sec 0% | |
(put 'make-vc-git-extra-fileinfo 'compiler-macro 'make-vc-git-extra-fileinfo--cmacro) | |
vc-git.elc:116 0.000sec 0% | |
(byte-code "\300\301\302\303#\300\207" [function-put make-vc-git-extra-fileinfo side-effect-free t] 4) | |
vc-git.elc:125 0.000sec 0% | |
(defalias 'vc-git-create-extra-fileinfo #[1026 "\300\301%\207" [record vc-git-extra-fileinfo] 10 (#$ . 14802)]) | |
vc-git.elc:134 0.000sec 0% | |
(defalias 'vc-git-file-type-as-string #[514 "\300\206\0\301\302\"\300\206\0\301\302\"\211\303\267\202f\0\304\267\202(\0\305\202j\0\306\202j\0\307\202j\0\305\202j\0\310\267\202:\0\311\202j\0\312\202j\0\313\202j\0\314\267\202L\0\315\202j\0\316\202j\0\317\202j\0\305\202j\0\320\267\202b\0\313\202j\0\317\202j\0\305\202j\0\321\322\"\211\203v\0\323\324\325#\202\201\0\326=\203\200\0\327\202\201\0\330\207" [ash 0 -9 #s(hash-table size 5 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (64 22 80 44 112 62 72 80 0 84)) #s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (64 28 80 32 112 36)) nil " (type change symlink -> file)" " (type change subproject -> file)" #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (64 50 112 54)) " (type change file -> symlink)" " (type change subproject -> symlink)" " (symlink)" #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (64 68 80 72)) " (type change file -> subproject)" " (type change symlink -> subproject)" " (subproject)" #s(hash-table size 2 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (80 90 112 94)) format " (unknown type %o)" propertize face font-lock-comment-face 72 "/" ""] 9 (#$ . 15796)]) | |
vc-git.elc:143 0.000sec 0% | |
(defalias 'vc-git-permissions-as-string #[514 "\300\203\0\203\0\301\302\303\"\"\304=\203\0\305\202'\0\301\302\"\304=\203&\0\306\202'\0\307\310\311#\207" [propertize logand 73 logxor 0 " " "+x" "-x" face font-lock-type-face] 8 (#$ . 17794)]) | |
vc-git.elc:162 0.000sec 0% | |
(put 'vc-git-dir-status-state->stage 'compiler-macro 'vc-git-dir-status-state->stage--cmacro) | |
vc-git.elc:171 0.000sec 0% | |
(defalias 'vc-git-dir-status-state->files--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-git-dir-status-state->files (or (vc-git-dir-status-state-p cl-x) (signal 'wrong-type-argument (list 'vc-git-dir-status-state cl-x))) (aref cl-x 2)) nil] 9 (#$ . 21020)]) | |
vc-git.elc:176 0.000sec 0% | |
(defalias 'vc-git-dir-status-state->files #[257 "\301!>\204\0\302\303\304D\"\210\211\305H\207" [cl-struct-vc-git-dir-status-state-tags type-of signal wrong-type-argument vc-git-dir-status-state 2] 5 (#$ . 21509)]) | |
vc-git.elc:187 0.000sec 0% | |
(byte-code "\300\301\302\303#\300\207" [function-put vc-git-dir-status-state->update-function side-effect-free t] 4) | |
vc-git.elc:196 0.000sec 0% | |
(defalias 'vc-git-dir-status-state->hash #[257 "\301!>\204\0\302\303\304D\"\210\211\305H\207" [cl-struct-vc-git-dir-status-state-tags type-of signal wrong-type-argument vc-git-dir-status-state 4] 5 (#$ . 23478)]) | |
vc-git.elc:197 0.000sec 0% | |
(byte-code "\300\301\302\303#\300\207" [function-put vc-git-dir-status-state->hash side-effect-free t] 4) | |
vc-git.elc:211 0.000sec 0% | |
(defalias 'vc-git-dir-status-update-file #[1028 "\301D\302!>\204\0\303\304\305 D\"\210\306H#\210\302!>\204,\0\303\304\305D\"\210\211\307\310\302 !>\204C\0\303\304\305D\"\210\307H\"I\207" [cl-struct-vc-git-dir-status-state-tags puthash type-of signal wrong-type-argument vc-git-dir-status-state 4 2 delete] 13 (#$ . 25713)]) | |
vc-git.elc:224 0.000sec 0% | |
(defalias 'vc-git-dir-status-files #[771 "\300\301\302\303\304\305&!\207" [vc-git-dir-status-goto-stage make-vc-git-dir-status-state :stage update-index :files :update-function] 11 (#$ . 31495)]) | |
vc-git.elc:233 0.000sec 0% | |
(defalias 'vc-git-branches #[0 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\"\210eb\210\314\211m\204D\0\315\316!\203>\0\317\320!\321\230\2037\0\317\310!\262\202>\0\317\310!B\262\320y\210\202\0\237B\266\202*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \0\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-git--call t "branch" nil looking-at "^\\([ *]\\) \\(.+\\)$" match-string 1 "*"] 7 (#$ . 34694)]) | |
vc-git.elc:239 0.000sec 0% | |
(defalias 'vc-git-register #[513 "\300\211\211\203#\0\211@\301!\203\0\211B\262\202\0\211B\262A\266\202\202\0\210\2032\0\302\300\303\304\305\306&\210\211\205<\0\302\300\303\307$\207" [nil file-directory-p vc-git-command 0 "update-index" "--add" "--" "add"] 11 (#$ . 35399)]) | |
vc-git.elc:244 0.000sec 0% | |
(defalias 'vc-git-unregister #[257 "\300\301\302\303\304\305\306&\207" [vc-git-command nil 0 "rm" "-f" "--cached" "--"] 9 (#$ . 35815)]) | |
vc-git.elc:249 0.000sec 0% | |
(defalias 'vc-git-log-edit-toggle-no-verify #[0 "\300\301\302\"\207" [log-edit-toggle-header "No-Verify" "yes"] 3 (#$ . 36189) nil]) | |
vc-git.elc:254 0.000sec 0% | |
(defvar vc-git-log-edit-mode-hook nil) | |
vc-git.elc:256 0.000sec 0% | |
(defvar vc-git-log-edit-mode-map (make-sparse-keymap)) | |
vc-git.elc:266 0.000sec 0% | |
(defalias 'vc-git-log-edit-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\0\314\311\313\310\313N#\210\315!\204'\0\316\317 \"\210\320\f!\211\2035\0\211\321 =\203;\0\322\f\323 \"\210\210\324 | |
\325\"\204R\0 | |
=\204R\0\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 (#$ . 38720) nil]) | |
vc-git.elc:270 0.000sec 0% | |
(defalias 'vc-git-checkin #[770 "@\206\0\305!\306!A\206\0\211\307!\232? \n\310=\203#\0\202(\0 \206(\0\f\n\310=\2057\0\311!\312\313!)\314\315\316\317\320\205C\0\f\203R\0\321\322\323 !E\202U\0\321\324D\325\326\327\330\n\331!B\332\333!B\334\f\335!B\257\"\203\210\0 \206z\0\f\336@\317#\210)\211A\262\211\262\244 \203\227\0\337\340D\202\230\0\341\244%\266\211\205\251\0\342!\205\251\0\343!*\207" [default-directory coding-system-for-write system-type locale-coding-system vc-git-commits-coding-system vc-git-root expand-file-name abbreviate-file-name windows-nt file-name-directory make-nearby-temp-file "git-msg" #[257 "\300\301\302\303\304!\305\"\306\307%\207" [make-byte-code 257 "\211\301\232\205\0\300C\207" vconcat vector ["yes"] 3 "\n\n(fn VALUE)"] 7 "\n\n(fn ARGUMENT)"] apply vc-git-command nil 0 "commit" "-F" file-local-name "-m" log-edit-extract-headers ("Author" . "--author") ("Date" . "--date") "Amend" "--amend" "No-Verify" "--no-verify" "Sign-Off" "--signoff" write-region "--only" "--" ("-a") file-exists-p delete-file] 23 (#$ . 39809)]) | |
vc-git.elc:278 0.000sec 0% | |
(defalias 'vc-git-find-ignore-file #[257 "\300\301\302!\"\207" [expand-file-name ".gitignore" vc-git-root] 5 (#$ . 41421)]) | |
vc-git.elc:286 0.000sec 0% | |
(defalias 'vc-git-revert #[513 "\211\203\f\0\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 (#$ . 41770)]) | |
vc-git.elc:315 0.000sec 0% | |
(defalias 'vc-git-resolve-when-done #[0 "\212eb\210\302\303\304\305#?\205?\0\306\304\307\310$\210 \311=\2034\0\312\313\314\315!\"!\2044\0\316\315!!\2044\0\306\304\307\304\317$\210\320\305\211#\210\321\322\323\305#)\207" [buffer-file-name vc-git-resolve-conflicts re-search-forward "^<<<<<<< " nil t vc-git-command 0 "add" unstage-maybe file-exists-p expand-file-name ".git/MERGE_HEAD" vc-git-root vc-git-conflicted-files "reset" vc-resynch-buffer remove-hook after-save-hook vc-git-resolve-when-done] 5 (#$ . 45131)]) | |
vc-git.elc:317 0.000sec 0% | |
(defalias 'vc-git-find-file-hook #[0 "\205+\0\302\303\"\304=\205+\0\212eb\210\305\306\307\310#)\205+\0\311 \210 \203(\0\312\313\314\307\315$\210\316!\207" [buffer-file-name vc-git-resolve-conflicts vc-state Git conflict re-search-forward "^<<<<<<< " nil noerror smerge-start-session add-hook after-save-hook vc-git-resolve-when-done local vc-message-unresolved-conflicts] 5 (#$ . 45713)]) | |
vc-git.elc:342 0.000sec 0% | |
(defvar vc-git-log-view-mode-map (make-sparse-keymap)) | |
vc-git.elc:16 0.000sec 0% | |
(defvar vc-git-history nil) | |
vc-git.elc:17 0.000sec 0% | |
(put 'Git 'vc-functions nil) | |
vc-git.elc:22 0.000sec 0% | |
(defalias 'vc-git-checkout-model #[257 "\300\207" [implicit] 2 (#$ . 3891)]) | |
vc-git.elc:26 0.000sec 0% | |
(defalias 'vc-git-registered #[257 "\301!\211\205f\0\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314\"\3151G\0\316!\210\317\320\321\322\323%\210ed=\203A\0\317\324\325\322\326\323&\210\327 0\202I\0\210\313\211\205`\0\211GGV\205`\0\330\305GT#\331P\230)\266\202*\262\207" [process-file-side-effects vc-git-root generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \0\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 nil file-relative-name (error) cd vc-git--out-ok "ls-files" "-c" "-z" "--" "ls-tree" "--name-only" "HEAD" buffer-string substring "\0"] 11 (#$ . 3987)]) | |
vc-git.elc:30 0.000sec 0% | |
(defalias 'vc-git--state-code #[257 "\300!\301\302\"\203\0\303\2027\0\301\304\"\203\0\305\2027\0\301\306\"\203$\0\307\2027\0\301\310\"\2042\0\301\311\"\2036\0\303\2027\0\312\207" [string-to-char eql 77 edited 65 added 68 removed 85 84 nil] 5 (#$ . 4652)]) | |
vc-git.elc:32 0.000sec 0% | |
(defalias 'vc-git--program-version #[0 "\206\0\301\302\303\"\211\203\0\304\305\"\203\0\306\307\"\202\0\310\211\262\207" [vc-git--program-version vc-git--run-command-string nil "version" string-match "git version \\([0-9.]+\\)\\(\\.windows\\.[0-9]+\\)?$" match-string 1 "0"] 4]) | |
vc-git.elc:40 0.000sec 0% | |
(defalias 'vc-git--git-status-to-vc-state #[257 "\211\204\0\301\207\211:\203\210\0\211@A\211\204|\0\211\302\267\202&\0\303\202w\0\304\202w\0\305\202w\0\306\307\310\311#)\266\203\203:\0\305\202w\0\312\307\310\311#)\266\203\203N\0\313\202w\0\314\307\310\311#)\266\203\203b\0\315\202w\0\316\307\310\311#)\266\203\203v\0\317\202w\0\313\262\202\207\0\320\232\203\206\0\304\202\207\0\313\207\211\320\232\203\220\0\304\207\313\207" [inhibit-changing-match-data up-to-date #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("!!" 26 "??" 30 "AD" 34)) ignored unregistered removed "^[ RD]+$" nil t string-match "^[ M]+$" edited "^[ A]+$" added "^[ U]+$" conflict ("D " "??")] 11 (#$ . 5303)]) | |
vc-git.elc:56 0.000sec 0% | |
(defalias 'vc-git-mode-line-string #[257 "\300\301\"\302!\206\0\303\304\305#\306\301\"\307\304\310#\307\304\311#\312\303\304\313#P\311\310\314Q%\207" [vc-working-revision Git vc-git--symbolic-ref substring 0 7 vc-default-mode-line-string get-text-property help-echo face propertize 4 "\nCurrent revision: "] 14 (#$ . 7327)]) | |
vc-git.elc:60 0.000sec 0% | |
(defalias 'vc-git-extra-fileinfo-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block vc-git-extra-fileinfo-p (and (memq (type-of cl-x) cl-struct-vc-git-extra-fileinfo-tags) t)) nil] 9 (#$ . 7751)]) | |
vc-git.elc:66 0.000sec 0% | |
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put vc-git-extra-fileinfo-p side-effect-free error-free put vc-git-extra-fileinfo cl-deftype-satisfies] 5) | |
vc-git.elc:115 0.000sec 0% | |
(defalias 'make-vc-git-extra-fileinfo #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D\0\211@\305>\203,\0\211AA\262\202\0\306>A@\203;\0\307\262\202\0\310\311@\"\210\202\0\210\312\313%\207" [plist-member :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)" record vc-git-extra-fileinfo] 11 (#$ . 13564)]) | |
vc-git.elc:121 0.000sec 0% | |
(put 'vc-git-create-extra-fileinfo 'compiler-macro 'vc-git-create-extra-fileinfo--cmacro) | |
vc-git.elc:130 0.000sec 0% | |
(defalias 'vc-git-escape-file-name #[257 "\300\301\"\203\0\302\303\304\305#\302Q\207\207" [string-match "[\n \"\\]" "\"" mapconcat #[257 "\211\300\267\202\0\301\207\302\207\303\207\304\207\305!\207" [#s(hash-table size 4 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (10 6 9 8 92 10 34 12)) "\\n" "\\t" "\\\\" "\\\"" char-to-string] 3 "\n\n(fn C)"] ""] 6 (#$ . 15354)]) | |
vc-git.elc:152 0.000sec 0% | |
(put 'vc-git-dir-status-state-p 'compiler-macro 'vc-git-dir-status-state-p--cmacro) | |
vc-git.elc:166 0.000sec 0% | |
(defalias 'vc-git-dir-status-state->stage #[257 "\301!>\204\0\302\303\304D\"\210\211\305H\207" [cl-struct-vc-git-dir-status-state-tags type-of signal wrong-type-argument vc-git-dir-status-state 1] 5 (#$ . 20562)]) | |
vc-git.elc:167 0.000sec 0% | |
(byte-code "\300\301\302\303#\300\207" [function-put vc-git-dir-status-state->stage side-effect-free t] 4) | |
vc-git.elc:172 0.000sec 0% | |
(put 'vc-git-dir-status-state->files 'compiler-macro 'vc-git-dir-status-state->files--cmacro) | |
vc-git.elc:177 0.000sec 0% | |
(byte-code "\300\301\302\303#\300\207" [function-put vc-git-dir-status-state->files side-effect-free t] 4) | |
vc-git.elc:182 0.000sec 0% | |
(put 'vc-git-dir-status-state->update-function 'compiler-macro 'vc-git-dir-status-state->update-function--cmacro) | |
vc-git.elc:192 0.000sec 0% | |
(put 'vc-git-dir-status-state->hash 'compiler-macro 'vc-git-dir-status-state->hash--cmacro) | |
vc-git.elc:212 0.000sec 0% | |
(put 'vc-git-dir-status-update-file 'byte-optimizer 'byte-compile-inline-expand) | |
vc-git.elc:247 0.000sec 0% | |
(defalias 'vc-git-log-edit-toggle-signoff #[0 "\300\301\302\"\207" [log-edit-toggle-header "Sign-Off" "yes"] 3 (#$ . 35972) nil]) | |
vc-git.elc:252 0.000sec 0% | |
(defalias 'vc-git-log-edit-toggle-amend #[0 "\301\302\303\"\205[\0db\210n\204\0\304c\210\305\306\307!!\310\216\311\312\313\314\315\316\317&\210)rq\210\320 +c\210\212\321 \210\312y\210`\312y\322U\205X\0\323\324!\205X\0\325`S\"\326\313w\210`|\210\327\330\"\262\262)\207" [standard-output log-edit-toggle-header "Amend" "yes" "\n" get-buffer-create generate-new-buffer-name " *string-output*" #[0 "\301!\207" [standard-output kill-buffer] 2] vc-git-command 1 nil "log" "--max-count=1" "--pretty=format:%B" "HEAD" buffer-string rfc822-goto-eoh 0 looking-at "\n\\|\\'" buffer-substring-no-properties " \n" log-edit-set-header "Summary"] 8 (#$ . 36391) nil]) | |
vc-git.elc:282 0.000sec 0% | |
(defalias 'vc-git-checkout #[513 "\300\301\302\303\206\n\0\304%\207" [vc-git-command nil 0 "checkout" "HEAD"] 8 (#$ . 41610)]) | |
vc-git.elc:288 0.000sec 0% | |
(defvar vc-git-error-regexp-alist '(("^ \\(.+\\)\\> *|" 1 nil nil 0)) (#$ . 42085)) | |
vc-git.elc:327 0.000sec 0% | |
(defalias 'vc-git-print-log #[1282 "\206\0 \305!\210\306rq\210\307\310\311\312\313\2054\0A?\2054\0@\2054\0\314\f@!?\2054\0\315C\n\205F\0\316\317\320\321\322\f@\"\323BBBB \247\205S\0\324\321\325\f\"D\205{\0\n\203x\0\n\247\204x\0\326\f\327\232\203q\0\330\202s\0\fQC\202{\0C\331&%+\207" [coding-system-for-read vc-git-log-output-coding-system inhibit-read-only vc-git-print-log-follow vc-git-root-log-format vc-setup-buffer t apply vc-git-command async append ("log" "--no-color") file-directory-p "--follow" "--graph" "--decorate" "--date=short" format "--pretty=tformat:%s" ("--abbrev-commit") "-n" "%s" ".." "" "HEAD" ("--")] 19 (#$ . 46457)]) | |
vc-git.elc:331 0.000sec 0% | |
(defalias 'vc-git-log-outgoing #[514 "\301!\210\302\303\304\305\306\307\310\311\312\313@\"\314\315\230\203\0\316\202 \0\317P&\207" [vc-git-root-log-format vc-setup-buffer vc-git-command async nil "log" "--no-color" "--graph" "--decorate" "--date=short" format "--pretty=tformat:%s" "--abbrev-commit" "" "@{upstream}" "..HEAD"] 15 (#$ . 47572) nil]) | |
vc-git.elc:335 0.000sec 0% | |
(defalias 'vc-git-log-incoming #[514 "\301!\210\302\303\304\303\305$\210\302\306\303\307\310\311\312\313\314\315@\"\316\317\f\320\230\203&\0\321\202(\0\fP&\207" [vc-git-root-log-format vc-setup-buffer vc-git-command nil 0 "fetch" async "log" "--no-color" "--graph" "--decorate" "--date=short" format "--pretty=tformat:%s" "--abbrev-commit" "HEAD.." "" "@{upstream}"] 16 (#$ . 47964) nil]) | |
vc-git.elc:339 0.000sec 0% | |
(defalias 'vc-git-mergebase #[513 "\211\204\0\301\262\302\303\304$\303\305\206\0\306\307Q\303\310\311#)\266\203\211\203.\0\312\313#\202/\0\207" [inhibit-changing-match-data "HEAD" vc-git--run-command-string nil "merge-base" "\\(?:" "[ \n | |
]+" "\\)\\'" t string-match substring 0] 11 (#$ . 48393)]) | |
vc-git.elc:340 0.000sec 0% | |
(defvar vc-git-log-view-mode-hook nil) | |
vc-git.elc:341 0.000sec 0% | |
(byte-code "\300\301N\204\f\0\302\300\301\303#\210\304\305!\204\0\302\305\306\307#\210\300\207" [vc-git-log-view-mode-hook variable-documentation put "Hook run after 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] 4) | |
vc-git.elc:357 0.000sec 0% | |
(defalias 'vc-git-log-view-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\0\314\311\313\310\313N#\210\315!\204'\0\316\317 \"\210\320\f!\211\2035\0\211\321 =\203;\0\322\f\323 \"\210\210\324 | |
\325\"\204R\0 | |
,=\204R\0\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\201\0.A@\202\202\0\341-\342>\203\225\0\307/\306\343!\210\344#\306\345!\210-\340=\204\255\0.A@\346.8BC\202\265\0\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-outgoing log-incoming mergebase) 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 truncate-lines] 5 (#$ . 50009) nil]) | |
vc-git.elc:363 0.000sec 0% | |
(defalias 'vc-git-show-log-entry #[257 "eb\210\211\2055\0\300\301\302\"\303\304\305\306\"\203!\0\307\310\311\"!T\2024\0\305\312\"\2033\0\310\313\"GT\2024\0\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 (#$ . 52590)]) | |
vc-git.elc:367 0.000sec 0% | |
(defalias 'vc-git-expanded-log-entry #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\314\211\315\316\317F%\210eb\210m?\205<\0\320\321\314\313#\203:\0\322\323!\210\314y\210\202(\0\324 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \0\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 apply vc-git-command t nil "log" "-1" "--" re-search-forward "^ " replace-match "" buffer-string] 11 (#$ . 53065)]) | |
vc-git.elc:372 0.000sec 0% | |
(defalias 'vc-git-region-history #[1028 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313\314\315p&\210eb\210\303\315\211\316\317\315\320#\203y\0\321\322\323!!\321\322\310!!\321\322\324!!\321\322\325!!Z\232\204M\0\326\327!\210\204\\\0\nV\203\\\0\262\204k\0 V\203k\0\262\\\\Z\262\266\202$\0\206\0Z\262\206\210\0Z\262\266*\210\330\331\315\332\333\334\335 \336!$&\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \0\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-call-backend git diff "HEAD" nil re-search-forward "^@@ -\\([0-9]+\\),\\([0-9]+\\) \\+\\([0-9]+\\),\\([0-9]+\\) @@" t string-to-number match-string 1 3 4 cl--assertion-failed (equal (- curno headno) last-offset) vc-git-command async "log" "-p" format "-L%d,%d:%s" file-relative-name] 16 (#$ . 53544)]) | |
vc-git.elc:31 0.000sec 0% | |
(defvar vc-git--program-version nil) |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment