[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#20687: 25.0.50; `perform-replace' should invoke a key that you have
From: |
Juri Linkov |
Subject: |
bug#20687: 25.0.50; `perform-replace' should invoke a key that you have bound in `query-replace-map' |
Date: |
Wed, 03 Jun 2015 01:01:39 +0300 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/25.0.50 (x86_64-pc-linux-gnu) |
> The point is that a user can do that (that's what keymaps and
> key bindings are for), but currently `perform-replace' refuses to
> recognize such a key and its command.
I see there are already commands (as opposed to special internal
values such as `act' and `skip') in query-replace-map:
(define-key map "\C-v" 'scroll-up)
(define-key map "\M-v" 'scroll-down)
(define-key map [next] 'scroll-up)
(define-key map [prior] 'scroll-down)
(define-key map [?\C-\M-v] 'scroll-other-window)
(define-key map [M-next] 'scroll-other-window)
(define-key map [?\C-\M-\S-v] 'scroll-other-window-down)
(define-key map [M-prior] 'scroll-other-window-down)
These bindings look like real commands intended to be called
interactively, so after enabling this feature in query-replace
they will start doing their job which is good.
The only suggestion I have is to check whether the binding
is a command before trying to call it, i.e.:
diff --git a/lisp/replace.el b/lisp/replace.el
index 1bf1343..503531a 100644
--- a/lisp/replace.el
+++ b/lisp/replace.el
@@ -2404,6 +2404,8 @@ (defun perform-replace (from-string replacements
(replace-dehighlight)
(save-excursion (recursive-edit))
(setq replaced t))
+ ((commandp def t)
+ (call-interactively def))
;; Note: we do not need to treat `exit-prefix'
;; specially here, since we reread
;; any unrecognized character.