-
Notifications
You must be signed in to change notification settings - Fork 0
/
pager.elc
37 lines (33 loc) · 2.82 KB
/
pager.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
;ELC
;;; Compiled by [email protected] on Fri Oct 1 12:33:20 2010
;;; from file /Users/oceanhug/.emacs.d/pager.el
;;; in Emacs version 22.3.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19.29")))
(error "`pager.el' was compiled for Emacs 19.29 or later"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@69 Similat to temporary-goal-column byt used by the pager.el functions
(defvar pager-temporary-goal-column 0 (#$ . 587))
#@112 Commands which when called without any other intervening command should
keep the `pager-temporary-goal-column'
(defconst pager-keep-column-commands '(pager-row-down pager-row-up row-dn row-up pager-page-down pager-page-up pg-dn pg-up) (#$ . 712))
(byte-code "\300\301\302\"\210\300\303\304\"\210\300\305\306\"\210\300\307\310\"\207" [defalias pg-dn pager-page-down pg-up pager-page-up row-dn pager-row-down row-up pager-row-up] 3)
#@139 Like scroll-up, but moves a fixed amount of lines (fixed relative the
`window-height') so that pager-page-up moves back to the same line.
(defalias 'pager-page-down #[nil "\301d!?\205 \302\303 SZ!\207" [next-screen-context-lines pos-visible-in-window-p pager-scroll-screen window-height] 3 (#$ . 1150) nil])
#@143 Like scroll-down, but moves a fixed amount of lines (fixed relative the
`window-height') so that pager-page-down moves back to the same line.
(defalias 'pager-page-up #[nil "\301e!?\205 \302\303 SZ!\207" [next-screen-context-lines pos-visible-in-window-p pager-scroll-screen window-height] 3 (#$ . 1467) nil])
#@63 Scroll screen LINES, but keep the cursors position on screen.
(defalias 'pager-scroll-screen #[(lines) " >\204 i\212\304 b\210 y\210\305\306 `\"\210) y\210\307\n!\207" [last-command pager-keep-column-commands pager-temporary-goal-column lines window-start set-window-start selected-window move-to-column] 3 (#$ . 1785)])
#@139 Move point to previous line while scrolling screen down one line.
The effect is that the cursor stays in the same position on the screen.
(defalias 'pager-row-up #[nil " >\204 i\303e!\204 \304\305!\210\306y\210\307\n!\207" [last-command pager-keep-column-commands pager-temporary-goal-column pos-visible-in-window-p scroll-down 1 -1 move-to-column] 2 (#$ . 2116) nil])
#@133 Move point to next line while scrolling screen up one line.
The effect is that the cursor stays in the same position on the screen.
(defalias 'pager-row-down #[nil " >\204 i\303d!\204 \304\305!\210`dX\203 \305y\210\306\n!\207" [last-command pager-keep-column-commands pager-temporary-goal-column pos-visible-in-window-p scroll-up 1 move-to-column] 2 (#$ . 2496) nil])
(provide 'pager)