From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Fabrice Niessen" Newsgroups: gmane.emacs.bugs Subject: bug#12906: 24.2.50; Parts of the screen are completely white Date: Sat, 22 Dec 2012 22:16:15 +0100 Organization: Mission Critical IT Message-ID: <80mwx53i00.fsf@somewhere.org> References: <80k3tlh9mb.fsf@somewhere.org> <83sj894kpr.fsf@gnu.org> <80d2zan04b.fsf@somewhere.org> <808v9ymzga.fsf@somewhere.org> <83boeuzk0o.fsf@gnu.org> <8038zjjuh2.fsf@somewhere.org> <80ehin560x.fsf@somewhere.org> <80zk19i0er.fsf@somewhere.org> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" X-Trace: ger.gmane.org 1356211018 11709 80.91.229.3 (22 Dec 2012 21:16:58 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Sat, 22 Dec 2012 21:16:58 +0000 (UTC) Cc: 12906-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org To: Eli Zaretskii Original-X-From: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org-mXXj517/zsQ@public.gmane.org Sat Dec 22 22:17:13 2012 Return-path: Envelope-to: geb-bug-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1TmWRV-0000bB-20 for geb-bug-gnu-emacs@m.gmane.org; Sat, 22 Dec 2012 22:17:13 +0100 Original-Received: from localhost ([::1]:42204 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TmWRG-00079X-NF for geb-bug-gnu-emacs@m.gmane.org; Sat, 22 Dec 2012 16:16:58 -0500 Original-Received: from eggs.gnu.org ([208.118.235.92]:57994) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TmWR6-00079K-Vo for bug-gnu-emacs-mXXj517/zsQ@public.gmane.org; Sat, 22 Dec 2012 16:16:56 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1TmWQz-0005AT-4o for bug-gnu-emacs-mXXj517/zsQ@public.gmane.org; Sat, 22 Dec 2012 16:16:48 -0500 Original-Received: from debbugs.gnu.org ([140.186.70.43]:45661) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1TmWQz-0005AP-1P for bug-gnu-emacs-mXXj517/zsQ@public.gmane.org; Sat, 22 Dec 2012 16:16:41 -0500 Original-Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.72) (envelope-from ) id 1TmWRJ-0003lL-IF for bug-gnu-emacs-mXXj517/zsQ@public.gmane.org; Sat, 22 Dec 2012 16:17:01 -0500 X-Loop: help-debbugs-mXXj517/zsQ@public.gmane.org Resent-From: "Fabrice Niessen" Original-Sender: debbugs-submit-bounces-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org Resent-CC: bug-gnu-emacs-mXXj517/zsQ@public.gmane.org Resent-Date: Sat, 22 Dec 2012 21:17:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs-mXXj517/zsQ@public.gmane.org X-GNU-PR-Message: followup 12906 X-GNU-PR-Package: emacs X-GNU-PR-Keywords: Original-Received: via spool by 12906-submit-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org id=B12906.135621101114443 (code B ref 12906); Sat, 22 Dec 2012 21:17:01 +0000 Original-Received: (at 12906) by debbugs.gnu.org; 22 Dec 2012 21:16:51 +0000 Original-Received: from localhost ([127.0.0.1]:55912 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TmWR7-0003kr-IW for submit-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org; Sat, 22 Dec 2012 16:16:51 -0500 Original-Received: from 81-188-7-133.sdsl.easynet.be ([81.188.7.133]:33407 helo=mail.missioncriticalit.com) by debbugs.gnu.org with esmtp (Exim 4.72) (envelope-from ) id 1TmWQx-0003kb-Sm for 12906-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org; Sat, 22 Dec 2012 16:16:48 -0500 Original-Received: from MEDIACENTER. (ip-83-101-44-240.customer.schedom-europe.net [83.101.44.240]) by mail.missioncriticalit.com (Postfix) with ESMTPSA id 57102500C2A; Sat, 22 Dec 2012 22:16:16 +0100 (CET) X-Archive: encrypt In-Reply-To: (Eli Zaretskii's message of "Sat, 22 Dec 2012 19:10:37 +0200") User-Agent: Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.2.91 (windows-nt) X-BeenThere: debbugs-submit-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org X-Mailman-Version: 2.1.13 Precedence: list X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6.x X-Received-From: 140.186.70.43 X-BeenThere: bug-gnu-emacs-mXXj517/zsQ@public.gmane.org List-Id: "Bug reports for GNU Emacs, the Swiss army knife of text editors" List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org-mXXj517/zsQ@public.gmane.org Original-Sender: bug-gnu-emacs-bounces+geb-bug-gnu-emacs=m.gmane.org-mXXj517/zsQ@public.gmane.org Xref: news.gmane.org gmane.emacs.bugs:68924 Archived-At: --=-=-= Content-Type: text/plain Eli, Eli Zaretskii wrote: >> From: "Fabrice Niessen" >> Cc: 12906-ubl+/3LiMTaZdePnXv/OxA@public.gmane.org >> Date: Thu, 20 Dec 2012 09:38:04 +0100 >> >> ;; better scrolling in Emacs (doing a followed by a will >> ;; place the point at the same place) >> (when (locate-library "pager") >> (autoload 'pager-page-up "pager" nil t) >> (autoload 'pager-page-down "pager" nil t) >> >> (global-set-key (kbd "") 'pager-page-up) >> (global-set-key (kbd "") 'pager-page-down)) > > Where can I find this "pager" library, of the version you are using? Here, attached, the version I'm using. Best regards, Fabrice --=-=-= Content-Type: application/emacs-lisp Content-Disposition: attachment; filename=pager.el Content-Transfer-Encoding: quoted-printable ;;; pager.el --- windows-scroll commands ;;; Version 2.0 - 97-10-06 ;;; Copyright (C) 1992-1997 Mikael Sj=F6din (mic-Yo6MbLDe7v3LoDKTGw+V6w@public.gmane.org) ;;; ;;; Author: Mikael Sj=F6din -- mic-Yo6MbLDe7v3LoDKTGw+V6w@public.gmane.org ;;; ;;; This file is NOT part of GNU Emacs. ;;; You may however redistribute it and/or modify it under the terms of the= GNU ;;; General Public License as published by the Free Software Foundation; ei= ther ;;; version 2, or (at your option) any later version. ;;; ;;; pager.el is distributed in the hope that it will be useful, ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ---------------------------------------------------------------------- ;;; Description: ;;; ;;; pager.el defines alternative commands to the Emacs builtins: scroll-down ;;; and scroll-up. It also contains commands to scroll the screen one row = at ;;; the time. ;;; ;;; The Emacs builtins for scrolling are worthless! The commands in pager.= el ;;; works the way the builtins should have done from the beginning. For ;;; instance, doing a pg-up followed by a pg-down (when using pager.el) will ;;; return point to the original place.=20=20 ;;; ;;; This file has been tested under Emacs 19.34 and 20.2 but I belive it sh= ould ;;; work on most Emacs versions and Emacs derivatives. ;;; ;;; This file can be obtained from http://www.docs.uu.se/~mic/emacs.html ;;; ---------------------------------------------------------------------- ;;; Installation: ;;; ;;; o Place this file in a directory in your load-path. ;;; o Put the following in your .emacs file: ;;; (require 'pager) ;;; (global-set-key "\C-v" 'pager-page-down) ;;; (global-set-key [next] 'pager-page-down) ;;; (global-set-key "\ev" 'pager-page-up) ;;; (global-set-key [prior] 'pager-page-up) ;;; (global-set-key '[M-up] 'pager-row-up) ;;; (global-set-key '[M-kp-8] 'pager-row-up) ;;; (global-set-key '[M-down] 'pager-row-down) ;;; (global-set-key '[M-kp-2] 'pager-row-down) ;;; o Restart your Emacs.=20 ;;; o pager.el is now installed. Use the normal keys to scroll a full page= and ;;; M-up resp. M-down to scroll just one row up or down. ;;; ---------------------------------------------------------------------- ;;; Versions: ;;; 2.0 Renamed interface functions (kept old-ones as aliases) ;;; Complete reimplementation, old version where not working well in Em= acs ;;; 20. ;;; ;;; 1.0 Initial Release=20 ;;; =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ;;; Internal variables (defvar pager-temporary-goal-column 0 "Similat to temporary-goal-column byt used by the pager.el functions") ;(make-variable-buffer-local 'pager-temporary-goal-column) (defconst pager-keep-column-commands '(pager-row-down pager-row-up row-dn row-up pager-page-down pager-page-up pg-dn pg-up) "Commands which when called without any other intervening command should keep the `pager-temporary-goal-column'") ;;; =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D ;;; Commands ;;; pager 1.0 compatibility (defalias 'pg-dn 'pager-page-down) (defalias 'pg-up 'pager-page-up) (defalias 'row-dn 'pager-row-down) (defalias 'row-up 'pager-row-up) ;; ---------------------------------------------------------------------- (defun pager-page-down () "Like scroll-up, but moves a fixed amount of lines (fixed relative the `window-height') so that pager-page-up moves back to the same line." (interactive) (if (not (pos-visible-in-window-p (point-max))) (pager-scroll-screen (- (1- (window-height)) next-screen-context-lines)))) =20=20=20=20 (defun pager-page-up () "Like scroll-down, but moves a fixed amount of lines (fixed relative the `window-height') so that pager-page-down moves back to the same line." (interactive) (if (not (pos-visible-in-window-p (point-min))) (pager-scroll-screen (- next-screen-context-lines=20 (1- (window-height)))))) ;; ------------------------------ (defun pager-scroll-screen (lines) "Scroll screen LINES, but keep the cursors position on screen." (if (not (memq last-command pager-keep-column-commands)) (setq pager-temporary-goal-column (current-column))) (save-excursion (goto-char (window-start)) (forward-line lines) (set-window-start (selected-window) (point))) (forward-line lines) (move-to-column pager-temporary-goal-column)) ;; ---------------------------------------------------------------------- (defun pager-row-up () "Move point to previous line while scrolling screen down one line. The effect is that the cursor stays in the same position on the screen." (interactive) (if (not (memq last-command pager-keep-column-commands)) (setq pager-temporary-goal-column (current-column))) (if (not (pos-visible-in-window-p (point-min))) (scroll-down 1)) (forward-line -1) (move-to-column pager-temporary-goal-column) ) (defun pager-row-down () "Move point to next line while scrolling screen up one line. The effect is that the cursor stays in the same position on the screen." (interactive) (if (not (memq last-command pager-keep-column-commands)) (setq pager-temporary-goal-column (current-column))) (if (not (pos-visible-in-window-p (point-max))) (scroll-up 1)) (if (<=3D (point) (point-max)) (forward-line 1)) (move-to-column pager-temporary-goal-column) ) ;; ---------------------------------------------------------------------- (provide 'pager) --=-=-=--