Created
June 10, 2020 00:07
-
-
Save hartzell/f9efc12382b862fe906f3859dda3c592 to your computer and use it in GitHub Desktop.
esup profile of my emacs startup on AWS
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
| $ cat emacs-profile | |
| Built an X emacs and ran esup. Here's what it told me: | |
| FWIW: The total of the non-zero times excluding sm-modules is 3.95.... | |
| --- | |
| Total User Startup Time: 17.204sec Total Number of GC Pauses: 0 Total GC Time: 0.000sec | |
| sm-modules.el:9 13.274sec 77% | |
| (let ((bootstrap-file | |
| (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) | |
| (bootstrap-version 5)) | |
| (unless (file-exists-p bootstrap-file) | |
| (with-current-buffer | |
| (url-retrieve-synchronously | |
| "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el" | |
| 'silent 'inhibit-cookies) | |
| (goto-char (point-max)) | |
| (eval-print-last-sexp))) | |
| (load bootstrap-file nil 'nomessage)) | |
| sm-appearance.el:14 1.502sec 8% | |
| (add-hook 'after-init-hook | |
| (lambda nil | |
| (set-fringe-style 0) | |
| ;; (setq-default cursor-type 'bar) | |
| (if (fboundp 'menu-bar-mode) (menu-bar-mode -1)) | |
| (if (fboundp 'tool-bar-mode) (tool-bar-mode -1)) | |
| (if (fboundp 'scroll-bar-mode) (scroll-bar-mode -1)) | |
| (set-face-attribute | |
| 'default nil | |
| :family sm/fixed-font-name | |
| :height sm/font-height | |
| :weight sm/fixed-font-weight) | |
| (set-face-attribute | |
| 'line-number nil | |
| :family sm/fixed-font-name | |
| :height (- sm/font-height 10) | |
| :weight sm/fixed-font-weight) | |
| (set-face-attribute | |
| 'variable-pitch nil | |
| :family sm/var-font-name)) | |
| (if (display-graphic-p) | |
| (load-theme 'wombat t) | |
| ;; (load-theme 'heroku t) | |
| ;; dark theme, very contrasty. | |
| ;; (load-theme 'manoj-dark t) | |
| ;; (load-theme 'tsdh-dark t) | |
| (load-theme 'wombat t) | |
| )) | |
| sm-searching.el:27 0.373sec 2% | |
| (use-package anzu | |
| :delight anzu-mode | |
| :demand ; don't defer, want it globally | |
| :config | |
| (global-anzu-mode t) | |
| ;; remap these commands to anzu's versions | |
| :bind (( [remap query-replace] . anzu-query-replace) | |
| ( [remap query-replace-regexp] . anzu-query-replace-regexp))) | |
| sm-source-control.el:100 0.342sec 1% | |
| (use-package diff-hl | |
| :init | |
| (progn | |
| (global-diff-hl-mode) | |
| (unless (display-graphic-p) | |
| (diff-hl-margin-mode)) | |
| (add-hook 'dired-mode-hook 'diff-hl-dired-mode))) | |
| sm-modules.el:30 0.170sec 0% | |
| (use-package use-package-chords | |
| :demand | |
| :config (key-chord-mode 1)) | |
| sm-source-control.el:48 0.089sec 0% | |
| (use-package forge | |
| :after magit) | |
| sm-editing.el:231 0.086sec 0% | |
| (use-package volatile-highlights | |
| :demand | |
| :config | |
| (volatile-highlights-mode t) | |
| ) | |
| sm-editing.el:201 0.082sec 0% | |
| (use-package crypt++ | |
| :straight nil | |
| :load-path "etc/extra" | |
| :demand t | |
| :config | |
| (progn | |
| (epa-file-disable) | |
| (setq crypt-encryption-type 'gpg) | |
| (setq crypt-encryption-file-extension "\\(\\.gpg\\)$") | |
| (modify-coding-system-alist 'file "\\.bz\\'" 'no-conversion) | |
| (modify-coding-system-alist 'file "\\.bz2\\'" 'no-conversion) | |
| (modify-coding-system-alist 'file "\\.gpg\\'" 'no-conversion) | |
| (modify-coding-system-alist 'file "\\.gz\\'" 'no-conversion) | |
| (modify-coding-system-alist 'file "\\.Z\\'" 'no-conversion) | |
| )) | |
| sm-source-control.el:34 0.066sec 0% | |
| (use-package magit | |
| :commands magit-status | |
| :bind ("C-x g" . magit-status) | |
| :config | |
| ;; Remove git from backends that builtin VC mode handles | |
| (setq vc-handled-backends (delq 'Git vc-handled-backends)) | |
| (setq magit-display-buffer-function #'magit-display-buffer-fullframe-status-v1) | |
| (add-hook 'git-commit-mode-hook (lambda () | |
| (progn | |
| (git-commit-turn-on-flyspell) | |
| (git-commit-turn-on-auto-fill) | |
| (setq git-commit-summary-max-length 50))))) | |
| sm-coding-java.el:3 0.052sec 0% | |
| (use-package ensime | |
| :straight (:repo "https://github.com/ensime/ensime-emacs" :branch "2.0") | |
| :commands java-mode) | |
| sm-path.el:2 0.042sec 0% | |
| (use-package no-littering | |
| :demand t | |
| :config | |
| (setq auto-save-file-name-transforms | |
| `((".*" ,(no-littering-expand-var-file-name "auto-save/") t)))) | |
| sm-projects.el:4 0.039sec 0% | |
| (use-package projectile | |
| :delight projectile-mode | |
| :commands (projectile-mode projectile-global-mode) | |
| :bind ("C-c p a" . projectile-ag) | |
| :init | |
| (add-hook 'after-init-hook 'projectile-global-mode) | |
| (setq projectile-completion-system 'ivy) | |
| :config | |
| ;; Ensure projectile dir exists. | |
| (defvar my-projectile-dir (sm/cache-for "projectile")) | |
| (sm/mkdir-p my-projectile-dir) | |
| ;; Use projectile dir for cache and bookmarks. | |
| (let* ((prj-dir (file-name-as-directory my-projectile-dir)) | |
| (prj-cache-file (concat prj-dir "projectile.cache")) | |
| (prj-bookmarks-file (concat prj-dir "projectile-bkmrks.eld"))) | |
| (setq projectile-cache-file prj-cache-file | |
| projectile-known-projects-file prj-bookmarks-file | |
| projectile-indexing-method 'alien))) | |
| sm-ui.el:15 0.038sec 0% | |
| (use-package ivy-prescient | |
| :hook (after-init . ivy-prescient-mode) | |
| :config | |
| (setq prescient-filter-method 'fuzzy)) | |
| sm-searching.el:4 0.038sec 0% | |
| (use-package deadgrep | |
| :bind ("C-c S" . deadgrep)) | |
| sm-coding-cc.el:25 0.029sec 0% | |
| (use-package arduino-mode) | |
| sm-coding-stats.el:4 0.028sec 0% | |
| (use-package ess | |
| :commands R-mode | |
| :mode (("\\.R$" . R-mode) | |
| ("\\.r$" . R-mode))) | |
| sm-coding-elixir.el:3 0.026sec 0% | |
| (use-package alchemist | |
| :commands (elixir-mode alchemist-mode) | |
| :delight alchemist-mode) | |
| sm-coding-general.el:15 0.026sec 0% | |
| (use-package highlight-numbers | |
| :commands highlight-numbers-mode | |
| :init | |
| (add-hook 'prog-mode-hook #'highlight-numbers-mode)) | |
| sm-coding-ruby.el:3 0.026sec 0% | |
| (use-package ruby-mode | |
| :straight ruby-tools | |
| :straight inf-ruby | |
| :interpreter "ruby" | |
| :mode (("Fastfile$" . ruby-mode) | |
| ("Appfile$" . ruby-mode)) | |
| :config | |
| (add-hook 'ruby-mode-hook | |
| (lambda () | |
| (inf-ruby-minor-mode t) | |
| (ruby-tools-mode t)))) | |
| sm-writing.el:31 0.025sec 0% | |
| (use-package flyspell-correct-ivy | |
| :after flyspell | |
| :commands flyspell-correct-word-generic | |
| :bind (:map flyspell-mode-map ("C-;" . flyspell-correct-word-generic)) | |
| :custom (flyspell-correct-interface 'flyspell-correct-ivy)) | |
| sm-editing.el:73 0.025sec 0% | |
| (use-package crux | |
| :bind (("C-x C-r" . crux-recentf-find-file) | |
| ("C-a" . crux-move-beginning-of-line) | |
| ("<S-return>" . crux-smart-open-line) | |
| ("C-c R" . crux-rename-buffer-and-file) | |
| ("C-c D" . crux-delete-buffer-and-file) | |
| ("<f2>" . crux-visit-term-buffer) | |
| ("s-j" . crux-top-join-line)) | |
| :config (recentf-mode t)) | |
| sm-coding-general.el:43 0.024sec 0% | |
| (use-package lsp-mode | |
| :commands (lsp lsp-deferred) | |
| ;; (setq lsp-ui-sideline-show-code-actions nil) | |
| :custom | |
| ;; (lsp-auto-guess-root t) ;; requires projectile/project? | |
| ;; sync methods: none, full, incremental, or nil (nil == use lsp suggestion) | |
| (lsp-document-sync-method nil) | |
| (lsp-prefer-flymake nil) ;; t(flymake), nil(lsp-ui/flycheck), or :none | |
| :hook (go-mode . lsp-deferred) | |
| :bind | |
| (:map lsp-mode-map | |
| ("C-c r" . lsp-rename)) | |
| :config | |
| ;; optional - provides fancier overlays | |
| (use-package lsp-ui | |
| :commands lsp-ui-mode | |
| :hook (lsp-mode . lsp-ui-mode) | |
| :custom | |
| (lsp-ui-doc-delay 1) | |
| (lsp-ui-sideline-delay 2) | |
| (lsp-ui-sideline-show-code-actions nil) | |
| (lsp-ui-sideline-show-hover nil) | |
| ;; lsp-ui-doc | |
| (lsp-ui-doc-enable nil) | |
| (lsp-ui-doc-header t) | |
| (lsp-ui-doc-include-signature nil) | |
| (lsp-ui-doc-position 'at-point) ;; top, bottom, or at-point | |
| (lsp-ui-doc-max-width 120) | |
| (lsp-ui-doc-max-height 30) | |
| (lsp-ui-doc-use-childframe t) | |
| (lsp-ui-doc-use-webkit t) | |
| ;; lsp-ui-flycheck | |
| ;; sjrmanning sets this to t in his.... | |
| (lsp-ui-flycheck-enable nil) | |
| ;; lsp-ui-sideline | |
| (lsp-ui-sideline-enable nil) | |
| (lsp-ui-sideline-ignore-duplicate t) | |
| ;; (lsp-ui-sideline-show-symbol t) | |
| (lsp-ui-sideline-show-hover t) | |
| (lsp-ui-sideline-show-diagnostics nil) | |
| ;; (lsp-ui-sideline-show-code-actions t) | |
| (lsp-ui-sideline-code-actions-prefix "") | |
| ;; lsp-ui-imenu | |
| (lsp-ui-imenu-enable t) | |
| (lsp-ui-imenu-kind-position 'top) | |
| ;; lsp-ui-peek | |
| (lsp-ui-peek-enable t) | |
| (lsp-ui-peek-peek-height 20) | |
| (lsp-ui-peek-list-width 50) | |
| (lsp-ui-peek-fontify 'on-demand) ;; never, on-demand, or always | |
| :preface | |
| (defun ladicle/toggle-lsp-ui-doc () | |
| (interactive) | |
| (if lsp-ui-doc-mode | |
| (progn | |
| (lsp-ui-doc-mode -1) | |
| (lsp-ui-doc--hide-frame)) | |
| (lsp-ui-doc-mode 1))) | |
| :bind | |
| (:map lsp-mode-map | |
| ("C-c C-r" . lsp-ui-peek-find-references) | |
| ("C-c C-j" . lsp-ui-peek-find-definitions) | |
| ("C-c i" . lsp-ui-peek-find-implementation) | |
| ("C-c m" . lsp-ui-imenu) | |
| ("C-c s" . lsp-ui-sideline-mode) | |
| ("C-c d" . ladicle/toggle-lsp-ui-doc)) | |
| ) | |
| ;; (use-package lsp-origami | |
| ;; :config | |
| ;; (origami-mode 1) | |
| ;; :hook (lsp-mode . lsp-origami-mode)) | |
| ) | |
| sm-ui.el:40 0.024sec 0% | |
| (use-package counsel | |
| :hook (after-init . counsel-mode) | |
| :delight counsel-mode | |
| :bind (("M-x" . counsel-M-x) | |
| ("C-x C-f" . counsel-find-file) | |
| ("C-c s" . counsel-rg))) | |
| sm-writing.el:2 0.024sec 0% | |
| (use-package writeroom-mode | |
| :commands (writeroom-mode) | |
| :config | |
| (add-to-list 'writeroom-global-effects 'visual-line-mode) | |
| (setq writeroom-restore-window-config t | |
| writeroom-width 100)) | |
| sm-editing.el:125 0.024sec 0% | |
| (use-package smartparens | |
| :config | |
| (require 'smartparens-config) | |
| :hook | |
| (after-init . (lambda () | |
| (smartparens-global-mode t) | |
| (show-smartparens-global-mode t))) | |
| :delight " ()" | |
| :bind | |
| ((:map sp-keymap) | |
| ("C-M-f" . sp-forward-sexp) | |
| ("C-M-b" . sp-backward-sexp) | |
| ("C-M-n" . sp-next-sexp) | |
| ("C-M-p" . sp-previous-sexp) | |
| ("C-M-k" . sp-kill-sexp) | |
| ("C-M-w" . sp-copy-sexp))) | |
| sm-coding-java.el:7 0.024sec 0% | |
| (use-package java | |
| :straight java-imports | |
| :commands java-mode | |
| :config | |
| (setq java-imports-find-block-function 'java-imports-find-place-sorted-block) | |
| :init | |
| (add-hook 'java-mode-hook | |
| (lambda () | |
| (require 'ensime) | |
| (ensime-mode t) | |
| (java-imports-scan-file) | |
| (bind-key "M-I" 'java-imports-add-import-dwim java-mode-map) | |
| (setq tab-width 2 | |
| c-basic-offset 2)))) | |
| sm-coding-web.el:11 0.024sec 0% | |
| (use-package sass-mode | |
| :mode ("\\.sass\\'" . sass-mode)) | |
| sm-editing.el:37 0.021sec 0% | |
| (bind-key "\e \C-g" 'goto-line) | |
| sm-dired.el:5 0.021sec 0% | |
| (use-package dired-subtree | |
| :config | |
| (bind-keys :map dired-mode-map | |
| ("i" . dired-subtree-insert) | |
| (";" . dired-subtree-remove))) | |
| sm-modules.el:23 0.020sec 0% | |
| (straight-use-package 'use-package) | |
| sm-defaults.el:2 0.015sec 0% | |
| (require 'sm-defuns) | |
| sm-defaults.el:2 0.015sec 0% | |
| (require 'sm-defuns) | |
| sm-coding-general.el:28 0.015sec 0% | |
| (use-package flycheck | |
| :commands flycheck-mode | |
| :delight " ✓" | |
| :init (add-hook 'prog-mode-hook #'flycheck-mode) | |
| :config (setq flycheck-emacs-lisp-load-path 'inherit)) | |
| sm-coding-general.el:4 0.015sec 0% | |
| (use-package editorconfig | |
| :commands editorconfig-mode | |
| :delight editorconfig-mode | |
| :init (add-hook 'prog-mode-hook #'editorconfig-mode) | |
| :config | |
| (progn | |
| (add-to-list 'editorconfig-indentation-alist | |
| '(swift-mode swift-indent-offset)))) | |
| sm-source-control.el:52 0.014sec 0% | |
| (use-package hydra) | |
| sm-coding-groovy.el:3 0.014sec 0% | |
| (use-package groovy-mode) | |
| sm-appearance.el:43 0.014sec 0% | |
| (use-package rainbow-mode | |
| :commands rainbow-mode) | |
| sm-coding-go.el:12 0.014sec 0% | |
| (use-package go-mode | |
| :hook ((before-save . gofmt-before-save) | |
| (go-mode . (lambda () | |
| (whitespace-toggle-options '(tabs))))) | |
| :bind (:map go-mode-map | |
| ("M-." . godef-jump) | |
| ("M-*" . pop-tag-mark)) | |
| :config | |
| (setq gofmt-command "goimports") | |
| ) | |
| sm-coding-go.el:23 0.014sec 0% | |
| (use-package go-dlv) | |
| sm-writing.el:49 0.013sec 0% | |
| (use-package markdownfmt | |
| :config | |
| (progn | |
| ;; (add-hook 'markdown-mode-hook #'markdownfmt-enable-on-save) | |
| )) | |
| sm-coding-js.el:9 0.013sec 0% | |
| (use-package js2-mode | |
| :mode (("\\.js$" . js2-mode) | |
| ("Jakefile$" . js2-mode)) | |
| :interpreter "node" | |
| :config | |
| (add-hook 'js2-mode-hook | |
| (lambda () | |
| (setq js2-basic-offset 2)))) | |
| sm-searching.el:38 0.013sec 0% | |
| (use-package engine-mode | |
| :commands (engine/search-github engine/search-google) | |
| :bind (("C-c / g" . engine/search-google) | |
| ("C-c / h" . engine/search-github)) | |
| :config | |
| (setq engine/browser-function 'eww-browse-url) | |
| (defengine github | |
| "https://github.com/search?ref=simplesearch&q=%s" | |
| :keybinding "h") | |
| (defengine google | |
| "http://www.google.com/search?ie=utf-8&oe=utf-8&q=%s" | |
| :keybinding "g")) | |
| sm-snippets.el:2 0.013sec 0% | |
| (use-package yasnippet | |
| :hook (after-init . yas-global-mode) | |
| :delight yas-minor-mode | |
| :config | |
| ;; Ensure custom snippets dir exists. | |
| (defvar custom-snippets-dir (sm/emacs.d "etc/snippets/")) | |
| (sm/mkdir-p custom-snippets-dir) | |
| ;; Replace default custom dir with our own. | |
| (setq yas-snippet-dirs '(custom-snippets-dir | |
| yas-installed-snippets-dir)) | |
| ;; Suppress excessive log messages | |
| (setq yas-verbosity 1) | |
| :config | |
| ;; Ensure that this dir exists, avoid warning. | |
| (sm/mkdir-p yas-installed-snippets-dir) | |
| (yas-global-mode t) | |
| ;; Disable yasnippet in some modes. | |
| (defun yas-disable-hook () | |
| (setq yas-dont-activate t)) | |
| (add-hook 'term-mode-hook #'yas-disable-hook) | |
| (add-hook 'comint-mode-hook #'yas-disable-hook) | |
| (add-hook 'erc-mode-hook #'yas-disable-hook)) | |
| sm-source-control.el:97 0.013sec 0% | |
| (use-package git-timemachine) | |
| sm-company.el:3 0.013sec 0% | |
| (use-package company | |
| :delight " ©" | |
| :commands (company-mode global-company-mode) | |
| :init | |
| (add-hook 'prog-mode-hook #'company-mode) | |
| (add-hook 'comint-mode-hook #'company-mode) | |
| :config | |
| ;; Quick-help (popup documentation for suggestions). | |
| (use-package company-quickhelp | |
| :if window-system | |
| :init (company-quickhelp-mode 1)) | |
| ;; Use company with LSP. | |
| (use-package company-lsp | |
| :init | |
| (push 'company-lsp company-backends)) | |
| ;; Company settings. | |
| (setq-default company-backends (remove 'company-eclim company-backends)) | |
| (setq company-tooltip-limit 20) | |
| (setq company-idle-delay 0.25) | |
| (setq company-echo-delay 0) | |
| (setq company-minimum-prefix-length 2) | |
| (define-key company-active-map (kbd "M-n") nil) | |
| (define-key company-active-map (kbd "M-p") nil) | |
| (define-key company-active-map (kbd "C-n") 'company-select-next) | |
| (define-key company-active-map (kbd "C-p") 'company-select-previous) | |
| (setq company-backends (remove 'company-clang company-backends)) | |
| (setq company-backends | |
| (mapcar #'sm/backend-with-yas company-backends))) | |
| sm-writing.el:38 0.013sec 0% | |
| (use-package lorem-ipsum) | |
| sm-ui.el:11 0.013sec 0% | |
| (use-package smex | |
| :hook (after-init . smex-initialize)) | |
| sm-coding-web.el:3 0.013sec 0% | |
| (use-package php-mode | |
| :mode "\\.php[345]?\\'" | |
| :config | |
| (add-hook 'php-mode-hook #'ggtags-mode)) | |
| sm-projects.el:24 0.013sec 0% | |
| (use-package perspective | |
| :defer t | |
| :init (add-hook 'after-init-hook 'persp-mode) | |
| :config | |
| (setq persp-initial-frame-name "notes") | |
| (defun persp-next () | |
| (interactive) | |
| (when (< (+ 1 (persp-curr-position)) (length (persp-all-names))) | |
| (persp-switch (nth (1+ (persp-curr-position)) (persp-all-names)))))) | |
| sm-navigation.el:51 0.013sec 0% | |
| (use-package switch-window | |
| :bind ("C-x o" . switch-window)) | |
| sm-coding-general.el:122 0.013sec 0% | |
| (use-package origami | |
| :hook (go-mode . origami-mode) | |
| ) | |
| sm-terraform.el:3 0.013sec 0% | |
| (use-package terraform-mode | |
| :init | |
| (add-hook 'terraform-mode-hook #'terraform-format-on-save-mode) | |
| ) | |
| sm-terraform.el:3 0.013sec 0% | |
| (use-package terraform-mode | |
| :init | |
| (add-hook 'terraform-mode-hook #'terraform-format-on-save-mode) | |
| ) | |
| sm-coding-general.el:22 0.013sec 0% | |
| (use-package rainbow-delimiters | |
| :commands rainbow-delimiters-mode | |
| :init | |
| (add-hook 'prog-mode-hook #'rainbow-delimiters-mode)) | |
| sm-coding-web.el:14 0.013sec 0% | |
| (use-package web-mode | |
| :mode (("\\.erb\\'" . web-mode) | |
| ("\\.mustache\\'" . web-mode) | |
| ("\\.html?\\'" . web-mode) | |
| ("\\.php\\'" . web-mode)) | |
| :config (progn | |
| (setq web-mode-markup-indent-offset 2 | |
| web-mode-css-indent-offset 2 | |
| web-mode-code-indent-offset 2))) | |
| sm-editing.el:121 0.013sec 0% | |
| (use-package expand-region | |
| :bind ("C-=" . er/expand-region)) | |
| sm-editing.el:91 0.013sec 0% | |
| (use-package multiple-cursors | |
| :init | |
| (define-prefix-command 'endless/mc-map) | |
| :hook | |
| (after-init . | |
| (lambda () | |
| (require 'multiple-cursors) | |
| (set-face-attribute | |
| 'mc/cursor-bar-face nil | |
| :background (face-attribute 'cursor :background) | |
| :foreground (face-attribute 'cursor :background) | |
| :height 0.2) | |
| (setq mc/list-file (sm/emacs.d "etc/.mc-lists.el")) | |
| )) | |
| :bind (() ; encourage emacs to indent pretty... | |
| :map ctl-x-map | |
| ("m" . endless/mc-map) | |
| :map endless/mc-map | |
| ("\C-a" . mc/edit-beginnings-of-lines) | |
| ("\C-e" . mc/edit-ends-of-lines) | |
| ("<" . mc/mark-previous-like-this) | |
| ("<" . mc/mark-previous-like-this) | |
| (">" . mc/mark-next-like-this) | |
| ("a" . mc/mark-all-like-this) | |
| ("h" . mc/hide-unmatched-lines-mode) | |
| ("i" . mc/insert-numbers) | |
| ("l" . mc/edit-lines) | |
| )) | |
| sm-coding-scad.el:3 0.012sec 0% | |
| (use-package scad-mode) | |
| sm-editing.el:227 0.012sec 0% | |
| (use-package ctrlf | |
| :init | |
| (ctrlf-mode +1)) | |
| sm-editing.el:223 0.012sec 0% | |
| (use-package writegood-mode) | |
| sm-navigation.el:63 0.012sec 0% | |
| (use-package avy | |
| :chords (("jk" . avy-goto-char) | |
| ("jl" . avy-goto-line) | |
| ("jj" . avy-goto-word-1) ) | |
| :config | |
| (setq avy-style 'at)) | |
| sm-editing.el:171 0.012sec 0% | |
| (use-package undo-tree | |
| ;; :straight (undo-tree :type git :host github :repo "martinp26/undo-tree") | |
| :commands (undo-tree-visualize) ; this isn't otherwise autoloaded | |
| :chords (("uu" . undo-tree-visualize)) | |
| :delight undo-tree-mode | |
| :config | |
| (global-undo-tree-mode) | |
| (unbind-key "C-x u" undo-tree-map) ; I still like old-skool undo too | |
| (setq undo-tree-visualizer-timestamps t) | |
| (setq undo-tree-visualizer-diff t)) | |
| sm-editing.el:184 0.012sec 0% | |
| (use-package smart-comment | |
| :bind ("M-;" . smart-comment)) | |
| sm-path.el:9 0.012sec 0% | |
| (use-package exec-path-from-shell | |
| :if (memq window-system (quote (mac ns))) | |
| :defer 0.5 | |
| :config | |
| (setq exec-path-from-shell-arguments '("-l")) | |
| (exec-path-from-shell-initialize) | |
| (exec-path-from-shell-copy-env "GOPATH")) | |
| sm-editing.el:194 0.012sec 0% | |
| (use-package aggressive-indent | |
| :commands aggressive-indent-mode | |
| :init | |
| (add-hook 'emacs-lisp-mode-hook #'aggressive-indent-mode) | |
| (add-hook 'lisp-mode-hook #'aggressive-indent-mode)) | |
| sm-editing.el:189 0.012sec 0% | |
| (use-package embrace | |
| :bind ("C-," . embrace-commander)) | |
| sm-editing.el:11 0.012sec 0% | |
| (use-package autorevert | |
| :hook (after-init . global-auto-revert-mode) | |
| :delight auto-revert-mode) | |
| sm-coding-java.el:22 0.012sec 0% | |
| (use-package kotlin-mode | |
| :commands kotlin-mode | |
| :hook (kotlin-mode . lsp) | |
| :config | |
| (setq kotlin-tab-width 4)) | |
| sm-editing.el:225 0.012sec 0% | |
| (use-package boxquote) | |
| sm-editing.el:157 0.012sec 0% | |
| (use-package whitespace-cleanup-mode | |
| :delight whitespace-cleanup-mode | |
| :commands whitespace-cleanup-mode | |
| :init | |
| (dolist (hook '(prog-mode-hook text-mode-hook)) | |
| (add-hook hook #'whitespace-cleanup-mode))) | |
| sm-coding-general.el:36 0.012sec 0% | |
| (use-package restclient | |
| :commands restclient-mode | |
| :mode ("\\.http$" . restclient-mode)) | |
| sm-data.el:5 0.012sec 0% | |
| (use-package yaml-mode) | |
| sm-editing.el:2 0.012sec 0% | |
| (delete-selection-mode t) | |
| sm-editing.el:143 0.012sec 0% | |
| (use-package browse-kill-ring | |
| :chords (("yy" . browse-kill-ring))) | |
| sm-data.el:3 0.012sec 0% | |
| (use-package csv-mode) | |
| sm-coding-web.el:8 0.012sec 0% | |
| (use-package slim-mode | |
| :mode ("\\.slim\\'" . slim-mode)) | |
| sm-writing.el:10 0.012sec 0% | |
| (use-package olivetti | |
| :if window-system | |
| :delight | |
| ;; :hook (text-mode . olivetti-mode) | |
| :bind ("C-c o" . olivetti-mode) | |
| :config | |
| (setq olivetti-body-width 100)) | |
| sm-coding-hcl.el:3 0.011sec 0% | |
| (use-package hcl-mode | |
| :commands hcl-mode) | |
| sm-modules.el:35 0.010sec 0% | |
| (use-package delight) | |
| vc-git.elc:15 0.000sec 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&\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")] 8) | |
| vc-git.elc:15 0.000sec 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&\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")] 8) | |
| vc-git.elc:365 0.000sec 0% | |
| (require 'diff-mode) | |
| init.el:14 0.000sec 0% | |
| (add-to-list 'load-path (expand-file-name "core/" user-emacs-directory)) | |
| init.el:15 0.000sec 0% | |
| (add-to-list 'load-path (expand-file-name "modules/" user-emacs-directory)) | |
| vc-git.elc:125 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:315 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:206 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) | |
| init.el:6 0.000sec 0% | |
| (add-hook 'after-init-hook | |
| (lambda () | |
| (setq gc-cons-threshold 16777216))) | |
| vc-git.elc:16 0.000sec 0% | |
| (defvar vc-git-history nil) | |
| vc-git.elc:17 0.000sec 0% | |
| (defalias 'vc-git-revision-granularity #[0 "\300\207" [repository] 1]) | |
| vc-git.elc:25 0.000sec 0% | |
| (defalias 'vc-git-registered #[257 "\301!\211\205e\302\303!r\211q\210\304\305\306\307\310!\311\"\312$\216\313\314\"\3151G\316!\210\317\320\321\322\323%\210ed=\203A\317\324\325\322\326\323&\210\327 0\202I\210\313\211\205_\211GGV\205_\211\305GTO\330P\230)\266\202*\262\207" [process-file-side-effects vc-git-root generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \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 ""] 11 (#$ . 3612)]) | |
| vc-git.elc:43 0.000sec 0% | |
| (defalias 'vc-git-state #[257 "\300\301\302\303\304\305\306\307 \"\205\310\311\"BBBB\312\313#\211\204!\314\202+\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 "\211\300\301O\207" [0 2] 4 "\n\n(fn S)"] split-string "" t] 10 (#$ . 5867)]) | |
| vc-git.elc:55 0.000sec 0% | |
| (defalias 'vc-git-mode-line-string #[257 "\300\301\"\302!\206\211\303\304O\305\301\"\306\303\307#\306\303\310#\311\303\312OP\310\307\313 | |
| Q%\207" [vc-working-revision Git vc-git--symbolic-ref 0 7 vc-default-mode-line-string get-text-property help-echo face propertize 4 "\nCurrent revision: "] 14 (#$ . 6930)]) | |
| vc-git.elc:84 0.000sec 0% | |
| (defalias 'vc-git-extra-fileinfo->new-perm #[257 "\301>\204\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 (#$ . 9586)]) | |
| vc-git.elc:99 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 (#$ . 11211)]) | |
| vc-git.elc:170 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 (#$ . 20103)]) | |
| vc-git.elc:229 0.000sec 0% | |
| (defalias 'vc-git-dir-extra-headers #[257 "\301\302\303!!\304\21q\210\305\306\307\"\210*q\210\310 +\311 \312\313\211\211\314\315\"\203\221\316\317\"\262\301\302\303!!\320\21q\210\305\321\322\323Q\"\210*q\210\310 +\262\314\324\"\203]\316\325\"\262\203\201\301\302\303!!\326\21q\210\305\321\327\330Q\"\210*q\210\310 +\262\314\324\"\203\224\316\325\"\262\202\224\331\262\332\333\334\335#\332\334\336#\205\256\337\332\340\334\335#\332\334\336#Q\337\341\342\343\344!\"!\205\300\332\334\336%P\260\207" [standard-output get-buffer-create generate-new-buffer-name " *string-output*" #[0 "\30!\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 "\30!\207" [standard-output kill-buffer] 2] "config" "branch." ".remote" "\\([^\n]+\\)" 1 #[0 "\30!\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\31& \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 (#$ . 31774)]) | |
| vc-git.elc:310 0.000sec 0% | |
| (autoload 'vc-resynch-buffer "vc-dispatcher") | |
| vc-git.elc:21 0.000sec 0% | |
| (defalias 'vc-git-checkout-model #[257 "\300\207" [implicit] 2 (#$ . 3516)]) | |
| vc-git.elc:29 0.000sec 0% | |
| \302\2022\211\303=\203\304\2022\211\305=\203!\306\2022\211\307=\204-\211\310=\2031\302\2022\311\207" [string-to-char 77 edited 65 added 68 removed 85 84 nil] 4 (#$ . 4266)]) | |
| vc-git.elc:30 0.000sec 0% | |
| (defvar vc-git--program-version nil) | |
| vc-git.elc:31 0.000sec 0% | |
| (defalias 'vc-git--program-version #[0 \206\301\302\303\"\211\203\304\305\"\203\306\307\"\202\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:39 0.000sec 0% | |
| (defalias 'vc-git--git-status-to-vc-state #[257 "\211\204\301\207\211:\203\263\211@A\211\204\210\211\302\232\203\303\202\203\211\304\232\203(\305\202\203\211\306\232\2032\307\202\203\310\311\312\313#)\266\203\203F\307\202\203\314\311\312\313#)\266\203\203Z\315\202\203\316\311\312\313#)\266\203\203n\317\202\203\320\311\312\313#)\266\203\203\202\321\202\203\315\262\202\262\322\232\203\223\211:\204\227\315\202\262\211@\211\304\232\203\257A\211\204\251\305\202\252\315\262\202\260\315\262\207\315\207" [inhibit-changing-match-data up-to-date "!!" ignored "??" unregistered "AD" removed "^[ RD]+$" nil t string-match "^[ M]+$" edited "^[ A]+$" added "^[ U]+$" conflict "D "] 11 (#$ . 4899)]) | |
| vc-git.elc:47 0.000sec 0% | |
| (defalias 'vc-git-working-revision #[257 "\301\302\303!)\207" [process-file-side-effects nil vc-git--rev-parse "HEAD"] 3 (#$ . 6362)]) | |
| vc-git.elc:51 0.000sec 0% | |
| (defalias 'vc-git--symbolic-ref #[257 "\301\302\"\206(\303\304\303\305\306#\307\302\205$\310\311\"\203#\312\313\"\202$#)\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 (#$ . 6562)]) | |
| vc-git.elc:59 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 (#$ . 7339)]) | |
| vc-git.elc:60 0.000sec 0% | |
| (put 'vc-git-extra-fileinfo-p 'compiler-macro 'vc-git-extra-fileinfo-p--cmacro) | |
| vc-git.elc:64 0.000sec 0% | |
| (defalias 'vc-git-extra-fileinfo-p #[257 "\301>\205 \302\207" [cl-struct-vc-git-extra-fileinfo-tags type-of t] 3 (#$ . 7739)]) | |
| vc-git.elc:65 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:69 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 (#$ . 8057)]) | |
| vc-git.elc:70 0.000sec 0% | |
| (put 'vc-git-extra-fileinfo->old-perm 'compiler-macro 'vc-git-extra-fileinfo->old-perm--cmacro) | |
| vc-git.elc:74 0.000sec 0% | |
| (defalias 'vc-git-extra-fileinfo->old-perm #[257 "\301>\204\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 (#$ . 8546)]) | |
| vc-git.elc:75 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:79 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 (#$ . 9097)]) | |
| vc-git.elc:80 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% | |
| (byte-code "\300\301\302\303#\300\207" [function-put vc-git-extra-fileinfo->new-perm side-effect-free t] 4) | |
| vc-git.elc:89 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 (#$ . 10137)]) | |
| vc-git.elc:90 0.000sec 0% | |
| (put 'vc-git-extra-fileinfo->rename-state 'compiler-macro 'vc-git-extra-fileinfo->rename-state--cmacro) | |
| vc-git.elc:94 0.000sec 0% | |
| (defalias 'vc-git-extra-fileinfo->rename-state #[257 "\301>\204\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 (#$ . 10647)]) | |
| vc-git.elc:95 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:100 0.000sec 0% | |
| (put 'vc-git-extra-fileinfo->orig-name 'compiler-macro 'vc-git-extra-fileinfo->orig-name--cmacro) | |
| vc-git.elc:104 0.000sec 0% | |
| (defalias 'vc-git-extra-fileinfo->orig-name #[257 "\301>\204\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 (#$ . 11706)]) | |
| vc-git.elc:105 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:109 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\211@\305>\203,\211AA\262\202\306>A@\203;\307\262\202\310\311@\"\210\202\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 (#$ . 12262)]) | |
| vc-git.elc:110 0.000sec 0% | |
| (put 'make-vc-git-extra-fileinfo 'compiler-macro 'make-vc-git-extra-fileinfo--cmacro) | |
| vc-git.elc:114 0.000sec 0% | |
| (defalias 'make-vc-git-extra-fileinfo #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\211\203D\211@\305>\203,\211AA\262\202\306>A@\203;\307\262\202\310\311@\"\210\202\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 (#$ . 13152)]) | |
| vc-git.elc:115 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:119 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 (#$ . 13867)]) | |
| vc-git.elc:120 0.000sec 0% | |
| (put 'vc-git-create-extra-fileinfo 'compiler-macro 'vc-git-create-extra-fileinfo--cmacro) | |
| vc-git.elc:124 0.000sec 0% | |
| (defalias 'vc-git-create-extra-fileinfo #[1026 "\300\301%\207" [record vc-git-extra-fileinfo] 10 (#$ . 14390)]) | |
| vc-git.elc:129 0.000sec 0% | |
| (defalias 'vc-git-escape-file-name #[257 "\300\301\"\203\302\303\304\305#\302Q\207\207" [string-match "[\n \"\\]" "\"" mapconcat #[257 "\211\300=\20\301\207\211\302=\203\303\207\211\304=\203\305\207\211\306=\203 \307\207\310!\207" [10 "\\n" 9 "\\t" 92 "\\\\" 34 "\\\"" char-to-string] 3 "\n\n(fn C)"] ""] 6 (#$ . 14942)]) | |
| vc-git.elc:133 0.000sec 0% | |
| (defalias 'vc-git-file-type-as-string #[514 "\300\206\301\302\"\300\206\301\302\"\211\303=\2038\303=\203 \304\202\240\305=\203*\306\202\240\307=\2034\310\202\240\304\202\240\211\305=\203V\303=\203H\311\202\240\307=\203R\312\202\240\313\202\240\211\307=\203t\303=\203f\314\202\240\305=\203p\315\202\240\316\202\240\211\317=\203~\304\202\240\211\301=\203\234\305=\203\216\313\202\240\307=\203\230\316\202\240\304\202\240\320\321\"\211\203\254\322\323\324#\202\267\317=\203\266\325\202\267\326\207" [lsh 0 -9 64 nil 80 " (type change symlink -> file)" 112 " (type change subproject -> file)" " (type change file -> symlink)" " (type change subproject -> symlink)" " (symlink)" " (type change file -> subproject)" " (type change symlink -> subproject)" " (subproject)" 72 format " (unknown type %o)" propertize face font-lock-comment-face "/" ""] 9 (#$ . 15327)]) | |
| vc-git.elc:138 0.000sec 0% | |
| (defalias 'vc-git-rename-as-string #[514 "\211\205\301>\204\302\303\304D\"\210\211\305H\211\203O\306\307\310=\203&\311\2021\312=\2030\313\2021\314\315\301>\204C\302\303\30D\"\210\316H!\317R\320\321#\202P\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 (#$ . 16353)]) | |
| vc-git.elc:142 0.000sec 0% | |
| (defalias 'vc-git-permissions-as-string #[514 "\300\203\203\301\302\"\303\"\304=\203\305\202'\301\303\"\304=\203&\306\202'\307\310\311#\207" [propertize logand logxor 73 0 " " "+x" "-x" face font-lock-type-face] 7 (#$ . 16962)]) | |
| vc-git.elc:146 0.000sec 0% | |
| (defalias 'vc-git-dir-printer #[257 "\3028\211\203 | |
| \303\202A@\3048\211\205'\305>\204$\306\307\310D\"\210\211\311H\205=\305>\204:\306\307\310D\"\210\304H\312\313\314\315\316\n8\203L\317\202M\320\"\321\322#\312\313\314\323 \"\321 \324=\203d\325\202p \326=\203o\327\202p\330\331\332%\312\333\"\334\313\335@!\321\203\213\336\202\214\337\340\203\226\341\20\"\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" up-to-date font-lock-builtin-face missing font-lock-warning-face font-lock-variable-name-face mouse-face highlight vc-git-permissions-as-string " " vc-git-escape-file-name font-lock-comment-delimiter-face font-lock-function-name-face help-echo "Directory\nVC operations can be applied to it\nmouse-3: Pop-up menu" "File\nmouse-3: Pop-up menu" keymap vc-git-file-type-as-string vc-git-rename-as-string] 23 (#$ . 17274)]) | |
| vc-git.elc:150 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 (#$ . 18416)]) | |
| vc-git.elc:151 0.000sec 0% | |
| (put 'vc-git-dir-status-state-p 'compiler-macro 'vc-git-dir-status-state-p--cmacro) | |
| vc-git.elc:155 0.000sec 0% | |
| (defalias 'vc-git-dir-status-state-p #[257 "\301>\205 \302\207" [cl-struct-vc-git-dir-status-state-tags type-of t] 3 (#$ . 18829)]) | |
| vc-git.elc:156 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:160 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 (#$ . 19156)]) | |
| vc-git.elc:161 0.000sec 0% | |
| (put 'vc-git-dir-status-state->stage 'compiler-macro 'vc-git-dir-status-state->stage--cmacro) | |
| vc-git.elc:165 0.000sec 0% | |
| (defalias 'vc-git-dir-status-state->stage #[257 "\301>\204\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 (#$ . 19645)]) | |
| vc-git.elc:166 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:171 0.000sec 0% | |
| (put 'vc-git-dir-status-state->files 'compiler-macro 'vc-git-dir-status-state->files--cmacro) | |
| vc-git.elc:175 0.000sec 0% | |
| (defalias 'vc-git-dir-status-state->files #[257 "\301>\204\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 (#$ . 20592)]) | |
| vc-git.elc:176 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:180 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 (#$ . 21050)]) | |
| vc-git.elc:181 0.000sec 0% | |
| (put 'vc-git-dir-status-state->update-function 'compiler-macro 'vc-git-dir-status-state->update-function--cmacro) | |
| vc-git.elc:185 0.000sec 0% | |
| (defalias 'vc-git-dir-status-state->update-function #[257 "\301>\204\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 (#$ . 21589)]) | |
| vc-git.elc:186 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:190 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 (#$ . 22077)]) | |
| vc-git.elc:191 0.000sec 0% | |
| (put 'vc-git-dir-status-state->hash 'compiler-macro 'vc-git-dir-status-state->hash--cmacro) | |
| vc-git.elc:195 0.000sec 0% | |
| (defalias 'vc-git-dir-status-state->hash #[257 "\301>\204\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 (#$ . 22561)]) | |
| vc-git.elc:196 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:200 0.000sec 0% | |
| (defalias 'make-vc-git-dir-status-state--cmacro #[385 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"\206\305A@\211\203H\211@\306>\2030\211AA\262\202\307>A@\203?\310\262\202\311\312@\"\210\202\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 (#$ . 23017)]) | |
| vc-git.elc:201 0.000sec 0% | |
| (put 'make-vc-git-dir-status-state 'compiler-macro 'make-vc-git-dir-status-state--cmacro) | |
| vc-git.elc:205 0.000sec 0% | |
| (defalias 'make-vc-git-dir-status-state #[128 "\300\301\"A@\300\302\"A@\300\303\"A@\300\304\"\206\305\306\307\310\"DA@\211\203M\211@\311>\2035\211AA\262\202\"\312>A@\203D\305\262\202\"\313\314@\"\210\202\"\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 (#$ . 23918)]) | |
| vc-git.elc:210 0.000sec 0% | |
| (defalias 'vc-git-dir-status-update-file #[1028 "\301D\302>\204\303\304\305 D\"\210\306H#\210\302>\204,\303\304\305D\"\210\211\307\310\302 >\204C\303\304\305 | |
| D\"\21\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 (#$ . 24796)]) | |
| vc-git.elc:211 0.000sec 0% | |
| (put 'vc-git-dir-status-update-file 'byte-optimizer 'byte-compile-inline-expand) | |
| vc-git.elc:215 0.000sec 0% | |
| (defalias 'vc-git-after-dir-status-stage #[257 "\301\302>\204\303\304\305D\"\210\306Heb\210\302>\204%\303\304\305D\"\210\307H\211\310=\203=\311 \2037\312\2028\313\262\2022\211\312=\203\260\314\262\315\316\301\317#\2032\320\321\307!\322\"\321\306!\323\324\325\326\301\211%\327D\302>\204x\303\304\305 D\"\210\330H#\210\302>\204\216\303\304\305D\"\210\211\306\331\302 >\204\245\303\304\305 | |
| D\"\21\306H\"I\26\202F\211\332=\2031\314\262\315\333\301\317#\2032\320\321\307!\322\"\321\306!\321\334!\335\232\203\332\336\202\333\337\324\325\211\301\211%\327D\302>\204\371\303\304\305 D\"\210\330H#\210\302>\204\303\304\305D\"\210\211\306\331\302 >\204&\303\304\305 | |
| D\"\21\306H\"I\266 \202\271\211\340=\203\244\314\262\315\341\301\317#\2032\320\321\307!\322\"\321\306!\337\324\325\211\301\211%\327D\302>\204l\303\304\305 D\"\210\330H#\210\302>\204\202\303\304\305D\"\210\211\306\331\302 >\204\231\303\304\305 | |
| D\"\21\306H\"I\26\202:\211\314=\203\203\261\342\262\315\343\301\317\307$\2032\321\307!\344\324\325\326\211\301\211%\327D\302>\204\334\303\304\305D\"\210\330H#\210\302>\204\362\303\304\305D\"\210\211\306\331\302 >\204 \303\304\305 | |
| D\"\21\306H\"I\266\202\261\211\342=\203}\315\343\301\317\307$\2032\321\307!\345\324\325\326\211\301\211%\327D\302>\204E\303\304\305 D\"\210\330H#\210\302>\204[\303\304\305D\"\210\211\306\331\302 >\204r\303\304\305 | |
| D\"\21\306H\"I\266\202\211\313=\2032\203\213\332\202\214\340\262\315\346\301\317\307$\2032\320\321\307!\322\"\320\321\306!\322\"\321\330!\206\254\321\347!\321\350!\206\265\321\351!\321\322!\211\203\323\352!\353=\203\323\324\325 \354 %\327D\302>\204\350\303\304\305 D\"\210\330H#\210\302>\204\376\303\304\305D\"\210\211\306\331\302 >\204\303\304\305 | |
| D\"\21\306H\"I\266\202\355\324\325\326\211\35%\327D\302>\204B\303\304\305 D\"\210\330H#\210\302>\204X\303\304\305D\"\210\211\306\331\302 >\204o\303\304\305 | |
| D\"\21\306H\"I\26\323\324\325 \356 %\327D\302>\204\233\303\304\305 D\"\210\330H#\210\302>\204\261\303\304\305D\"\210\211\306\331\302 >\204\310\303\304\305 | |
| D\"\21\306H\"I\266\202\357!\324\325 \301\211%\327D\302>\204\370\303\304\305 D\"\210\330H#\210\302>\204\303\304\305D\"\210\211\306\331\302 >\204%\303\304\305 | |
| D\"\21\306H\"I\266\266\202\216\210\211\203O\302>\204F\303\304\305D\"\210\306H\204O\301\262\302>\204^\303\304\305D\"\210\211\307I\266\302>\204t\303\304\305D\"\210\211\306I\266\203\205\360!\202\304\302>\204\224\303\304\305D\"\210\334H\301C\361\362\363\364\365\366!\367\"\350\370%\302>\204\270\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 update-index vc-git--empty-db-p ls-files-added diff-index ls-files-unknown re-search-forward "\\([0-7]\\{6\\}\\) [0-9a-f]\\{40\\} 0 \\([^]+\\)" t string-to-number match-string 8 added record vc-git-extra-fileinfo 0 puthash 4 delete ls-files-up-to-date "\\([0-7]\\{6\\}\\) [0-9a-f]\\{40\\} \\([0-3]\\) \\([^]+\\)" 3 "0" up-to-date conflict ls-files-conflict "\\([0-7]\\{6\\}\\) [0-9a-f]\\{40\\} 3 \\([^]+\\)" ls-files-ignored "\\([^]*?\\)" unregistered ignored ":\\([0-7]\\{6\\}\\) \\([0-7]\\{6\\}\\) [0-9a-f]\\{40\\} [0-9a-f]\\{40\\} \\(\\([ADMUT]\\)\\([^]+\\)\\|\\([CR]\\)[0-9]*\\([^]+\\)\\([^]+\\)\\)" 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 (#$ . 25270)]) | |
| vc-git.elc:219 0.000sec 0% | |
| (defalias 'vc-git-dir-status-goto-stage #[257 "\301>\204\302\303\304D\"\210\211\305H\306 \210\301>\204$\302\303\304D\"\210\307H\211\310=\203I\203>\311p\312\313\314\315&\210\202\311\311p\312\316\317\314%\210\202\311\211\320=\203^\311p\312\321\322\323\324\315\210\202\311\211\325=\203s\311p\312\321\322\323\324\315\210\202\311\211\326=\203\207\311p\312\321\322\327\315&\210\202\311\211\330=\203\236\311p\312\321\322\331\332\333\334\315&\n\210\202\311\211\335=\203\266\311p\312\321\322\331\336\332\333\334\315& | |
| \210\202\311\211\337=\203\311\311p\312\340\341\322\342\343\315& \210\210\344\345\346\347\350\351!\352\"\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 update-index vc-git-command async "add" "--refresh" "--" nil "update-index" ls-files-added "ls-files" "-z" "-c" "-s" ls-files-up-to-date ls-files-conflict "-u" ls-files-unknown "-o" "--directory" "--no-empty-directory" "--exclude-standard" ls-files-ignored "-i" diff-index "diff-index" "--relative" "-M" "HEAD" vc-exec-after make-byte-code 0 "\301\300!\207" vconcat vector [vc-git-after-dir-status-stage]] 15 (#$ . 29195)]) | |
| vc-git.elc:223 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 (#$ . 30424)]) | |
| vc-git.elc:224 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 " | |
| " "A" vc-git-stash-apply-at-point "P" vc-git-stash-pop-at-point "S" vc-git-stash-snapshot] 5))" | |
| vc-git.elc:225 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:232 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\315\316!\203>\317\320!\321\230\2037\317\310!\262\202>\317\310!B\262\320y\210\202\237B\266\202*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-git--call t "branch" nil looking-at "^\\([ *]\\) \\(.+\\)$" match-string 1 "*"] 7 (#$ . 33623)]) | |
| vc-git.elc:234 0.000sec 0% | |
| (defalias 'vc-git-create-repo #[0 "\300\301\302\301\303$\207" [vc-git-command nil 0 "init"] 5 (#$ . 34184)]) | |
| vc-git.elc:238 0.000sec 0% | |
| (defalias 'vc-git-register #[513 "\300\211\211\203#\211@\301!\203\211B\262\202\211B\262A\266\202\202\210\2032\302\300\303\304\305\306&\210\211\205<\302\300\303\307$\207" [nil file-directory-p vc-git-command 0 "update-index" "--add" "--" "add"] 11 (#$ . 34328)]) | |
| vc-git.elc:239 0.000sec 0% | |
| (defalias 'vc-git-responsible-p 'vc-git-root) | |
| vc-git.elc:243 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 (#$ . 34744)]) | |
| vc-git.elc:246 0.000sec 0% | |
| (defalias 'vc-git-log-edit-toggle-signoff #[0 "\300\301\302\"\207" [log-edit-toggle-header "Sign-Off" "yes"] 3 (#$ . 34901) nil]) | |
| vc-git.elc:249 0.000sec 0% | |
| (defalias 'vc-git-log-edit-toggle-amend #[0 "\301\302\303\"\205[db\210n\204\304c\210\305\306\307!!\310\21\31\312\313\314\315\316\317&\210)q\210\320 +c\210\212\321 \210\312y\210`\312y\322U\205X\323\324!\205X\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 "\30!\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 (#$ . 35119) nil]) | |
| vc-git.elc:250 0.000sec 0% | |
| (defvar vc-git-log-edit-mode-map (byte-code "\300\301!\302\303\304#\210\302\305\306#\210\211\207" [make-sparse-keymap "Git-Log-Edit" define-key "" vc-git-log-edit-toggle-signoff "" vc-git-log-edit-toggle-amend] 5)) | |
| vc-git.elc:251 0.000sec 0% | |
| (defvar vc-git-log-edit-mode-hook nil) | |
| vc-git.elc:252 0.000sec 0% | |
| (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\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:253 0.000sec 0% | |
| (defvar vc-git-log-edit-mode-map (make-sparse-keymap)) | |
| vc-git.elc:254 0.000sec 0% | |
| (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\21!\210\300\302N\204P\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:263 0.000sec 0% | |
| (defalias 'vc-git-log-edit-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 | |
| !\204'\316 | |
| \325#\210\327210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 | |
| 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 (#$ . 37392) nil]) | |
| vc-git.elc:267 0.000sec 0% | |
| (defalias 'vc-git-checkin #[770 "@\20\305!\306!A\206\211\307!\232? \n\310=\203# | |
| \202( \206(\f\n\310=\2057\311!\312\313!)\314\315\316\317\320\205C\f\203R\321\322\323 !E\202U\321\324D\325\326\327\330\n\331!B\332 | |
| \333!BF\\203\201 \206s\f\334@\317 | |
| #\210)\211A\262\211\262\244 \203\220\335\336D\202\221\337\244%\266\211\205\242\340!\205\242\341!*\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\20\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" "Sign-Off" "--signoff" write-region "--only" "--" ("-a") file-exists-p delete-file] 22 (#$ . 38481)]) | |
| vc-git.elc:271 0.000sec 0% | |
| (defalias 'vc-git-find-revision #[771 "\304\305\211\306\307\310\311\312%\211\313\230\203\314\315 | |
| !\"\202 \211\316\317O\262\320\316\304\321\32\203\2023\323\32Q&+\207" [process-file-side-effects coding-system-for-read coding-system-for-write default-directory nil binary vc-git--run-command-string "ls-files" "-z" "--full-name" "--" "" file-relative-name vc-git-root 0 -1 vc-git-command "cat-file" "blob" "HEAD" ":"] 14 (#$ . 39555)]) | |
| vc-git.elc:275 0.000sec 0% | |
| (defalias 'vc-git-find-ignore-file #[257 "\300\301\302!\"\207" [expand-file-name ".gitignore" vc-git-root] 5 (#$ . 40039)]) | |
| vc-git.elc:279 0.000sec 0% | |
| (defalias 'vc-git-checkout #[513 "\300\301\302\303\206\n\304%\207" [vc-git-command nil 0 "checkout" "HEAD"] 8 (#$ . 40228)]) | |
| vc-git.elc:283 0.000sec 0% | |
| (defalias 'vc-git-revert #[513 "\211\203\f\300\301\302\303\304%\207\300\301\302\305\306\304&\210\300\301\211\307\306\304&\207" [vc-git-command nil 0 "update-index" "--" "reset" "-q" "checkout"] 9 (#$ . 40388)]) | |
| vc-git.elc:285 0.000sec 0% | |
| (defvar vc-git-error-regexp-alist '(("^ \\(.+\\)\\> *|" 1 nil nil 0)) (#$ . 40703)) | |
| vc-git.elc:290 0.000sec 0% | |
| (defalias 'vc-git--pushpull #[771 "C\30!\303\304\305!\" C\306C\203A\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!\2\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 (#$ . 40857)]) | |
| vc-git.elc:296 0.000sec 0% | |
| (defalias 'vc-git-pull #[257 "\300\301\302#\207" [vc-git--pushpull "pull" ("--stat")] 5 (#$ . 42058)]) | |
| vc-git.elc:302 0.000sec 0% | |
| (defalias 'vc-git-push #[257 "\300\301\302#\207" [vc-git--pushpull "push" nil] 5 (#$ . 42314)]) | |
| vc-git.elc:305 0.000sec 0% | |
| (defalias 'vc-git-merge-branch #[0 "\30!\303\304\305!\"\306 A\307\310\311\235\204\312\305\313\"!\204\"\202%\311B\314\315$\316\317 \320C&\210rq\210\321\322!\210)\323!\207" [default-directory vc-git-program vc-git-root format "*vc-git : %s*" expand-file-name vc-git-branches completing-read "Merge from branch: " "FETCH_HEAD" file-readable-p ".git/FETCH_HEAD" nil t apply vc-do-async-command "merge" vc-exec-after #[0 "\300\301!\207" [vc-compilation-mode git] 2] vc-set-async-update] 11 (#$ . 42562)]) | |
| vc-git.elc:309 0.000sec 0% | |
| (defalias 'vc-git-conflicted-files #[257 "\300\301\302\303$\211\205\304\305\306#\307\211\203>\211@\310\311\"\2037\312\313\"\312\314\"\315\235\2035\316 \"B\262\266A\266\202\202\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 (#$ . 43172)]) | |
| vc-git.elc:312 0.000sec 0% | |
| (defalias 'vc-git-resolve-when-done #[0 "\212eb\210\302\303\304\305#?\205?\306\304\30\310$\210 \311=\2034\312\313\314\31!\"!\2044\316\31!!\2044\306\304\307\304\317$\210\32\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 (#$ . 43749)]) | |
| vc-git.elc:314 0.000sec 0% | |
| (defalias 'vc-git-find-file-hook #[0 \205+\30\303\"\304=\205+\212eb\210\305\306\307\310#)\205+\311 \210 \203(\312\313\314\307\315$\210\31!\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 (#$ . 44331)]) | |
| vc-git.elc:323 0.000sec 0% | |
| (defalias 'vc-git-print-log #[1282 \206 \305!\210\306rq\210\307\310\31\312\313 | |
| \2054 | |
| A?\2054 | |
| @\2054\314\f@!?\2054\315C\n\205F\316\317\320\321\322\f@\"\323BBBB \205R\324\321\325\f\"D | |
| \205Z | |
| C\326&%+\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" ("--")] 19 (#$ . 45075)]) | |
| vc-git.elc:327 0.000sec 0% | |
| (defalias 'vc-git-log-outgoing #[514 "\301!\210\302\303\304\305\306\307\310\311\312\31@\"\314 | |
| \315\230\203\316\202 | |
| \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 (#$ . 46046) nil]) | |
| vc-git.elc:331 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\31@\"\316\317\f\320\230\203&\321\202(\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 (#$ . 46438) nil]) | |
| vc-git.elc:332 0.000sec 0% | |
| (defvar vc-git-log-view-mode-hook nil) | |
| vc-git.elc:333 0.000sec 0% | |
| (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\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:334 0.000sec 0% | |
| (defvar vc-git-log-view-mode-map (make-sparse-keymap)) | |
| vc-git.elc:335 0.000sec 0% | |
| (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\21!\210\300\302N\204P\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:349 0.000sec 0% | |
| (defalias 'vc-git-log-view-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 | |
| !\204'\316 | |
| \325,C#\210\3270\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 | |
| ,\331\332!\210\306\333!\210\334306\335!\210\336\306\337!\210-\340=\204\201.A@\202\202\341-\342>\203\225\307/\306\343!\210\344#\306\345!\210-\340=\204\255.A@\346.8BC\202\265\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) 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 (#$ . 48142) nil]) | |
| vc-git.elc:355 0.000sec 0% | |
| (defalias 'vc-git-show-log-entry #[257 "eb\210\211\2055\300\301\302\"\303\304\305\306\"\203!\307\310\311\"!T\2024\305\312\"\2033\310\313\"GT\2024\303$\314 \210\207" [search-forward format "\ncommit %s" nil t string-match "~\\([0-9]\\)\\'" string-to-number match-string 1 "\\^+\\'" 0 beginning-of-line] 9 (#$ . 50713)]) | |
| vc-git.elc:359 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<\320\321\314\313#\203:\322\323!\210\314y\210\202(\324 *\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \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 (#$ . 51188)]) | |
| vc-git.elc:364 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\321\322\323!!\321\322\310!!\321\322\324!!\321\322\325!!Z\232\204M\326\327!\210\204\\\nV\203\\\262\204k V\203k\262\\\\Z\262\266\202$\206Z\262\206\210Z\262\266*\210\330\331\315\332\333\334\335 \336!$&\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \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 (#$ . 51667)]) | |
| vc-git.elc:366 0.000sec 0% | |
| (defvar vc-git-region-history-mode-map (byte-code "\302\303\302 D!\"\211\207" [diff-mode-map vc-git-log-view-mode-map make-composed-keymap nil] 5)) | |
| vc-git.elc:367 0.000sec 0% | |
| (defvar vc-git--log-view-long-font-lock-keywords nil) | |
| vc-git.elc:368 0.000sec 0% | |
| (defvar vc-git-region-history-font-lock-keywords '((vc-git-region-history-font-lock))) | |
| vc-git.elc:372 0.000sec 0% | |
| (defalias 'vc-git-region-history-font-lock #[257 "\212\303 \210\304\305!\204\306\305\307\310#\210\311\224f)\312=\212\313\314\310#\203$\315\224\202%)\203\202/ \316`\"\210)\211b\210`W\307f\312=\262\262\204\307\207" [diff-font-lock-keywords vc-git--log-view-long-font-lock-keywords font-lock-keywords beginning-of-line looking-at "^\\(?:diff\\|commit\\)\\>" re-search-backward nil t 0 100 re-search-forward "\n\\(diff\\|commit\\)\\>" 1 font-lock-fontify-keywords-region] 6 (#$ . 52989)]) | |
| vc-git.elc:373 0.000sec 0% | |
| (defvar vc-git-region-history-mode-hook nil) | |
| vc-git.elc:374 0.000sec 0% | |
| (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [vc-git-region-history-mode-hook variable-documentation put "Hook run after entering Git-Region-History 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-region-history-mode-map definition-name vc-git-region-history-mode] 4) | |
| vc-git.elc:375 0.000sec 0% | |
| (defvar vc-git-region-history-mode-map (make-sparse-keymap)) | |
| vc-git.elc:376 0.000sec 0% | |
| (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\21!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [vc-git-region-history-mode-abbrev-table vc-git-region-history-mode-map variable-documentation put purecopy "Keymap for `vc-git-region-history-mode'." boundp vc-git-region-history-mode-syntax-table definition-name vc-git-region-history-mode (lambda (#1=#:def-tmp-var) (defvar vc-git-region-history-mode-syntax-table #1#)) make-syntax-table "Syntax table for `vc-git-region-history-mode'." (lambda (#1#) (defvar vc-git-region-history-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `vc-git-region-history-mode'." derived-mode-parent vc-git-log-view-mode] 5) | |
| vc-git.elc:384 0.000sec 0% | |
| (defalias 'vc-git-region-history-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 | |
| !\204'\316 | |
| \325C#\210\3277 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 | |
| \306\331!\210\306\332!\210\333AB)\334\335!\207" [delay-mode-hooks major-mode mode-name vc-git-region-history-mode-map vc-git-region-history-mode-syntax-table vc-git-region-history-mode-abbrev-table make-local-variable t vc-git-log-view-mode vc-git-region-history-mode "Git-Region-History" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table vc-git--log-view-long-font-lock-keywords font-lock-defaults vc-git-region-history-font-lock-keywords run-mode-hooks vc-git-region-history-mode-hook local-abbrev-table log-view-font-lock-keywords] 5 (#$ . 54883) nil]) | |
| vc-git.elc:385 0.000sec 0% | |
| (defalias 'vc-git--asciify-coding-system #[0 "\301\211\30\303#\230\262?\205\304\211\207" [coding-system-for-read "Binary files differ" decode-coding-string t undecided] 6]) | |
| vc-git.elc:386 0.000sec 0% | |
| (autoload 'vc-switches "vc") | |
| vc-git.elc:390 0.000sec 0% | |
| (defalias 'vc-git-diff #[1281 "\302\303\304 \210\203\204\305\262\202\306\262\204\307\262 \203E\310\311\206*\312\313\n\314\315\316\317\320\"\321\206;\307\322F\"&\202c\311\206K\312\313 \323\314\324\325\326\327\330\316\302\320\"\331#P\322& | |
| )\207" [process-file-side-effects vc-git-diff-switches nil "diff-tree" vc-git--asciify-coding-system "4b825dc642cb6eb9a060e54bf8d69288fbee4904" "diff-index" "HEAD" apply vc-git-command "*vc-diff*" 1 "--exit-code" append vc-switches git diff "-p" "--" "difftool" "--no-prompt" "-x" "diff " mapconcat identity " "] 21 (#$ . 56373)]) | |
| vc-git.elc:394 0.000sec 0% | |
| (defalias 'vc-git-revision-table #[257 "\301\302C\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314\315\301\211\316\317%\210eb\210\320\321\301\315#\2035\322\313!B\262\202#*\210)\207" [process-file-side-effects nil "HEAD" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-git-command t "for-each-ref" "--format=%(refname)" re-search-forward "^refs/\\(heads\\|tags\\|remotes\\)/\\(.*\\)$" match-string] 10 (#$ . 57093)]) | |
| vc-git.elc:398 0.000sec 0% | |
| (defalias 'vc-git-revision-completion-table #[257 "\300C\211\301\302\303\304\305\3\"\307\"\310\311%\312\"\240\210\211\242\207" [nil completion-table-dynamic make-byte-code 257 "\302\301\242!\203\301\303\304\305\306\307\300!\310\"\311$ \240\210\301\242\207" vconcat vector [functionp make-byte-code 0 "\301\300!\207" vconcat vector [vc-git-revision-table] 2] 8 "\n\n(fn STRING)" do-switch-buffer] 11 (#$ . 57621)]) | |
| vc-git.elc:402 0.000sec 0% | |
| (defalias 'vc-git-annotate-command #[770 "\300 \210\301!\302\303\304\305\306\307\310\311\312\313\"\n\314 | |
| E\"&\207" [vc-git--asciify-coding-system file-relative-name apply vc-git-command async nil "blame" "--date=short" append vc-switches git annotate "--"] 16 (#$ . 58062)]) | |
| vc-git.elc:403 0.000sec 0% | |
| (defalias 'vc-git-annotate-time #[0 "\300\301\302\303#\205\304\305\306\307\310\311\"\"!\207" [re-search-forward "^[0-9a-f^]+[^()]+(.*?\\([0-9]+\\)-\\([0-9]+\\)-\\([0-9]+\\) \\(:?\\([0-9]+\\):\\([0-9]+\\):\\([0-9]+\\) \\([-+0-9]+\\)\\)? *[0-9]+) " nil t vc-annotate-convert-time apply encode-time mapcar #[257 "\211\224\203 | |
| \300\301!!\207\302\207" [string-to-number match-string 0] 4 "\n\n(fn MATCH)"] (6 5 4 3 2 1 7)] 6]) | |
| vc-git.elc:404 0.000sec 0% | |
| (defalias 'vc-git-annotate-extract-revision-at-line #[0 "\212\301 \210\302\303!\2053\304\305!\306\224\2030\304\307!\310\311\"\203#\211\312\211\224O\262\313\31!\"B\262\2021\211\262)\207" [default-directory beginning-of-line looking-at "\\^?\\([0-9a-f]+\\) \\(\\([^(]+\\) \\)?" match-string-no-properties 1 2 3 string-match " +\\'" 0 expand-file-name vc-git-root] 7]) | |
| vc-git.elc:408 0.000sec 0% | |
| (defalias 'vc-git-create-tag #[771 "\301\302\303\302\304\305%\205%\211\203\301\302\303\302\306\307&\202%\301\302\303\302\310%)\207" [default-directory vc-git-command nil 0 "update-index" "--refresh" "checkout" "-b" "tag"] 10 (#$ . 59182)]) | |
| vc-git.elc:412 0.000sec 0% | |
| (defalias 'vc-git-retrieve-tag #[771 "\301\302\303\302\304%)\207" [default-directory vc-git-command nil 0 "checkout"] 9 (#$ . 59463)]) | |
| vc-git.elc:416 0.000sec 0% | |
| (defalias 'vc-git-previous-revision #[514 "\203J\300!\301\302!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313\314\315%\205?db\205?n\205?\316y\304U\205?o?\205?\317`dS\"*\262\320!\206I\211\207\321\322P!\207" [file-relative-name generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-git--out-ok "rev-list" "-2" "--" -1 buffer-substring-no-properties vc-git-symbolic-commit vc-git--rev-parse "~1"] 10 (#$ . 59631)]) | |
| vc-git.elc:420 0.000sec 0% | |
| (defalias 'vc-git--rev-parse #[257 "\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\"\205 \313ee\314\\\"*\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-git--out-ok "rev-parse" buffer-substring-no-properties 40] 8 (#$ . 60205)]) | |
| vc-git.elc:424 0.000sec 0% | |
| (defalias 'vc-git-next-revision #[514 "\301!\302!\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\314\315\316\317%\205>db\205>n\205>\320y\306U\205>o\205>\321`dS\"*\262\211\205\201\303\304!r\211q\210\305\306\307\310\311!\322\"\313$\216\314\315\323\317$\205~eb\205~\324\325\326#\205~\320y\306U\205~\321`\327y\210`S\"*\262\330!\206\210\211)\207" [default-directory vc-git-root file-relative-name generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-git--out-ok "rev-list" "-1" "--" -1 buffer-substring-no-properties [buffer-name kill-buffer] "HEAD" search-forward nil t 1 vc-git-symbolic-commit] 11 (#$ . 60553)]) | |
| vc-git.elc:428 0.000sec 0% | |
| (defalias 'vc-git-delete-file #[257 "\300\301\302\303\304\305&\207" [vc-git-command nil 0 "rm" "-f" "--"] 8 (#$ . 61332)]) | |
| vc-git.elc:432 0.000sec 0% | |
| (defalias 'vc-git-rename-file #[514 "\300\301\302D\303\304\305&\207" [vc-git-command nil 0 "mv" "-f" "--"] 9 (#$ . 61475)]) | |
| vc-git.elc:433 0.000sec 0% | |
| (defvar vc-git-extra-menu-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\211\207" [make-sparse-keymap define-key [git-grep] (menu-item "Git grep..." vc-git-grep :help "Run the `git grep' command") [git-sn] (menu-item "Stash a Snapshot" vc-git-stash-snapshot :help "Stash the current state of the tree and keep the current state") [git-st] (menu-item "Create Stash..." vc-git-stash :help "Stash away changes") [git-ss] (menu-item "Show Stash..." vc-git-stash-show :help "Show stash contents")] 5)) | |
| vc-git.elc:434 0.000sec 0% | |
| (defalias 'vc-git-extra-menu #[0 \207" [vc-git-extra-menu-map] 1]) | |
| vc-git.elc:435 0.000sec 0% | |
| (defalias 'vc-git-extra-status-menu #[0 \207" [vc-git-extra-menu-map] 1]) | |
| vc-git.elc:439 0.000sec 0% | |
| (defalias 'vc-git-root #[257 "\300\301\"\206\302\301\303\304\"#\207" [vc-file-getprop git-root vc-file-setprop vc-find-root ".git"] 7 (#$ . 62312)]) | |
| vc-git.elc:458 0.000sec 0% | |
| (defalias 'vc-git-grep #[769 "\304\305!\210;\205eG\306V\205e\204!\211\307\230\203J\310\262\202J\311\312!!\262\313\314#\262\211\203\315\232\203E\316\317\310\211\320%\262\202J\321\320\"\210\211\205c\322 B\323\324\"\210* | |
| p=\205c\211\262\207" [current-prefix-arg compilation-environment default-directory next-error-last-buffer require grep 0 "git grep" nil file-name-as-directory expand-file-name grep-expand-template "git --no-pager grep -n -e <R> -- <F>" (4) read-from-minibuffer "Confirm: " grep-history add-to-history "PAGER=" compilation-start grep-mode] 10 (#$ . 62485) (byte-code "\302 \21\303\232\203\304\305\306\307\211\310%\307D\207\311 \312\313\314\315!!\316#\317\320\307 \321$E\207" [current-prefix-arg default-directory grep-compute-defaults (16) read-from-minibuffer "Run: " "git grep" nil grep-history grep-read-regexp mapconcat shell-quote-argument split-string grep-read-files " " read-directory-name "In directory: " t] 7)]) | |
| vc-git.elc:462 0.000sec 0% | |
| (defalias 'vc-git-stash #[257 "\30!\211\205\302\303\304\305$\210\306\307\211#\207" [default-directory vc-git-root vc-git--call nil "stash" "save" vc-resynch-buffer t] 7 (#$ . 64338) "sStash name: "]) | |
| vc-git.elc:466 0.000sec 0% | |
| (defalias 'vc-git-stash-show #[257 "\301\302!\210\303\302\304\305\306\307\310&\210\302q\210\311 \210\312\313p!\207" [buffer-read-only vc-setup-buffer "*vc-git-stash*" vc-git-command async nil "stash" "show" "-p" diff-mode t pop-to-buffer] 9 (#$ . 64577) "sStash name: "]) | |
| vc-git.elc:470 0.000sec 0% | |
| (defalias 'vc-git-stash-apply #[257 "\301\302\303\304\305\306\307&\210\310\31!\312\211#\207" [default-directory vc-git-command "*vc-git-stash*" 0 nil "stash" "apply" "-q" vc-resynch-buffer vc-git-root t] 9 (#$ . 64903) "sApply stash: "]) | |
| vc-git.elc:474 0.000sec 0% | |
| (defalias 'vc-git-stash-pop #[257 "\301\302\303\304\305\306\307&\210\310\31!\312\211#\207" [default-directory vc-git-command "*vc-git-stash*" 0 nil "stash" "pop" "-q" vc-resynch-buffer vc-git-root t] 9 (#$ . 65181) "sPop stash: "]) | |
| vc-git.elc:476 0.000sec 0% | |
| (defalias 'vc-git-stash-snapshot #[0 "\301\302\303\304\305 \306\307\"\306\310\"P\262$\210\311\312\313\302\303\314\315\316&\210\317\32!\321\211#\207" [default-directory vc-git--call nil "stash" "save" current-time format-time-string "Snapshot on %Y-%m-%d" " at %H:%M" vc-git-command "*vc-git-stash*" 0 "apply" "-q" "stash@{0}" vc-resynch-buffer vc-git-root t] 9 (#$ . 65451) nil]) | |
| vc-git.elc:477 0.000sec 0% | |
| (defalias 'vc-git-stash-list #[0 "\300\301\302\303\304\305\306\307\310\311##\312\"\"\207" [delete "" split-string replace-regexp-in-string "^stash@" " " vc-git--run-command-string nil "stash" "list" "\n"] 10]) | |
| vc-git.elc:481 0.000sec 0% | |
| (defalias 'vc-git-stash-get-at-point #[257 "\212\211b\210\300 \210\301\302!\203\303\304!\202\305\306!)\207" [beginning-of-line looking-at "^ +\\({[0-9]+}\\):" match-string 1 error "Cannot find stash at point"] 3 (#$ . 66109)]) | |
| vc-git.elc:482 0.000sec 0% | |
| (defalias 'vc-git-stash-delete-at-point #[0 "\300`!\301\302\303\"!\205\304\305\306\307\302\310\"$\210\311 \207" [vc-git-stash-get-at-point y-or-n-p format "Remove stash %s ? " vc-git--run-command-string nil "stash" "drop" "stash@%s" vc-dir-refresh] 8 nil nil]) | |
| vc-git.elc:483 0.000sec 0% | |
| (defalias 'vc-git-stash-show-at-point #[0 "\300\301\302\303`!\"!\207" [vc-git-stash-show format "stash@%s" vc-git-stash-get-at-point] 5 nil nil]) | |
| vc-git.elc:484 0.000sec 0% | |
| (defalias 'vc-git-stash-apply-at-point #[0 "\301\302\303\304\305`!\"!\210)\306 \207" [vc-dir-buffers nil vc-git-stash-apply format "stash@%s" vc-git-stash-get-at-point vc-dir-refresh] 5 nil nil]) | |
| vc-git.elc:485 0.000sec 0% | |
| (defalias 'vc-git-stash-pop-at-point #[0 "\301\302\303\304\305`!\"!\210)\306 \207" [vc-dir-buffers nil vc-git-stash-pop format "stash@%s" vc-git-stash-get-at-point vc-dir-refresh] 5 nil nil]) | |
| vc-git.elc:489 0.000sec 0% | |
| (defalias 'vc-git-stash-menu #[257 "\212\211\301\232\204\302!\303\211@\262!q\210\304!b\266\30\")\207" [vc-git-stash-menu-map (tool-bar) event-start window-buffer posn-point popup-menu] 5 (#$ . 67161) "e"]) | |
| vc-git.elc:495 0.000sec 0% | |
| (defalias 'vc-git-command #[899 \206 \n\206\n | |
| \243?\205=\242\206(\211\205;\211GSH\312=\205;\211\313!\232\262?\205C\314B&+\207" [coding-system-for-read vc-git-log-output-coding-system coding-system-for-write vc-git-commits-coding-system process-environment vc-git-program "GIT_DIR" apply vc-do-command "*vc*" 47 vc-git-root "--no-pager"] 13 (#$ . 67393)]) | |
| vc-git.elc:497 0.000sec 0% | |
| (defalias 'vc-git--empty-db-p #[0 "\301\302\301\303\304\305$)\306=?\207" [process-file-side-effects nil vc-git--call "rev-parse" "--verify" "HEAD" 0] 5 (#$ . 67998)]) | |
| vc-git.elc:501 0.000sec 0% | |
| (defalias 'vc-git--call #[642 "\30\206 \n\206 | |
| \307\fB\310\fB\311\312\f\313\313&,\207" [coding-system-for-read vc-git-log-output-coding-system coding-system-for-write vc-git-commits-coding-system process-environment inhibit-null-byte-detection t "PAGER=" "GIT_DIR" apply process-file nil vc-git-program] 11 (#$ . 68223)]) | |
| vc-git.elc:505 0.000sec 0% | |
| (defalias 'vc-git--out-ok #[385 "\300\301\302$\303U\207" [apply vc-git--call (t nil) 0] 7 (#$ . 68602)]) | |
| vc-git.elc:510 0.000sec 0% | |
| (defalias 'vc-git--run-command-string #[385 "\301\302\303\304!!\305\21q\210\306\307\203 \310\311!C\"\202!\"\204(\312\262*q\210\313 +\2055\211\207" [standard-output t get-buffer-create generate-new-buffer-name " *string-output*" #[0 "\30!\207" [standard-output kill-buffer] 2] apply vc-git--out-ok append file-relative-name nil buffer-string] 9 (#$ . 68741)]) | |
| vc-git.elc:515 0.000sec 0% | |
| (defalias 'vc-git-symbolic-commit #[257 "\211\205E\300\301!r\211q\210\302\303\304\305\306!\307\"\310$\216\311\312\313#\2054eb\2054\310y\314U\2054n\2054\315edS\"*\262\211\205C\211\316\230?\205C\211\262\207" [generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 vc-git--out-ok "name-rev" "--name-only" 1 buffer-substring-no-properties "undefined"] 8 (#$ . 69225)]) | |
| vc-git.elc:516 0.000sec 0% | |
| (provide 'vc-git) | |
| init.el:11 0.000sec 0% | |
| (setq package-enable-at-startup nil) | |
| init.el:16 0.000sec 0% | |
| (add-to-list 'exec-path "/usr/local/bin") |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment