From: Thierry Volpiatto <thierry.volpiatto@gmail.com>
To: emacs-devel@gnu.org
Subject: Unable to scroll from y-or-n-p prompt
Date: Tue, 26 Jun 2012 09:17:21 +0200 [thread overview]
Message-ID: <87txxyiltq.fsf@gmail.com> (raw)
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
next reply other threads:[~2012-06-26 7:17 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-06-26 7:17 Thierry Volpiatto [this message]
2012-06-26 9:20 ` Unable to scroll from y-or-n-p prompt John Wiegley
2012-06-26 14:54 ` Drew Adams
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87txxyiltq.fsf@gmail.com \
--to=thierry.volpiatto@gmail.com \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.