From: Juri Linkov 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)