>From b92e54be715fd7880a4f3c260dfc360eff3f1e57 Mon Sep 17 00:00:00 2001 From: Noam Postavsky Date: Sat, 31 Dec 2016 00:31:49 -0500 Subject: [PATCH v2] Fix isearch handling of C-u C-u... * lisp/isearch.el: Add `isearch-scroll' property to universal-argument-more so that `isearch-allow-scroll' will apply to it as well. (isearch-pre-command-hook): Let `isearch-allow-prefix' apply to `universal-argument-more' as well (Bug#25302). --- lisp/isearch.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/isearch.el b/lisp/isearch.el index 9846f0b..af82229 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -2297,6 +2297,7 @@ isearch-fallback ;; Universal argument commands (put 'universal-argument 'isearch-scroll t) +(put 'universal-argument-more 'isearch-scroll t) (put 'negative-argument 'isearch-scroll t) (put 'digit-argument 'isearch-scroll t) @@ -2389,7 +2390,7 @@ isearch-pre-command-hook (setq this-command 'isearch-edit-string)) ;; Handle a scrolling function or prefix argument. ((or (and isearch-allow-prefix - (memq this-command '(universal-argument + (memq this-command '(universal-argument universal-argument-more digit-argument negative-argument))) (and isearch-allow-scroll (symbolp this-command) -- 2.9.3