| commit | author | age | ||
| 5cb5f7 | 1 | ;ELC |
| C | 2 | ;;; Compiled |
| 3 | ;;; in Emacs version 26.1 | |
| 4 | ;;; with all optimizations. | |
| 5 | ||
| 6 | ;;; This file uses dynamic docstrings, first added in Emacs 19.29. | |
| 7 | ||
| 8 | ;;; This file does not contain utf-8 non-ASCII characters, | |
| 9 | ;;; and so can be loaded in Emacs versions earlier than 23. | |
| 10 | ||
| 11 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 12 | ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; | |
| 13 | ||
| 14 | ||
| 15 | (require 'diff-hl) | |
| 16 | #@105 Non-nil if Diff-Hl-Amend mode is enabled. | |
| 17 | Use the command `diff-hl-amend-mode' to change this variable. | |
| 18 | (defvar diff-hl-amend-mode nil (#$ . 428)) | |
| 19 | (make-variable-buffer-local 'diff-hl-amend-mode) | |
| 20 | #@235 Show changes against the second-last revision in `diff-hl-mode'. | |
| 21 | Most useful with backends that support rewriting local commits, | |
| 22 | and most importantly, 'amending' the most recent one. | |
| 23 | Currently only supports Git, Mercurial and Bazaar. | |
| 24 | (defalias 'diff-hl-amend-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203% \312 \210\313\314\312\315\316$\210\2021 \317\314\312\316#\210\320\303!\210\315\f\2038 \321 \210\322\323\n\203B \324\202C \325\"\210\326\327!\203h \306 \203W \306 \232\203h \330 \331\332\n\203c \333\202d \334 #\210))\335 \210\n\207" [#1=#:last-message arg diff-hl-amend-mode diff-hl-reference-revision diff-hl-mode local current-message toggle prefix-numeric-value 0 diff-hl-amend-setup add-hook after-revert-hook nil t 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] 6 (#$ . 631) (list (or current-prefix-arg 'toggle))]) | |
| 25 | (defvar diff-hl-amend-mode-hook nil) | |
| 26 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\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.)" add-minor-mode diff-hl-amend-mode " Amend" boundp nil] 6) | |
| 27 | (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 eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (Git 18 Hg 22 Bzr 26)) "HEAD^" "-2" "revno:-2" nil] 3]) | |
| 28 | (defvar diff-hl-amend-mode-major-mode nil) | |
| 29 | (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 :group diff-hl-amend :type boolean] 12) | |
| 30 | #@363 Toggle Diff-Hl-Amend mode in all buffers. | |
| 31 | With prefix ARG, enable Global Diff-Hl-Amend mode if ARG is positive; | |
| 32 | otherwise, disable it. If called from Lisp, enable the mode if | |
| 33 | ARG is omitted or nil. | |
| 34 | ||
| 35 | Diff-Hl-Amend mode is enabled in all buffers where | |
| 36 | `turn-on-diff-hl-amend-mode' would do it. | |
| 37 | See `diff-hl-amend-mode' for more information on Diff-Hl-Amend mode. | |
| 38 | (defalias 'global-diff-hl-amend-mode #[(&optional arg) "\306 \307\302 \310=\203 \311\302!?\202 \312 !\313V\"\210\n\203/ \314\315\316\"\210\314\317\320\"\210\314\321\322\"\210\202> \323\315\316\"\210\323\317\320\"\210\323\321\322\"\210\324 \325\211 \203h \f@r q\210\n\203X \326 \210\202` \203` \305\327!\210)\fA\211\204G *\330\331\311\302!\203u \332\202v \333\"\210\334\335!\203\243 \336\302!\210\306 \203\216 \306 \232\203\243 \337 %\340\341\311\302!\203\235 \342\202\236 \343%#\210))\344 \210\311\302!\207" [#1=#:last-message arg global-diff-hl-amend-mode buf --dolist-tail-- diff-hl-amend-mode current-message set-default toggle default-value prefix-numeric-value 0 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 nil turn-on-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 (#$ . 3149) (list (or current-prefix-arg 'toggle))]) | |
| 39 | (defvar global-diff-hl-amend-mode-hook nil) | |
| 40 | (byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\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.)" add-minor-mode global-diff-hl-amend-mode nil boundp] 6) | |
| 41 | (defvar diff-hl-amend-mode-set-explicitly nil nil) | |
| 42 | (make-variable-buffer-local 'diff-hl-amend-mode-set-explicitly) | |
| 43 | (defalias 'diff-hl-amend-mode-set-explicitly #[nil "\301\211\207" [diff-hl-amend-mode-set-explicitly t] 2]) | |
| 44 | (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) | |
| 45 | (defvar global-diff-hl-amend-mode-buffers nil) | |
| 46 | (defalias 'global-diff-hl-amend-mode-enable-in-buffers #[nil "\306\211\205< \n@\307 !\2034 r q\210 \2041 \f =\2041 \203. \310\311!\210\312 \210\2021 \312 \210 )\nA\211\204 \306*\207" [global-diff-hl-amend-mode-buffers buf --dolist-tail-- diff-hl-amend-mode-set-explicitly diff-hl-amend-mode-major-mode major-mode nil buffer-live-p diff-hl-amend-mode -1 turn-on-diff-hl-amend-mode] 3]) | |
| 47 | (put 'global-diff-hl-amend-mode-enable-in-buffers 'definition-name 'global-diff-hl-amend-mode) | |
| 48 | (defalias 'global-diff-hl-amend-mode-check-buffers #[nil "\301 \210\302\303\304\305\"\207" [global-diff-hl-amend-mode-buffers global-diff-hl-amend-mode-enable-in-buffers nil remove-hook post-command-hook global-diff-hl-amend-mode-check-buffers] 3]) | |
| 49 | (put 'global-diff-hl-amend-mode-check-buffers 'definition-name 'global-diff-hl-amend-mode) | |
| 50 | (defalias 'global-diff-hl-amend-mode-cmhh #[nil "p\211 \235\203 \210\202 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]) | |
| 51 | (put 'global-diff-hl-amend-mode-cmhh 'definition-name 'global-diff-hl-amend-mode) | |
| 52 | #@58 Turn on `diff-hl-amend-mode' in a buffer if appropriate. | |
| 53 | (defalias 'turn-on-diff-hl-amend-mode #[nil "\205 \301\302!\207" [buffer-file-name diff-hl-amend-mode 1] 2 (#$ . 6791)]) | |
| 54 | (provide 'diff-hl-amend) | |
