From: Juri Linkov <juri@linkov.net>
Date: Sat, 29 Jan 2022 18:55:17 +0000 (+0200)
Subject: * lisp/isearch.el: Put 'isearch-scroll' property on two new symbols.
X-Git-Tag: emacs-29.0.90~2659
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e241e7719453a6b55f528c2efc51844a9d42020a;p=emacs.git

* lisp/isearch.el: Put 'isearch-scroll' property on two new symbols.

Put 'isearch-scroll' property on new commands 'recenter-other-window'
and 'context-menu-open'.
---

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 833d031c562..4086a1bf115 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -2934,6 +2934,7 @@ to the barrier."
 (put 'scroll-other-window-down 'isearch-scroll t)
 (put 'beginning-of-buffer-other-window 'isearch-scroll t)
 (put 'end-of-buffer-other-window 'isearch-scroll t)
+(put 'recenter-other-window 'isearch-scroll t)
 
 ;; Commands which change the window layout
 (put 'delete-other-windows 'isearch-scroll t)
@@ -2948,6 +2949,9 @@ to the barrier."
 (put 'mouse-drag-mode-line 'isearch-scroll t)
 (put 'mouse-drag-vertical-line 'isearch-scroll t)
 
+;; For context menu with isearch submenu
+(put 'context-menu-open 'isearch-scroll t)
+
 ;; Aliases for split-window-*
 (put 'split-window-vertically 'isearch-scroll t)
 (put 'split-window-horizontally 'isearch-scroll t)