/[emacs]/emacs/lisp/view.el
ViewVC logotype

Diff of /emacs/lisp/view.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.71.2.2 by miles, Mon Jun 28 07:28:47 2004 UTC revision 1.71.2.3 by miles, Fri Oct 22 10:13:29 2004 UTC
# Line 117  functions that enable or disable view mo Line 117  functions that enable or disable view mo
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)
# Line 453  Entry to view-mode runs the normal hook Line 453  Entry to view-mode runs the normal hook
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)
# Line 675  previous state and go to previous buffer Line 675  previous state and go to previous buffer
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)
# Line 803  Exit if end of text is visible and `view Line 804  Exit if end of text is visible and `view
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\".

Legend:
Removed from v.1.71.2.2  
changed lines
  Added in v.1.71.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26