;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\300\302\303\304#\207" [require evil-collection ediff nil t] 4) (defconst evil-collection-ediff-maps '(ediff-mode-map)) (defvar evil-collection-ediff-initial-state-backup (evil-initial-state 'ediff-mode)) (defvar evil-collection-ediff-long-help-message-compare2-backup ediff-long-help-message-compare2) (defvar evil-collection-ediff-long-help-message-compare3-backup ediff-long-help-message-compare3) (defvar evil-collection-ediff-long-help-message-narrow2-backup ediff-long-help-message-narrow2) (defvar evil-collection-ediff-long-help-message-word-backup ediff-long-help-message-word-mode) (defvar evil-collection-ediff-long-help-message-merge-backup ediff-long-help-message-merge) (defvar evil-collection-ediff-long-help-message-head-backup ediff-long-help-message-head) (defvar evil-collection-ediff-long-help-message-tail-backup ediff-long-help-message-tail) (defvar evil-collection-ediff-help-changed nil)#@59 Adjust long help messages to reflect evil-ediff bindings. (defalias 'evil-collection-ediff-adjust-help #[0 "\204.\301\211\203-\211@\302\211\203%\211@\303@AJ#L\210A\266\202\202\f\210A\266\202\202\210\304\211\207" [evil-collection-ediff-help-changed (ediff-long-help-message-compare2 ediff-long-help-message-compare3 ediff-long-help-message-narrow2 ediff-long-help-message-word-mode ediff-long-help-message-merge ediff-long-help-message-head ediff-long-help-message-tail) (("p,DEL -previous diff " . "k,N,p -previous diff ") ("n,SPC -next diff " . " j,n -next diff ") (" j -jump to diff " . " d -jump to diff ") (" h -highlighting " . " H -highlighting ") (" v/V -scroll up/dn " . "C-u/d -scroll up/dn ") (" -scroll lt/rt " . "zh/zl -scroll lt/rt ") (" z/q -suspend/quit" . "C-z/q -suspend/quit")) replace-regexp-in-string t] 9 (#$ . 1020)])#@34 Scroll left. (fn &optional ARG) (defalias 'evil-collection-ediff-scroll-left #[256 "\301\302!)\207" [last-command-event 62 ediff-scroll-horizontally] 3 (#$ . 1916) "P"])#@35 Scroll right. (fn &optional ARG) (defalias 'evil-collection-ediff-scroll-right #[256 "\301\302!)\207" [last-command-event 60 ediff-scroll-horizontally] 3 (#$ . 2094) "P"])#@50 Scroll up by half of a page. (fn &optional ARG) (defalias 'evil-collection-ediff-scroll-up #[256 "\301\302!)\207" [last-command-event 86 ediff-scroll-vertically] 3 (#$ . 2274) "P"])#@52 Scroll down by half of a page. (fn &optional ARG) (defalias 'evil-collection-ediff-scroll-down #[256 "\301\302!)\207" [last-command-event 118 ediff-scroll-vertically] 3 (#$ . 2464) "P"])#@24 Scroll down by a line. (defalias 'evil-collection-ediff-scroll-down-1 #[0 "\301\302\303!)\207" [last-command-event 118 ediff-scroll-vertically 1] 2 (#$ . 2659) nil])#@24 Scroll down by a line. (defalias 'evil-collection-ediff-scroll-up-1 #[0 "\301\302\303!)\207" [last-command-event 86 ediff-scroll-vertically 1] 2 (#$ . 2831) nil])#@27 Jump to first difference. (defalias 'evil-collection-ediff-first-difference #[0 "\300\301!\207" [ediff-jump-to-difference 1] 2 (#$ . 3000) nil])#@26 Jump to last difference. (defalias 'evil-collection-ediff-last-difference #[0 "\301!\207" [ediff-number-of-differences ediff-jump-to-difference] 2 (#$ . 3150) nil])#@49 A list of bindings changed/added in evil-ediff. (defvar evil-collection-ediff-bindings '(("d" . ediff-jump-to-difference) ("H" . ediff-toggle-hilit) ("" . evil-collection-ediff-scroll-down-1) ("" . evil-collection-ediff-scroll-up-1) ("j" . ediff-next-difference) ("k" . ediff-previous-difference) ("N" . ediff-previous-difference) ("gg" . evil-collection-ediff-first-difference) ("G" . evil-collection-ediff-last-difference) ("" . evil-collection-ediff-scroll-down) ("" . evil-collection-ediff-scroll-up) ("" . ediff-suspend) ("z") ("zl" . evil-collection-ediff-scroll-right) ("zh" . evil-collection-ediff-scroll-left)) (#$ . 3321))#@48 Place evil-ediff bindings in `ediff-mode-map'. (defalias 'evil-collection-ediff-startup-hook #[0 "\304\305\"\210 \211\203\211@\306@A#\210A\266\202\202\210\n\2042 \307=\2042\306\310\311#\210\306\312\313#\210\314 \210\315\207" [ediff-mode-map evil-collection-ediff-bindings ediff-3way-comparison-job ediff-split-window-function evil-make-overriding-map normal define-key split-window-vertically "l" ediff-copy-A-to-B "h" ediff-copy-B-to-A evil-normalize-keymaps nil] 6 (#$ . 3964)])#@24 Initialize evil-ediff. (defalias 'evil-collection-ediff-setup #[0 "\300\301\302\"\210\303\304\305\"\210\306 \207" [evil-set-initial-state ediff-mode normal add-hook ediff-keymap-setup-hook evil-collection-ediff-startup-hook evil-collection-ediff-adjust-help] 3 (#$ . 4463) nil])#@36 Revert changes made by evil-ediff. (defalias 'evil-collection-ediff-revert #[0 "\302\303\"\210 \204!\304\211\203 \211@\211@\211AJL\266A\266\202\202\n\210\305\306\307\310\"\207" [evil-collection-ediff-initial-state-backup evil-collection-ediff-help-changed evil-set-initial-state ediff-mode ((ediff-long-help-message-compare2 . ediff-long-help-message-compare2-backup) (ediff-long-help-message-compare3 . ediff-long-help-message-compare3-backup) (ediff-long-help-message-narrow2 . ediff-long-help-message-narrow2-backup) (ediff-long-help-message-word-mode . ediff-long-help-message-word-mode-backup) (ediff-long-help-message-merge . ediff-long-help-message-merge-backup) (ediff-long-help-message-head . ediff-long-help-message-head-backup) (ediff-long-help-message-tail . ediff-long-help-message-tail-backup)) nil remove-hook ediff-keymap-setup-hook evil-collection-ediff-startup-hook] 5 (#$ . 4747) nil]) (provide 'evil-collection-ediff)