;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'diff-hl) #@105 Non-nil if Diff-Hl-Amend mode is enabled. Use the command `diff-hl-amend-mode' to change this variable. (defvar diff-hl-amend-mode nil (#$ . 107)) (make-variable-buffer-local 'diff-hl-amend-mode) #@775 Show changes against the second-last revision in `diff-hl-mode'. Most useful with backends that support rewriting local commits, and most importantly, 'amending' the most recent one. Currently only supports Git, Mercurial and Bazaar. This is a minor mode. If called interactively, toggle the `Diff-Hl-Amend mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `diff-hl-amend-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (defalias 'diff-hl-amend-mode #[(&optional arg) "\306  \307=\203\n?\202 \247\203 \310W\203\311\202\312\313\303!\2032\314\302 \"\n\2032\302 B\n\203C\315 \210\316\317\315\311\312$\210\202O\320\317\315\312#\210\321\304!\210\311 \203V\322 \210\323\324\n\203`\325\202a\326\"\210\327\330!\203\210\306 \203u\306 \232\203\210\331\332\333\n\203\202\334\202\203\335#\210))\336 \210\n\207" [#1=#:last-message arg diff-hl-amend-mode local-minor-modes diff-hl-reference-revision diff-hl-mode current-message toggle 1 nil t boundp delq diff-hl-amend-setup add-hook after-revert-hook remove-hook make-local-variable diff-hl-update run-hooks diff-hl-amend-mode-hook diff-hl-amend-mode-on-hook diff-hl-amend-mode-off-hook called-interactively-p any " in current buffer" message "Diff-Hl-Amend mode %sabled%s" "en" "dis" force-mode-line-update local] 5 (#$ . 310) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar diff-hl-amend-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\313\314\300!\205#\310\211%\207" [diff-hl-amend-mode-map diff-hl-amend-mode-hook variable-documentation put "Hook run after entering or leaving `diff-hl-amend-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode diff-hl-amend-mode " Amend" boundp] 6) (defalias 'diff-hl-amend-setup #[nil "\303!\211\205!\304\302!\210 \305\267\202\306\202\307\202\310\202\311\211)\207" [buffer-file-name backend diff-hl-reference-revision vc-backend make-local-variable #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (Git 18 Hg 22 Bzr 26)) "HEAD^" "-2" "revno:-2" nil] 3]) (put 'global-diff-hl-amend-mode 'globalized-minor-mode t) (defvar diff-hl-amend-mode-major-mode nil nil) (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315& \207" [make-variable-buffer-local diff-hl-amend-mode-major-mode custom-declare-variable global-diff-hl-amend-mode nil "Non-nil if Global Diff-Hl-Amend mode is enabled.\nSee the `global-diff-hl-amend-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-diff-hl-amend-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group diff-hl] 12) #@364 Toggle Diff-Hl-Amend mode in all buffers. With prefix ARG, enable Global Diff-Hl-Amend mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. Diff-Hl-Amend mode is enabled in all buffers where `turn-on-diff-hl-amend-mode' would do it. See `diff-hl-amend-mode' for more information on Diff-Hl-Amend mode. (defalias 'global-diff-hl-amend-mode #[(&optional arg) "\306 \307\303 \310=\203\311\303!?\202\" \247\203! \312W\203!\313\202\"\314\"\210\315\302!\2039\316\303\n\"\311\303!\2039\303\nB \203O\317\320\321\"\210\317\322\323\"\210\317\324\325\"\210\202^\326\320\321\"\210\326\322\323\"\210\326\324\325\"\210\327 \313\211\203\211 @r\fq\210 \203x\330 \210\202\201\203\201\331\332!\210) A\211\204g*\333\334\311\303!\203\226\335\202\227\336\"\210\337\340!\203\304\341\303!\210\306 \203\257\306 \232\203\304\342(\343\344\311\303!\203\276\345\202\277\346(#\210))\347 \210\311\303!\207" [#1=#:last-message arg global-minor-modes global-diff-hl-amend-mode buf --dolist-tail-- current-message set-default toggle default-value 1 nil t boundp delq add-hook after-change-major-mode-hook global-diff-hl-amend-mode-enable-in-buffers find-file-hook global-diff-hl-amend-mode-check-buffers change-major-mode-hook global-diff-hl-amend-mode-cmhh remove-hook buffer-list turn-on-diff-hl-amend-mode diff-hl-amend-mode -1 run-hooks global-diff-hl-amend-mode-hook global-diff-hl-amend-mode-on-hook global-diff-hl-amend-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Diff-Hl-Amend mode %sabled%s" "en" "dis" force-mode-line-update local] 5 (#$ . 3628) (list (if current-prefix-arg (prefix-numeric-value current-prefix-arg) 'toggle))]) (defvar global-diff-hl-amend-mode-hook nil) (byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\211%\207" [global-diff-hl-amend-mode-map global-diff-hl-amend-mode-hook variable-documentation put "Hook run after entering or leaving `global-diff-hl-amend-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil add-minor-mode global-diff-hl-amend-mode boundp] 6) (defvar diff-hl-amend-mode-set-explicitly nil nil) (make-variable-buffer-local 'diff-hl-amend-mode-set-explicitly) (defalias 'diff-hl-amend-mode-set-explicitly #[nil "\301\211\207" [diff-hl-amend-mode-set-explicitly t] 2]) (byte-code "\300\301\302\303#\210\304\305\301\"\207" [put diff-hl-amend-mode-set-explicitly definition-name global-diff-hl-amend-mode add-hook diff-hl-amend-mode-hook] 4) (defvar global-diff-hl-amend-mode-buffers nil) (defalias 'global-diff-hl-amend-mode-enable-in-buffers #[nil "\306 \306\211\205B @\307\n!\203:r\nq\210\f\2046  =\2046\2033\310\311!\210\312 \210\2026\312 \210 ) A\211\204\f\306+\207" [global-diff-hl-amend-mode-buffers buffers buf --dolist-tail-- diff-hl-amend-mode-set-explicitly diff-hl-amend-mode-major-mode nil buffer-live-p diff-hl-amend-mode -1 turn-on-diff-hl-amend-mode major-mode] 3]) (put 'global-diff-hl-amend-mode-enable-in-buffers 'definition-name 'global-diff-hl-amend-mode) (defalias 'global-diff-hl-amend-mode-check-buffers #[nil "\300 \210\301\302\303\"\207" [global-diff-hl-amend-mode-enable-in-buffers remove-hook post-command-hook global-diff-hl-amend-mode-check-buffers] 3]) (put 'global-diff-hl-amend-mode-check-buffers 'definition-name 'global-diff-hl-amend-mode) (defalias 'global-diff-hl-amend-mode-cmhh #[nil "p\211 \235\204\f B)\302\303\304\"\207" [#1=#:x global-diff-hl-amend-mode-buffers add-hook post-command-hook global-diff-hl-amend-mode-check-buffers] 4]) (put 'global-diff-hl-amend-mode-cmhh 'definition-name 'global-diff-hl-amend-mode) #@58 Turn on `diff-hl-amend-mode' in a buffer if appropriate. (defalias 'turn-on-diff-hl-amend-mode #[nil "\205\301\302!\207" [buffer-file-name diff-hl-amend-mode 1] 2 (#$ . 7457)]) (provide 'diff-hl-amend)