;ELC ;;; Compiled ;;; in Emacs version 29.3 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require scroll-lock evil-collection] 2) (defconst evil-collection-scroll-lock-maps '(scroll-lock-mode-map)) (eval-after-load 'eldoc #[0 "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-collection-scroll-lock-next-line] 2])#@68 Scroll down COUNT lines keeping point fixed. (fn &optional COUNT) (defalias 'evil-collection-scroll-lock-next-line #[256 "\301\302\206\303!)\207" [line-move-visual nil scroll-lock-next-line 1] 3 (#$ . 361) (byte-code "\205\301!C\207" [current-prefix-arg prefix-numeric-value] 2)]) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\"\207" [evil-set-command-properties evil-collection-scroll-lock-next-line :repeat motion :type line :keep-visual t eval-after-load eldoc #[0 "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-collection-scroll-lock-previous-line] 2]] 8)#@66 Scroll up COUNT lines keeping point fixed. (fn &optional COUNT) (defalias 'evil-collection-scroll-lock-previous-line #[256 "\301\302\206\303!)\207" [line-move-visual nil scroll-lock-previous-line 1] 3 (#$ . 968) (byte-code "\205\301!C\207" [current-prefix-arg prefix-numeric-value] 2)]) (byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\"\207" [evil-set-command-properties evil-collection-scroll-lock-previous-line :repeat motion :type line :keep-visual t eval-after-load eldoc #[0 "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-collection-scroll-lock-forward-paragraph] 2]] 8)#@73 Scroll down COUNT paragraphs keeping point fixed. (fn &optional COUNT) (defalias 'evil-collection-scroll-lock-forward-paragraph #[256 "\300!\210\301!\210m?\205\302y\207" [evil-signal-at-bob-or-eob scroll-lock-forward-paragraph nil] 3 (#$ . 1589) (byte-code "\205\301!C\207" [current-prefix-arg prefix-numeric-value] 2)]) (byte-code "\300\301\302\303\304\305\306\307\310\305& \210\311\312\313\"\207" [evil-set-command-properties evil-collection-scroll-lock-forward-paragraph :repeat motion :jump t :type exclusive :keep-visual eval-after-load eldoc #[0 "\300\301!\205 \301\302!\207" [fboundp eldoc-add-command evil-collection-scroll-lock-backward-paragraph] 2]] 10)#@71 Scroll up COUNT paragraphs keeping point fixed. (fn &optional COUNT) (defalias 'evil-collection-scroll-lock-backward-paragraph #[256 "\300\206\301[!\210m\204\302y\210\303!\210o?\205\304y\207" [evil-signal-at-bob-or-eob 1 nil scroll-lock-backward-paragraph -1] 3 (#$ . 2269) (byte-code "\205\301!C\207" [current-prefix-arg prefix-numeric-value] 2)]) (evil-set-command-properties 'evil-collection-scroll-lock-backward-paragraph :repeat 'motion :jump t :type 'exclusive :keep-visual t)#@43 Set up `evil' bindings for `scroll-lock'. (defalias 'evil-collection-scroll-lock-setup #[0 "\300\301\302\303\304\305\306\307\310\311\312&\n\210\313\310\314\315#\210\313\312\314\315#\210\316\317\320\"\207" [evil-collection-define-key normal scroll-lock-mode-map [remap evil-next-line] evil-collection-scroll-lock-next-line [remap evil-previous-line] evil-collection-scroll-lock-previous-line [remap evil-forward-paragraph] evil-collection-scroll-lock-forward-paragraph [remap evil-backward-paragraph] evil-collection-scroll-lock-backward-paragraph evil-add-command-properties :jump t add-hook scroll-lock-mode-hook evil-normalize-keymaps] 11 (#$ . 2770)]) (provide 'evil-collection-scroll-lock)