From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Thierry Volpiatto Newsgroups: gmane.emacs.devel Subject: Unable to scroll from y-or-n-p prompt Date: Tue, 26 Jun 2012 09:17:21 +0200 Message-ID: <87txxyiltq.fsf@gmail.com> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: dough.gmane.org 1340695070 17985 80.91.229.3 (26 Jun 2012 07:17:50 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Tue, 26 Jun 2012 07:17:50 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Tue Jun 26 09:17:48 2012 Return-path: Envelope-to: ged-emacs-devel@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 1SjQ1x-0002Pr-NJ for ged-emacs-devel@m.gmane.org; Tue, 26 Jun 2012 09:17:45 +0200 Original-Received: from localhost ([::1]:46220 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SjQ1x-0007sH-KL for ged-emacs-devel@m.gmane.org; Tue, 26 Jun 2012 03:17:45 -0400 Original-Received: from eggs.gnu.org ([208.118.235.92]:46594) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SjQ1s-0007qJ-8Y for emacs-devel@gnu.org; Tue, 26 Jun 2012 03:17:44 -0400 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1SjQ1k-00023m-C2 for emacs-devel@gnu.org; Tue, 26 Jun 2012 03:17:39 -0400 Original-Received: from plane.gmane.org ([80.91.229.3]:51778) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1SjQ1k-00023R-54 for emacs-devel@gnu.org; Tue, 26 Jun 2012 03:17:32 -0400 Original-Received: from list by plane.gmane.org with local (Exim 4.69) (envelope-from ) id 1SjQ1h-00022P-BY for emacs-devel@gnu.org; Tue, 26 Jun 2012 09:17:29 +0200 Original-Received: from lbe83-2-78-243-104-167.fbx.proxad.net ([78.243.104.167]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 26 Jun 2012 09:17:29 +0200 Original-Received: from thierry.volpiatto by lbe83-2-78-243-104-167.fbx.proxad.net with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Tue, 26 Jun 2012 09:17:29 +0200 X-Injected-Via-Gmane: http://gmane.org/ Original-Lines: 38 Original-X-Complaints-To: usenet@dough.gmane.org X-Gmane-NNTP-Posting-Host: lbe83-2-78-243-104-167.fbx.proxad.net User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.1 (gnu/linux) Cancel-Lock: sha1:J/Ns4+6uHy0gBFWGrWTwYeMyjfw= X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 80.91.229.3 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:151168 Archived-At: Hi, I think I have reported this in the past, and it seem not fixed. This patch fix it, please review. --8<---------------cut here---------------start------------->8--- --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2339,7 +2339,8 @@ (let ((cursor-in-echo-area t)) (when minibuffer-auto-raise (raise-frame (window-frame (minibuffer-window)))) - (read-key (propertize (if (eq answer 'recenter) + (read-key (propertize (if (or (eq answer 'recenter) + (eq answer 'scroll)) prompt (concat "Please answer y or n. " prompt)) @@ -2349,6 +2350,12 @@ ((memq answer '(skip act)) nil) ((eq answer 'recenter) (recenter) t) ((memq answer '(exit-prefix quit)) (signal 'quit nil) t) + ((eq key ?\C-v) + (setq answer 'scroll) + (condition-case nil (scroll-up 1) (error nil)) t) + ((eq key ?\M-v) + (setq answer 'scroll) + (condition-case nil (scroll-down 1) (error nil)) t) (t t))) (ding) (discard-input)))) --8<---------------cut here---------------end--------------->8--- Thanks. -- Thierry Get my Gnupg key: gpg --keyserver pgp.mit.edu --recv-keys 59F29997