;ELC
|
;;; Compiled
|
;;; in Emacs version 26.1
|
;;; with all optimizations.
|
|
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
|
|
;;; This file does not contain utf-8 non-ASCII characters,
|
;;; and so can be loaded in Emacs versions earlier than 23.
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\305\306\307\310\311\303%\210\312\313\314\315\311\306%\210\312\316\317\320\311\306%\210\312\321\322\323\311\306%\210\324\325\326\327\330DD\331\311\306\332\333&\210\324\334\326\327\335DD\336\311\306\332\337&\210\324\340\326\327\341DD\342\311\306\332\327&\210\324\343\326\327\344DD\345\311\306\332\346&\210\324\347\326\327\350DD\351\311\306\332\327&\210\324\352\326\327\353DD\354\332\355\356\357&\207" [require fringe diff-mode vc vc-dir custom-declare-group diff-hl nil "VC diff highlighting on the side of a window" :group custom-declare-face diff-hl-insert ((default :inherit diff-added) (((class color)) :foreground "green4")) "Face used to highlight inserted lines." diff-hl-delete ((default :inherit diff-removed) (((class color)) :foreground "red3")) "Face used to highlight deleted lines." diff-hl-change ((default :foreground "blue3") (((class color) (min-colors 88) (background light)) :background "#ddddff") (((class color) (min-colors 88) (background dark)) :background "#333355")) "Face used to highlight changed lines." custom-declare-variable diff-hl-command-prefix funcall function #[0 "\300\207" ["v"] 1] "The prefix for all `diff-hl' commands." :type string diff-hl-draw-borders #[0 "\300\207" [t] 1] "Non-nil to draw borders around fringe indicators." boolean diff-hl-highlight-function #[0 "\300\207" [diff-hl-highlight-on-fringe] 1] "Function to highlight the current line. Its arguments are\n overlay, change type and position within a hunk." diff-hl-fringe-bmp-function #[0 "\300\207" [diff-hl-fringe-bmp-from-pos] 1] "Function to choose the fringe bitmap for a given change type\n and position within a hunk. Should accept two arguments." (choice (const diff-hl-fringe-bmp-from-pos) (const diff-hl-fringe-bmp-from-type) function) diff-hl-fringe-face-function #[0 "\300\207" [diff-hl-fringe-face-from-type] 1] "Function to choose the fringe face for a given change type\n and position within a hunk. Should accept two arguments." diff-hl-side #[0 "\300\207" [left] 1] "Which side to use for indicators." (choice (const left) (const right)) :set #[514 "\301\300!\205 \211\203 \300\302!\210\303\"\210\211\205 \300\304!\207" [global-diff-hl-mode boundp -1 set-default 1] 6 "\n\n(fn VAR VALUE)"]] 8)
|
#@59 Revision to diff against. nil means the most recent one.
|
(defvar diff-hl-reference-revision nil (#$ . 2707))
|
(defalias 'diff-hl-define-bitmaps #[0 "\303\300!\203 \247\203 \304 \"\202 \305\306 \203 \307\310!\206 \311\312\313 _!\314!\2034 \315\313 _!\2025 \\\316\317\320\321\322\n\"!\"\323^\324\304\325S\"\"\304\325\"S\326!\326!\326!\311I\210SI\210\211\311I\210\211SI\210\327\330 \331%\210\327\332 \333%\210\327\334 \335%\210\327\336 \331%\210\327\337\340\317\325\333%\210\325\245\325_\211\311U\203\257 \325\202\260 \211\304\325S\"\325Z\325\245S\304\325\"\324\341_\"\327\342\324\325\"\211$\210\211\311\211I\210\211I\210\211TI\210\211S\311I\210\327\343\211$\266\206\207" [text-scale-mode-amount text-scale-mode-step diff-hl-side boundp expt 1 display-graphic-p default-value line-spacing 0 ceiling frame-char-height floatp truncate frame-parameter nil intern format "%s-fringe" 16 make-vector 2 copy-sequence define-fringe-bitmap diff-hl-bmp-top top diff-hl-bmp-middle center diff-hl-bmp-bottom bottom diff-hl-bmp-single diff-hl-bmp-i [3 3 0 3 3 3 3 3 3 3] 3 diff-hl-bmp-delete diff-hl-bmp-insert] 20])
|
(defalias 'diff-hl-maybe-define-bitmaps #[0 "\300 \205 \301\302!?\205 \303 \210\304\302\305\306\211\307%\207" [window-system fringe-bitmap-p diff-hl-bmp-empty diff-hl-define-bitmaps define-fringe-bitmap [0] 1 center] 6])
|
(defvar diff-hl-spec-cache (make-hash-table :test 'equal))
|
#@22
|
|
(fn TYPE POS SIDE)
|
(defalias 'diff-hl-fringe-spec #[771 " \257\303\n\"\211\2042 \" \"\304\305\306\307\310\311\n\"!EC#\262\312\n#\266\207" [diff-hl-fringe-face-function diff-hl-fringe-bmp-function diff-hl-spec-cache gethash propertize " " display intern format "%s-fringe" puthash] 14 (#$ . 4158)])
|
#@17
|
|
(fn TYPE POS)
|
(defalias 'diff-hl-fringe-face-from-type #[514 "\300\301\302\"!\207" [intern format "diff-hl-%s"] 6 (#$ . 4485)])
|
#@17
|
|
(fn TYPE POS)
|
(defalias 'diff-hl-fringe-bmp-from-pos #[514 "\300\301\302\"!\207" [intern format "diff-hl-bmp-%s"] 6 (#$ . 4622)])
|
#@17
|
|
(fn TYPE POS)
|
(defalias 'diff-hl-fringe-bmp-from-type #[514 "\300\267\202\f \301\207\302\207\303\207\304\305\306\"!\207" [#s(hash-table size 3 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (unknown 6 change 8 ignored 10)) question-mark exclamation-mark diff-hl-bmp-i intern format "diff-hl-bmp-%s"] 6 (#$ . 4761)])
|
#@13
|
|
(fn BODY)
|
(defalias 'diff-hl-with-diff-switches '(macro . #[257 "\300\301\302\303\304\305\306!\205\f \307BBBBE\207" [let (vc-git-diff-switches (cons "-U0" (and (boundp 'vc-git-diff-switches) (listp vc-git-diff-switches) (cl-remove-if-not (lambda (arg) (member arg '("--histogram" "--patience" "--minimal"))) vc-git-diff-switches)))) (vc-hg-diff-switches nil) (vc-svn-diff-switches nil) (vc-diff-switches '("-U0")) boundp vc-disable-async-diff ((vc-disable-async-diff t))] 8 (#$ . 5105)]))
|
#@14
|
|
(fn STATE)
|
(defalias 'diff-hl-modified-p #[257 "\211\302=\206 \211\303=\205 \206 \207" [revert-buffer-in-progress-p diff-hl-reference-revision edited up-to-date] 3 (#$ . 5603)])
|
#@21
|
|
(fn FILE BACKEND)
|
(defalias 'diff-hl-changes-buffer #[514 "\305\306\307\300!\205 <\205 \310\311\"B\312\211\313\314\315C\f\312&\210,\211\207" [vc-git-diff-switches vc-diff-switches vc-svn-diff-switches vc-hg-diff-switches diff-hl-reference-revision " *diff-hl* " "-U0" boundp cl-remove-if-not #[257 "\211\300\235\207" [("--histogram" "--patience" "--minimal")] 3 "\n\n(fn ARG)"] nil ("-U0") vc-call-backend diff] 10 (#$ . 5794)])
|
(defalias 'diff-hl-changes #[0 "\303!\211\205\264 \304\"\305!\203\223 \306\211r\307\"q\210eb\210m\204\212 \3101. \311\312!0\2022 \210\2023 \210\313\n!\203\212 \314\315\316!!\315\317!\211\203K \314!\202L \320\262`\321 \210\322\323`#\322\324`#\211\325U\203f \326\202q \325U\203p \327\202q \330\211\327=\203~ \320\262T\262EB\266\207\2023 )\211\237)\262\202\262 \211\331=\203\244 \320\332d!\333BBC\202\262 \211\334=\205\262 \320\332d!\335BBC\262\207" [buffer-file-name diff-auto-refine-mode diff-hunk-header-re-unified vc-backend vc-state diff-hl-modified-p nil diff-hl-changes-buffer (error) diff-beginning-of-hunk t looking-at string-to-number match-string 3 4 1 diff-end-of-hunk diff-count-matches "^\\+" "^-" 0 insert delete change added line-number-at-pos (insert) removed (delete)] 14])
|
(defalias 'diff-hl-update #[0 "\301 \302\303 \210\212\214~\210eb\210\211\205\264 \211@\211\211G\304U\203% \211A\262\242\202, \305\306\307GD\"\211A\262\242@Zy\210\262`\211\310V\262\203\211 \311\204Q \312\202x \302U\203b \nU\203b \313\202x \302U\203l \314\202x \nU\203w \315\202x \316\"\210\302y\210T\262S\262\202> \317`\"\320\321\322\323#\210\321\324\323#\210\321\325#\210\321\326#\210\321\327#\266A\266\202\202 \262*\207" [diff-hl-draw-borders diff-hl-changes 1 diff-hl-remove-overlays 3 signal wrong-number-of-arguments nil 0 diff-hl-add-highlighting empty single bottom top middle make-overlay (diff-hl-overlay-modified) overlay-put diff-hl t diff-hl-hunk modification-hooks insert-in-front-hooks insert-behind-hooks] 15])
|
#@19
|
|
(fn TYPE SHAPE)
|
(defalias 'diff-hl-add-highlighting #[514 "\301``\"\302\303\304#\210#\210\211\207" [diff-hl-highlight-function make-overlay overlay-put diff-hl t] 7 (#$ . 7821)])
|
#@23
|
|
(fn OVL TYPE SHAPE)
|
(defalias 'diff-hl-highlight-on-fringe #[771 "\301\302\303##\207" [diff-hl-side overlay-put before-string diff-hl-fringe-spec] 10 (#$ . 8013)])
|
#@26
|
|
(fn &optional BEG END)
|
(defalias 'diff-hl-remove-overlays #[512 "\214~\210\300\206 e\206 d\"\211\205' \211@\301\302\"\203 \303!\210A\266\202\202 \262)\207" [overlays-in overlay-get diff-hl delete-overlay] 7 (#$ . 8189)])
|
#@104 Delete the hunk overlay and all our line overlays inside it.
|
|
(fn OV AFTER-P BEG END &optional LENGTH)
|
(defalias 'diff-hl-overlay-modified #[1284 "?\205 \300!\205 \301\302!\303!\"\210\304!\207" [overlay-buffer diff-hl-remove-overlays overlay-start overlay-end delete-overlay] 9 (#$ . 8429)])
|
(defvar diff-hl-timer nil)
|
#@79 DTRT when we've `undo'-ne the buffer into unmodified state.
|
|
(fn BEG END LEN)
|
(defalias 'diff-hl-edit #[771 "\205 \203\f \302 !\210\303\304\305\306p$\211\207" [undo-in-progress diff-hl-timer cancel-timer run-with-idle-timer 0.01 nil diff-hl-after-undo] 8 (#$ . 8763)])
|
#@15
|
|
(fn BUFFER)
|
(defalias 'diff-hl-after-undo #[257 "r\211q\210\300 ?\205\f \301 )\207" [buffer-modified-p diff-hl-update] 2 (#$ . 9042)])
|
#@70 Run VC diff command and go to the line corresponding to the current.
|
(defalias 'diff-hl-diff-goto-hunk #[0 "\301 \210\302 p\303\304\305 \306\304%\210\307\310\311\312\313BB\314D\315BBBB!\207" [diff-hl-reference-revision vc-buffer-sync line-number-at-pos vc-diff-internal t vc-deduce-fileset nil vc-exec-after if (< (line-number-at-pos (point-max)) 3) with-current-buffer ((diff-hl-remove-overlays)) diff-hl-diff-skip-to ((setq vc-sentinel-movepoint (point)))] 8 (#$ . 9185) nil])
|
#@135 In `diff-mode', skip to the hunk and line corresponding to LINE
|
in the source file, or the last line of the hunk above it.
|
|
(fn LINE)
|
(defalias 'diff-hl-diff-skip-to #[257 "\301 \210\302\303!\205d \211?\205d \304\305\306!!\305\307!\211\203! \304!\202\" \310\262\\V\2032 \301 \210\202_ \311\262W\203A \312y\210\202_ ZT\211\211\313V\262\203^ \310y\210\303\314!\204E \211S\262\202E \210\266\202 \207" [diff-hunk-header-re-unified diff-hunk-next nil looking-at string-to-number match-string 3 4 1 t -1 0 "^-"] 8 (#$ . 9675)])
|
#@58 Revert the diff hunk with changes at or above the point.
|
(defalias 'diff-hl-revert-hunk #[0 "\301 \210\302\303!p\212\304`!\204 \305 \210\306 )\307 \310\311\312\313\314!\315\"\316$\216\317\320\320\211 &\210\321\322\323\324\325\326\327BB\330BBB\322\331\332DE\333\334\335\336\337\340\341\342\343\344\345A@@ED\346BB\347\326\350BB\351BBBBBBBBBBBBBB!)\207" [diff-hl-reference-revision vc-buffer-sync generate-new-buffer-name "*diff-hl*" diff-hl-hunk-overlay-at diff-hl-previous-hunk line-number-at-pos vc-deduce-fileset make-byte-code 0 "\301\300\302\"\207" vconcat vector [quit-windows-on t] 3 vc-diff-internal nil vc-exec-after let (beg-line end-line) when (eobp) with-current-buffer ((diff-hl-remove-overlays)) ((user-error "Buffer is up-to-date")) (diff-auto-refine-mode) diff-hl-diff-skip-to (save-excursion (while (looking-at "[-+]") (forward-line 1)) (setq end-line (line-number-at-pos (point))) (unless (eobp) (diff-split-hunk))) (unless (looking-at "[-+]") (forward-line -1)) (while (looking-at "[-+]") (forward-line -1)) (setq beg-line (line-number-at-pos (point))) (unless (looking-at "@") (forward-line 1) (diff-split-hunk)) (let ((wbh (window-body-height))) (if (>= wbh (- end-line beg-line)) (recenter (/ (+ wbh (- beg-line end-line) 2) 2)) (recenter 1))) (when diff-auto-refine-mode (diff-refine-hunk)) unless yes-or-no-p format "Revert current hunk in %s? " ((user-error "Revert canceled")) (let ((diff-advance-after-apply-hunk nil)) (diff-apply-hunk t)) ((save-buffer)) ((message "Hunk reverted"))] 21 (#$ . 10218) nil])
|
#@12
|
|
(fn POS)
|
(defalias 'diff-hl-hunk-overlay-at #[257 "\300\211T\"\301\302\301:\203- @\262\303\304\"\203\" \262\301\211\262\202# \302\203- A\262\202 \207" [overlays-in nil t overlay-get diff-hl-hunk] 8 (#$ . 11771)])
|
#@86 Go to the beginning of the next hunk in the current buffer.
|
|
(fn &optional BACKWARD)
|
(defalias 'diff-hl-next-hunk #[256 "\212\3002< \211\203 o\202 m?\205; \211\203 \301`!\202 \302`!b\210\303`!\211\2037 \304!`U\2037 \305\300\304!\"\210\210\202 0)\211\203F \211b\202I \306\307!\207" [found previous-overlay-change next-overlay-change diff-hl-hunk-overlay-at overlay-start throw user-error "No further hunks found"] 6 (#$ . 12003) nil])
|
#@65 Go to the beginning of the previous hunk in the current buffer.
|
(defalias 'diff-hl-previous-hunk #[0 "\300\301!\207" [diff-hl-next-hunk t] 2 (#$ . 12450) nil])
|
(defalias 'diff-hl-mark-hunk #[0 "\300`!\211\204 \301\302!\210\303!b\210\304\305!\306\307#\207" [diff-hl-hunk-overlay-at user-error "No hunk at point" overlay-start push-mark overlay-end nil t] 5 nil nil])
|
(defvar diff-hl-command-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\211\207" [make-sparse-keymap define-key "n" diff-hl-revert-hunk "[" diff-hl-previous-hunk "]" diff-hl-next-hunk] 5))
|
(fset 'diff-hl-command-map diff-hl-command-map)
|
#@110 Mode line lighter for Diff Hl.
|
|
The value of this variable is a mode line template as in
|
`mode-line-format'.
|
(defvar diff-hl-lighter "" (#$ . 13091))
|
#@93 Non-nil if Diff-Hl mode is enabled.
|
Use the command `diff-hl-mode' to change this variable.
|
(defvar diff-hl-mode nil (#$ . 13247))
|
(make-variable-buffer-local 'diff-hl-mode)
|
#@50 Toggle VC diff highlighting.
|
|
(fn &optional ARG)
|
(defalias 'diff-hl-mode #[256 "\302 \303=\203 ?\202 \304!\305V\211\203d \306 \210\307\310\311\312\313$\210\307\314\315\312\313$\210\307 \2031 \316\2022 \317\311\313\211$\210\307\320\311\312\313$\210\307\321\311\312\313$\210\307\322\311\312\313$\210\307\323\311\312\313$\210\307\324\311\312\313$\210\307\325\326\312\313$\210\202\235 \327\310\311\313#\210\327\314\315\313#\210\327\317\311\313#\210\327\320\311\313#\210\327\321\311\313#\210\327\322\311\313#\210\327\323\311\313#\210\327\324\311\313#\210\327\325\326\313#\210\330 \210\331\332\203\247 \316\202\250 \333\"\210\334\335!\203\314 \302 \203\274 \211\302 \232\203\314 \336\337\340\203\307 \341\202\310 \342#\266\210\343 \210\207" [diff-hl-mode vc-mode current-message toggle prefix-numeric-value 0 diff-hl-maybe-define-bitmaps add-hook after-save-hook diff-hl-update nil t after-change-functions diff-hl-edit diff-hl-mode-on-hook find-file-hook vc-checkin-hook after-revert-hook magit-revert-buffer-hook magit-not-reverted-hook auto-revert-mode-hook text-scale-mode-hook diff-hl-define-bitmaps remove-hook diff-hl-remove-overlays run-hooks diff-hl-mode-hook diff-hl-mode-off-hook called-interactively-p any " in current buffer" message "Diff-Hl mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 13427) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
|
(defvar diff-hl-mode-hook nil)
|
(byte-code "\300\301N\204\f \302\300\301\303#\210\300\207" [diff-hl-mode-hook variable-documentation put "Hook run after entering or leaving `diff-hl-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)"] 4)
|
#@28 Keymap for `diff-hl-mode'.
|
(defvar diff-hl-mode-map (byte-code "\301\302BD\303!\203 \211\202 \211<\203 \304!\202 \305\306\"\207" [diff-hl-command-prefix ([remap vc-diff] . diff-hl-diff-goto-hunk) diff-hl-command-map keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 4) (#$ . 15143))
|
(byte-code "\303\304\305\306\211%\210\307\310\306\311#\2033 \306C\306C\211\312\313\314\315\316\"\317\"\320\321%\240\210\211\242 !\210\322\n\242#\266\306\207" [diff-hl-mode-map diff-hl-command-map diff-hl-command-prefix add-minor-mode diff-hl-mode diff-hl-lighter nil require smartrep t make-byte-code 257 "\302\303\304\305\306\307\300\301\"\310\"\311\312%\"\207" vconcat vector [map-keymap make-byte-code 514 "\211:\203\n \301\242!\207\302!\205 \300\303!B\300\242B\240\207" vconcat vector [characterp string] 5 "\n\n(fn EVENT BINDING)"] 9 "\n\n(fn MAP)" smartrep-define-key] 10)
|
(defalias 'diff-hl-magit-post-refresh #[0 "\301 \302\303\304\305\306\307!\310\"\311\312%\313\314!\"\315\316 \211\205\203 \211@\317\320\"\203| \321!\204| \300!\203| \322\300!\"\203| \323\300!!\203| r\211q\210\324!\211\203y \235\203h \325!>\203b \326\"\210\327 \210\202y \325\">\204y \326\"\210\327 \210\266)A\266\202\202 \262\207" [buffer-file-name magit-toplevel mapcar make-byte-code 257 "\301\300\"\207" vconcat vector [expand-file-name] 4 "\n\n(fn FILE)" magit-unstaged-files t (up-to-date ignored unregistered) buffer-list buffer-local-value diff-hl-mode buffer-modified-p file-in-directory-p file-exists-p vc-backend vc-state vc-state-refresh diff-hl-update] 10])
|
(defalias 'diff-hl-dir-update #[0 "\300 \203\n \301 \202\f \302 \211\2051 \211@\211A\303=\203* \304@!\211\203) r\211q\210\305 \210)\210A\266\202\202\f \207" [vc-dir-marked-files vc-dir-marked-only-files-and-states vc-dir-child-files-and-states up-to-date find-buffer-visiting diff-hl-remove-overlays] 4])
|
#@101 Non-nil if Diff-Hl-Dir mode is enabled.
|
Use the command `diff-hl-dir-mode' to change this variable.
|
(defvar diff-hl-dir-mode nil (#$ . 17048))
|
(make-variable-buffer-local 'diff-hl-dir-mode)
|
#@82 Toggle `diff-hl-mode' integration in a `vc-dir-mode' buffer.
|
|
(fn &optional ARG)
|
(defalias 'diff-hl-dir-mode #[256 "\301 \302=\203 ?\202 \303!\304V\211\203! \305\306\307\310\211$\210\202' \311\306\307\310#\210\312\313\2031 \314\2022 \315\"\210\316\317!\203V \301 \203F \211\301 \232\203V \320\321\322\203Q \323\202R \324#\266\210\325 \210\207" [diff-hl-dir-mode current-message toggle prefix-numeric-value 0 add-hook vc-checkin-hook diff-hl-dir-update t remove-hook run-hooks diff-hl-dir-mode-hook diff-hl-dir-mode-on-hook diff-hl-dir-mode-off-hook called-interactively-p any " in current buffer" message "Diff-Hl-Dir mode %sabled%s" "en" "dis" force-mode-line-update] 8 (#$ . 17244) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
|
(defvar diff-hl-dir-mode-hook nil)
|
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [diff-hl-dir-mode-map diff-hl-dir-mode-hook variable-documentation put "Hook run after entering or leaving `diff-hl-dir-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-dir-mode "" boundp nil] 6)
|
#@74 Turn on `diff-hl-mode' or `diff-hl-dir-mode' in a buffer if appropriate.
|
(defalias 'turn-on-diff-hl-mode #[0 "\203 \302\303!\207 \304=\205 \305\303!\207" [buffer-file-name major-mode diff-hl-mode 1 vc-dir-mode diff-hl-dir-mode] 2 (#$ . 18440)])
|
(defvar diff-hl-mode-major-mode nil)
|
(byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315\316\317& \207" [make-variable-buffer-local diff-hl-mode-major-mode custom-declare-variable global-diff-hl-mode funcall function #[0 "\300\207" [nil] 1] "Non-nil if Global Diff-Hl mode is enabled.\nSee the `global-diff-hl-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-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group diff-hl :type boolean] 12)
|
#@347 Toggle Diff-Hl mode in all buffers.
|
With prefix ARG, enable Global Diff-Hl mode if ARG is positive;
|
otherwise, disable it. If called from Lisp, enable the mode if
|
ARG is omitted or nil.
|
|
Diff-Hl mode is enabled in all buffers where
|
`turn-on-diff-hl-mode' would do it.
|
See `diff-hl-mode' for more information on Diff-Hl mode.
|
|
(fn &optional ARG)
|
(defalias 'global-diff-hl-mode #[256 "\302 \303\300\304=\203 \305\300!?\202 \306!\307V\"\210\203. \310\311\312\"\210\310\313\314\"\210\310\315\316\"\210\202= \317\311\312\"\210\317\313\314\"\210\317\315\316\"\210\320 \211\203c \211@r\211q\210\203S \321 \210\202[ \203[ \301\322!\210)A\266\202\202? \210\323\324\305\300!\203p \325\202q \326\"\210\327\330!\203\233 \331\300!\210\302 \203\211 \211\302 \232\203\233 \332\333\334\305\300!\203\226 \335\202\227 \336#\266\337 \266\340 \210\305\300!\207" [global-diff-hl-mode diff-hl-mode current-message set-default toggle default-value prefix-numeric-value 0 add-hook after-change-major-mode-hook global-diff-hl-mode-enable-in-buffers find-file-hook global-diff-hl-mode-check-buffers change-major-mode-hook global-diff-hl-mode-cmhh remove-hook buffer-list turn-on-diff-hl-mode -1 run-hooks global-diff-hl-mode-hook global-diff-hl-mode-on-hook global-diff-hl-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Global Diff-Hl mode %sabled%s" "en" "dis" diff-hl-global-mode-change force-mode-line-update] 7 (#$ . 19343) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
|
(defvar global-diff-hl-mode-hook nil)
|
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\207" [global-diff-hl-mode-map global-diff-hl-mode-hook variable-documentation put "Hook run after entering or leaving `global-diff-hl-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-mode nil boundp] 6)
|
(defvar diff-hl-mode-set-explicitly nil nil)
|
(make-variable-buffer-local 'diff-hl-mode-set-explicitly)
|
(defalias 'diff-hl-mode-set-explicitly #[0 "\301\211\207" [diff-hl-mode-set-explicitly t] 2])
|
(byte-code "\300\301\302\303#\210\304\305\301\"\207" [put diff-hl-mode-set-explicitly definition-name global-diff-hl-mode add-hook diff-hl-mode-hook] 4)
|
(defvar global-diff-hl-mode-buffers nil)
|
(defalias 'global-diff-hl-mode-enable-in-buffers #[0 "\211\2056 \211@\305!\203/ r\211q\210 \204, \n =\204, \f\203) \304\306!\210\307 \210\202, \307 \210 )A\266\202\202 \207" [global-diff-hl-mode-buffers diff-hl-mode-set-explicitly diff-hl-mode-major-mode major-mode diff-hl-mode buffer-live-p -1 turn-on-diff-hl-mode] 4])
|
(put 'global-diff-hl-mode-enable-in-buffers 'definition-name 'global-diff-hl-mode)
|
(defalias 'global-diff-hl-mode-check-buffers #[0 "\301 \210\302\303\304\305\"\207" [global-diff-hl-mode-buffers global-diff-hl-mode-enable-in-buffers nil remove-hook post-command-hook global-diff-hl-mode-check-buffers] 3])
|
(put 'global-diff-hl-mode-check-buffers 'definition-name 'global-diff-hl-mode)
|
(defalias 'global-diff-hl-mode-cmhh #[0 "\300\301p\"\210\302\303\304\"\207" [add-to-list global-diff-hl-mode-buffers add-hook post-command-hook global-diff-hl-mode-check-buffers] 3])
|
(put 'global-diff-hl-mode-cmhh 'definition-name 'global-diff-hl-mode)
|
(defalias 'diff-hl-global-mode-change #[0 "?\205# \302 \211\205! \211@r\211q\210 \203 \301\303!\210)A\266\202\202 \262\207" [global-diff-hl-mode diff-hl-dir-mode buffer-list -1] 4])
|
(provide 'diff-hl)
|
