[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/view.el
From: |
Richard M . Stallman |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/view.el |
Date: |
Sat, 16 Oct 2004 12:15:47 -0400 |
Index: emacs/lisp/view.el
diff -c emacs/lisp/view.el:1.75 emacs/lisp/view.el:1.76
*** emacs/lisp/view.el:1.75 Tue Apr 20 20:57:10 2004
--- emacs/lisp/view.el Sat Oct 16 15:24:34 2004
***************
*** 117,128 ****
(defvar view-page-size nil
"Default number of lines to scroll by View page commands.
! If nil then the local value of this is initially set to window size.")
(make-variable-buffer-local 'view-page-size)
(defvar view-half-page-size nil
"Default number of lines to scroll by View half page commands.
! If nil then the local value of this is initially set to half window size.")
(make-variable-buffer-local 'view-half-page-size)
(defvar view-last-regexp nil)
--- 117,128 ----
(defvar view-page-size nil
"Default number of lines to scroll by View page commands.
! If nil that means use the window size.")
(make-variable-buffer-local 'view-page-size)
(defvar view-half-page-size nil
"Default number of lines to scroll by View half page commands.
! If nil that means use half the window size.")
(make-variable-buffer-local 'view-half-page-size)
(defvar view-last-regexp nil)
***************
*** 453,460 ****
;; This is to guarantee that the buffer-read-only variable is restored.
(add-hook 'change-major-mode-hook 'view-mode-disable nil t)
(setq view-mode t
! view-page-size (view-page-size-default view-page-size)
! view-half-page-size (or view-half-page-size (/ (view-window-size) 2))
view-old-buffer-read-only buffer-read-only
buffer-read-only t
view-old-Helper-return-blurb (and (boundp 'Helper-return-blurb)
--- 453,460 ----
;; This is to guarantee that the buffer-read-only variable is restored.
(add-hook 'change-major-mode-hook 'view-mode-disable nil t)
(setq view-mode t
! view-page-size nil
! view-half-page-size nil
view-old-buffer-read-only buffer-read-only
buffer-read-only t
view-old-Helper-return-blurb (and (boundp 'Helper-return-blurb)
***************
*** 675,681 ****
(defun view-set-half-page-size-default (lines)
;; Get and maybe set half page size.
! (if (not lines) view-half-page-size
(setq view-half-page-size
(if (zerop (setq lines (prefix-numeric-value lines)))
(/ (view-window-size) 2)
--- 675,682 ----
(defun view-set-half-page-size-default (lines)
;; Get and maybe set half page size.
! (if (not lines) (or view-half-page-size
! (/ (view-window-size) 2))
(setq view-half-page-size
(if (zerop (setq lines (prefix-numeric-value lines)))
(/ (view-window-size) 2)
***************
*** 803,815 ****
\\[View-scroll-page-backward-set-page-size].
If LINES is more than a window-full, only the last window-full is shown."
(interactive "P")
! (view-scroll-lines lines nil view-page-size nil))
(defun View-scroll-page-backward (&optional lines)
"Scroll \"page size\" or prefix LINES lines backward in View mode.
See also `View-scroll-page-forward'."
(interactive "P")
! (view-scroll-lines lines t view-page-size nil))
(defun View-scroll-page-forward-set-page-size (&optional lines)
"Scroll forward LINES lines in View mode, setting the \"page size\".
--- 804,816 ----
\\[View-scroll-page-backward-set-page-size].
If LINES is more than a window-full, only the last window-full is shown."
(interactive "P")
! (view-scroll-lines lines nil (view-page-size-default view-page-size) nil))
(defun View-scroll-page-backward (&optional lines)
"Scroll \"page size\" or prefix LINES lines backward in View mode.
See also `View-scroll-page-forward'."
(interactive "P")
! (view-scroll-lines lines t (view-page-size-default view-page-size) nil))
(defun View-scroll-page-forward-set-page-size (&optional lines)
"Scroll forward LINES lines in View mode, setting the \"page size\".
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/view.el,
Richard M . Stallman <=