Skip to content

Instantly share code, notes, and snippets.

@majorgreys
Created April 16, 2019 04:45
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save majorgreys/8a90509a163a4f658a97bdd39643813e to your computer and use it in GitHub Desktop.
Save majorgreys/8a90509a163a4f658a97bdd39643813e to your computer and use it in GitHub Desktop.
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\305 D\"\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\305 D\"\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\305 D\"\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\305 D\"\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\305 D\"\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\305 D\"\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\305 D\"\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\305 D\"\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\305 D\"\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\305 D\"\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\314 Q%\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\0 A?\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{\0 C\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