diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2016-12-31 00:31:49 -0500 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-01-05 20:20:42 -0500 |
| commit | 69b9224a327ade40f3dab9b8ae6d9553462ced07 (patch) | |
| tree | 223f5bb6ef9ade0889c0bf49b63de21261dde736 | |
| parent | d1d9b376306edb77632968cbbd7dfa456f00046c (diff) | |
| download | emacs-69b9224a327ade40f3dab9b8ae6d9553462ced07.tar.gz | |
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).
| -rw-r--r-- | lisp/isearch.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/isearch.el b/lisp/isearch.el index b890cc49c0d..5c48c30daa9 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) |