From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Chong Yidong Newsgroups: gmane.emacs.devel Subject: Re: 23.0.92; View-scroll-page-forward/backward does wrong in text mode after text-scale-increase/decrease Date: Tue, 26 May 2009 10:47:21 -0400 Message-ID: <87d49v53ba.fsf@cyd.mit.edu> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: ger.gmane.org 1243349247 913 80.91.229.12 (26 May 2009 14:47:27 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Tue, 26 May 2009 14:47:27 +0000 (UTC) Cc: 3361@emacsbugs.donarmstrong.com, duanpanda@gmail.com To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue May 26 16:47:20 2009 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.50) id 1M8xvx-000382-Cw for ged-emacs-devel@m.gmane.org; Tue, 26 May 2009 16:47:19 +0200 Original-Received: from localhost ([127.0.0.1]:59452 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1M8xvw-0004VE-Cb for ged-emacs-devel@m.gmane.org; Tue, 26 May 2009 10:47:16 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1M8xvp-0004Ra-FV for emacs-devel@gnu.org; Tue, 26 May 2009 10:47:09 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1M8xvl-0004Ol-Ud for emacs-devel@gnu.org; Tue, 26 May 2009 10:47:09 -0400 Original-Received: from [199.232.76.173] (port=48203 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1M8xvl-0004Og-Of for emacs-devel@gnu.org; Tue, 26 May 2009 10:47:05 -0400 Original-Received: from mx20.gnu.org ([199.232.41.8]:31233) by monty-python.gnu.org with esmtps (TLS-1.0:RSA_AES_256_CBC_SHA1:32) (Exim 4.60) (envelope-from ) id 1M8xvk-0003ha-Ej for emacs-devel@gnu.org; Tue, 26 May 2009 10:47:05 -0400 Original-Received: from cyd.mit.edu ([18.115.2.24]) by mx20.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1M8xvi-0000eW-5B for emacs-devel@gnu.org; Tue, 26 May 2009 10:47:02 -0400 Original-Received: by cyd.mit.edu (Postfix, from userid 1000) id 0524757E25C; Tue, 26 May 2009 10:47:22 -0400 (EDT) X-Detected-Operating-System: by mx20.gnu.org: Genre and OS details not recognized. X-detected-operating-system: by monty-python.gnu.org: Genre and OS details not recognized. X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:111117 Archived-At: > Open a normal text file with the text mode, do > (view-mode) > (text-scale-increase) or (text-scale-decrease) > (View-scroll-page-forward) or (View-scroll-page-backward) > The View-scroll-page-* command does wrong. It cannot scroll "page > size" as expected like it does when the text-scale minor mode is off. View-mode, written in the dawn of time, assumes that all lines have the default height. The following patch changes it so that scroll-up/scroll-down are passed nil arguments where possible; then Emacs will automatically determine how to scroll by one page, taking variable-height lines and text-scaling into account. It's not good to make this kind of change at this stage in the release, but this bug would be pretty annoying if you happen to come across it, and that's much more likely now we've introduced the text-scaling commands. Could someone on emacs-devel help review the patch? *** trunk/lisp/view.el.~1.102.~ 2009-05-26 10:34:04.000000000 -0400 --- trunk/lisp/view.el 2009-05-26 10:39:03.000000000 -0400 *************** *** 740,747 **** ;;; Some help routines. (defun view-window-size () ! ;; Window height excluding mode line. ! (1- (window-height))) ;; (defun view-last-command (&optional who what) ;; (setq view-last-command-entry this-command) --- 740,754 ---- ;;; Some help routines. (defun view-window-size () ! ;; Return the number of lines in the current window, excluding the ! ;; mode line. Using `window-line-height' accounts for ! ;; variable-height fonts. ! (let ((h (window-line-height -1))) ! (if h ! (1+ (nth 1 h)) ! ;; This should not happen, but if `window-line-height' returns ! ;; nil, fall back on `window-height'. ! (1- (window-height))))) ;; (defun view-last-command (&optional who what) ;; (setq view-last-command-entry this-command) *************** *** 761,771 **** (recenter '(1))) (defun view-page-size-default (lines) ! ;; Get page size. ! (let ((default (- (view-window-size) next-screen-context-lines))) ! (if (or (null lines) (zerop (setq lines (prefix-numeric-value lines)))) ! default ! (min (abs lines) default)))) (defun view-set-half-page-size-default (lines) ;; Get and maybe set half page size. --- 768,780 ---- (recenter '(1))) (defun view-page-size-default (lines) ! ;; Return nil if LINES is nil, 0, or larger than ! ;; `view-window-size'. Otherwise, return LINES. ! (and lines ! (not (zerop (setq lines (prefix-numeric-value lines)))) ! (<= (abs lines) ! (abs (- (view-window-size) next-screen-context-lines))) ! lines)) (defun view-set-half-page-size-default (lines) ;; Get and maybe set half page size. *************** *** 827,854 **** ;; This function does the job for all the scrolling commands. ;; Scroll forward LINES lines. If BACKWARD is true scroll backwards. ;; If LINES is negative scroll in the other direction. If LINES is 0 or nil, ! ;; scroll DEFAULT lines. If MAXDEFAULT is true then scroll no more than a ! ;; window full. (if (or (null lines) (zerop (setq lines (prefix-numeric-value lines)))) (setq lines default)) ! (when (< lines 0) ! (setq backward (not backward)) (setq lines (- lines))) ! (setq default (view-page-size-default nil)) ; Max scrolled at a time. ! (if maxdefault (setq lines (min lines default))) ! (cond ! (backward (scroll-down lines)) ! ((view-really-at-end) ! (if view-scroll-auto-exit (View-quit) ! (ding) ! (view-end-message))) ! (t (while (> lines default) ! (scroll-up default) ! (setq lines (- lines default)) ! (if (view-really-at-end) (setq lines 0))) ! (scroll-up lines) ! (if (view-really-at-end) (view-end-message)) ! (move-to-window-line -1) ! (beginning-of-line)))) (defun view-really-at-end () ;; Return true if buffer end visible. Maybe revert buffer and test. --- 836,857 ---- ;; This function does the job for all the scrolling commands. ;; Scroll forward LINES lines. If BACKWARD is true scroll backwards. ;; If LINES is negative scroll in the other direction. If LINES is 0 or nil, ! ;; scroll DEFAULT lines (if DEFAULT is nil, scroll by one page). If ! ;; MAXDEFAULT is true then scroll no more than a window full. (if (or (null lines) (zerop (setq lines (prefix-numeric-value lines)))) (setq lines default)) ! (when (and lines (< lines 0)) ! (setq backward (not backward) lines (- lines))) ! (when (and maxdefault lines (> lines (view-window-size))) ! (setq lines nil)) ! (cond (backward (scroll-down lines)) ! ((view-really-at-end) ! (if view-scroll-auto-exit ! (View-quit) ! (ding) ! (view-end-message))) ! (t (scroll-up lines) ! (if (view-really-at-end) (view-end-message))))) (defun view-really-at-end () ;; Return true if buffer end visible. Maybe revert buffer and test.