unofficial mirror of bug-gnu-emacs@gnu.org 
 help / color / mirror / code / Atom feed
From: Dan Jacobson <jidanni@jidanni.org>
Subject: Re: View-scroll-page-forward baby steps not grown out of
Date: Thu, 30 Sep 2004 05:03:26 +0800	[thread overview]
Message-ID: <87vfdwkctd.fsf@jidanni.org> (raw)

[-- Attachment #1: Type: text/plain, Size: 153 bytes --]

RMS> Does this patch fix it?
Probably, but on Debian we don't have as new an emacs to patch and
test against.  I'll post it so the pros can examine it.


[-- Attachment #2: Type: message/rfc822, Size: 3756 bytes --]


***************
*** 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\".
MIME-Version: 1.0


[-- Attachment #3: Type: text/plain, Size: 149 bytes --]

_______________________________________________
Bug-gnu-emacs mailing list
Bug-gnu-emacs@gnu.org
http://lists.gnu.org/mailman/listinfo/bug-gnu-emacs

             reply	other threads:[~2004-09-29 21:03 UTC|newest]

Thread overview: 3+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2004-09-29 21:03 Dan Jacobson [this message]
     [not found] <mailman.123.1096398222.2017.bug-gnu-emacs@gnu.org>
2004-09-28 21:39 ` View-scroll-page-forward baby steps not grown out of Miles Bader
  -- strict thread matches above, loose matches on Subject: below --
2004-09-27 20:28 Dan Jacobson

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

  List information: https://www.gnu.org/software/emacs/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=87vfdwkctd.fsf@jidanni.org \
    --to=jidanni@jidanni.org \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body. 
Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).