From e241e7719453a6b55f528c2efc51844a9d42020a Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 29 Jan 2022 20:55:17 +0200 Subject: [PATCH] * 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'. --- lisp/isearch.el | 4 ++++ 1 file changed, 4 insertions(+) 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) -- 2.39.5