[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Unable to scroll from y-or-n-p prompt
From: |
Thierry Volpiatto |
Subject: |
Unable to scroll from y-or-n-p prompt |
Date: |
Tue, 26 Jun 2012 09:17:21 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/24.1 (gnu/linux) |
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
- Unable to scroll from y-or-n-p prompt,
Thierry Volpiatto <=