From 1b12c797ae831037abaa8470a394fa26edeadb64 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 11 Oct 2013 21:10:25 -0400 Subject: [PATCH] * lisp/isearch.el (isearch-pre-command-hook): Don't build in knowledge about internals of universal-argument. --- lisp/ChangeLog | 5 +++++ lisp/isearch.el | 5 +++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 3de056a26d3..20271be89b0 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2013-10-12 Stefan Monnier + + * isearch.el (isearch-pre-command-hook): Don't build in knowledge about + internals of universal-argument. + 2013-10-11 Eli Zaretskii * menu-bar.el (tty-menu-navigation-map): Remap F10 to tty-menu-exit. diff --git a/lisp/isearch.el b/lisp/isearch.el index 9a1729ac7e6..3abb03a084a 100644 --- a/lisp/isearch.el +++ b/lisp/isearch.el @@ -2233,6 +2233,9 @@ before the command is executed globally with terminated Isearch." (let* ((key (this-single-command-keys)) (main-event (aref key 0))) (cond + ;; Don't exit Isearch if we're in the middle of some + ;; set-temporary-overlay-map thingy like universal-argument--mode. + ((not (eq overriding-terminal-local-map isearch-mode-map))) ;; Don't exit Isearch for isearch key bindings. ((commandp (lookup-key isearch-mode-map key nil))) ;; Optionally edit the search string instead of exiting. @@ -2241,8 +2244,6 @@ before the command is executed globally with terminated Isearch." ;; Handle a scrolling function or prefix argument. ((or (and isearch-allow-prefix (memq this-command '(universal-argument - universal-argument-more - universal-argument-minus digit-argument negative-argument))) (and isearch-allow-scroll (or (eq (get this-command 'isearch-scroll) t) -- 2.39.2