;ELC ;;; Compiled ;;; in Emacs version 25.3.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 (#$ . 2709)) (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)) (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 "\n\n(fn TYPE POS SIDE)"]) (defalias 'diff-hl-fringe-face-from-type #[514 "\300\301\302\"!\207" [intern format "diff-hl-%s"] 6 "\n\n(fn TYPE POS)"]) (defalias 'diff-hl-fringe-bmp-from-pos #[514 "\300\301\302\"!\207" [intern format "diff-hl-bmp-%s"] 6 "\n\n(fn TYPE POS)"]) (defalias 'diff-hl-fringe-bmp-from-type #[514 "\300\301\"\203 \302\207\300\303\"\203\304\207\300\305\"\203\306\207\307\310\311\"!\207" [eql unknown question-mark change exclamation-mark ignored diff-hl-bmp-i intern format "diff-hl-bmp-%s"] 6 "\n\n(fn TYPE POS)"]) (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 "\n\n(fn BODY)"])) (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 "\n\n(fn STATE)"]) (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 "\n\n(fn FILE BACKEND)"]) (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]) (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 "\n\n(fn 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 "\n\n(fn OVL TYPE SHAPE)"]) (defalias 'diff-hl-remove-overlays #[512 "\214~\210\300\206 e\206d\"\211\205'\211@\301\302\"\203 \303!\210A\266\202\202\262)\207" [overlays-in overlay-get diff-hl delete-overlay] 7 "\n\n(fn &optional BEG END)"]) #@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 (#$ . 8234)]) (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 (#$ . 8568)]) (defalias 'diff-hl-after-undo #[257 "r\211q\210\300 ?\205\f\301 )\207" [buffer-modified-p diff-hl-update] 2 "\n\n(fn BUFFER)"]) #@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 (#$ . 8976) 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 (#$ . 9466)]) #@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 (#$ . 10009) nil]) (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 "\n\n(fn POS)"]) #@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\202m?\205;\211\203\301`!\202\302`!b\210\303`!\211\2037\304!`U\2037\305\300\304!\"\210\210\2020)\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 (#$ . 11779) 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 (#$ . 12226) 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 "" (#$ . 12867)) #@93 Non-nil if Diff-Hl mode is enabled. Use the command `diff-hl-mode' to change this variable. (defvar diff-hl-mode nil (#$ . 13023)) (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 (#$ . 13203) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@177 Hook run after entering or leaving `diff-hl-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar diff-hl-mode-hook nil (#$ . 14600)) #@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) (#$ . 14826)) (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{\211@\317\320\"\203t\321!\204t\300!\203t\322\300!\"\203tr\211q\210\323!\211\203q\235\203`\324!>\203Z\325\"\210\326 \210\202q\324\">\204q\325\"\210\326 \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 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 (#$ . 16697)) (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 (#$ . 16893) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@181 Hook run after entering or leaving `diff-hl-dir-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar diff-hl-dir-mode-hook nil (#$ . 17658)) (byte-code "\301\302\303\304\300!\205\n\305\211%\207" [diff-hl-dir-mode-map 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 (#$ . 18020)]) (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 (#$ . 18923) (byte-code "\206\301C\207" [current-prefix-arg toggle] 1)]) #@184 Hook run after entering or leaving `global-diff-hl-mode'. No problems result if this variable is not bound. `add-hook' automatically binds it. (This is true for all hook variables.) (defvar global-diff-hl-mode-hook nil (#$ . 20435)) (byte-code "\301\302\303\304\300!\205\n\303\211%\207" [global-diff-hl-mode-map 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)