GNU bug report logs - #8948
24.0.50; y-or-n-p doesn't support scroll-o-w like yes-or-no-p

Previous Next

Full log

Message #22 received at 8948 <at> debbugs.gnu.org (full text, mbox):

From: Thierry Volpiatto <thierry.volpiatto <at> gmail.com>
To: 8948 <at> debbugs.gnu.org
Subject: Unable to scroll from y-or-n-p prompt
Date: Tue, 26 Jun 2012 09:17:21 +0200

[ Resent from
  http://lists.gnu.org/archive/html/emacs-devel/2012-06/msg00463.html ]


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 

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.