]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/isearch.el: Put 'isearch-scroll' property on two new symbols.
authorJuri Linkov <juri@linkov.net>
Sat, 29 Jan 2022 18:55:17 +0000 (20:55 +0200)
committerJuri Linkov <juri@linkov.net>
Sat, 29 Jan 2022 18:55:17 +0000 (20:55 +0200)
Put 'isearch-scroll' property on new commands 'recenter-other-window'
and 'context-menu-open'.

lisp/isearch.el

index 833d031c562e2fb0619b16878430fe6547d05925..4086a1bf1151181f35f7ed8626e5f2cf220c825b 100644 (file)
@@ -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)