117 |
|
|
118 |
(defvar view-page-size nil |
(defvar view-page-size nil |
119 |
"Default number of lines to scroll by View page commands. |
"Default number of lines to scroll by View page commands. |
120 |
If nil then the local value of this is initially set to window size.") |
If nil that means use the window size.") |
121 |
(make-variable-buffer-local 'view-page-size) |
(make-variable-buffer-local 'view-page-size) |
122 |
|
|
123 |
(defvar view-half-page-size nil |
(defvar view-half-page-size nil |
124 |
"Default number of lines to scroll by View half page commands. |
"Default number of lines to scroll by View half page commands. |
125 |
If nil then the local value of this is initially set to half window size.") |
If nil that means use half the window size.") |
126 |
(make-variable-buffer-local 'view-half-page-size) |
(make-variable-buffer-local 'view-half-page-size) |
127 |
|
|
128 |
(defvar view-last-regexp nil) |
(defvar view-last-regexp nil) |
453 |
;; This is to guarantee that the buffer-read-only variable is restored. |
;; This is to guarantee that the buffer-read-only variable is restored. |
454 |
(add-hook 'change-major-mode-hook 'view-mode-disable nil t) |
(add-hook 'change-major-mode-hook 'view-mode-disable nil t) |
455 |
(setq view-mode t |
(setq view-mode t |
456 |
view-page-size (view-page-size-default view-page-size) |
view-page-size nil |
457 |
view-half-page-size (or view-half-page-size (/ (view-window-size) 2)) |
view-half-page-size nil |
458 |
view-old-buffer-read-only buffer-read-only |
view-old-buffer-read-only buffer-read-only |
459 |
buffer-read-only t |
buffer-read-only t |
460 |
view-old-Helper-return-blurb (and (boundp 'Helper-return-blurb) |
view-old-Helper-return-blurb (and (boundp 'Helper-return-blurb) |
675 |
|
|
676 |
(defun view-set-half-page-size-default (lines) |
(defun view-set-half-page-size-default (lines) |
677 |
;; Get and maybe set half page size. |
;; Get and maybe set half page size. |
678 |
(if (not lines) view-half-page-size |
(if (not lines) (or view-half-page-size |
679 |
|
(/ (view-window-size) 2)) |
680 |
(setq view-half-page-size |
(setq view-half-page-size |
681 |
(if (zerop (setq lines (prefix-numeric-value lines))) |
(if (zerop (setq lines (prefix-numeric-value lines))) |
682 |
(/ (view-window-size) 2) |
(/ (view-window-size) 2) |
804 |
\\[View-scroll-page-backward-set-page-size]. |
\\[View-scroll-page-backward-set-page-size]. |
805 |
If LINES is more than a window-full, only the last window-full is shown." |
If LINES is more than a window-full, only the last window-full is shown." |
806 |
(interactive "P") |
(interactive "P") |
807 |
(view-scroll-lines lines nil view-page-size nil)) |
(view-scroll-lines lines nil (view-page-size-default view-page-size) nil)) |
808 |
|
|
809 |
(defun View-scroll-page-backward (&optional lines) |
(defun View-scroll-page-backward (&optional lines) |
810 |
"Scroll \"page size\" or prefix LINES lines backward in View mode. |
"Scroll \"page size\" or prefix LINES lines backward in View mode. |
811 |
See also `View-scroll-page-forward'." |
See also `View-scroll-page-forward'." |
812 |
(interactive "P") |
(interactive "P") |
813 |
(view-scroll-lines lines t view-page-size nil)) |
(view-scroll-lines lines t (view-page-size-default view-page-size) nil)) |
814 |
|
|
815 |
(defun View-scroll-page-forward-set-page-size (&optional lines) |
(defun View-scroll-page-forward-set-page-size (&optional lines) |
816 |
"Scroll forward LINES lines in View mode, setting the \"page size\". |
"Scroll forward LINES lines in View mode, setting the \"page size\". |