[Emacs-diffs] master 69b9224: Fix isearch handling of C-u C-u...

[Noam Postavsky]

branch: master
commit 69b9224a327ade40f3dab9b8ae6d9553462ced07
Author: Noam Postavsky <address@hidden>
Commit: Noam Postavsky <address@hidden>

    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 b890cc4..5c48c30 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -2297,6 +2297,7 @@ to the barrier."
 
 ;; 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 @@ before the command is executed globally with terminated 
Isearch."
       (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)