[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master a956305f99 2/2: Move the Incremental Search menu one menu up
From: |
Lars Ingebrigtsen |
Subject: |
master a956305f99 2/2: Move the Incremental Search menu one menu up |
Date: |
Mon, 25 Apr 2022 08:09:59 -0400 (EDT) |
branch: master
commit a956305f99c77d2b0f4cdffcfac91dbedf9f4038
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Move the Incremental Search menu one menu up
* lisp/menu-bar.el (menu-bar-search-menu): Move the Incremental
Search from the Search menu...
(menu-bar-edit-menu): ... one step up (bug#43308).
---
lisp/menu-bar.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index d8c8c760f7..44922a016a 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -311,7 +311,7 @@
(isearch-update-ring string t)
(re-search-backward string)))
-;; The Edit->Search->Incremental Search menu
+;; The Edit->Incremental Search menu
(defvar menu-bar-i-search-menu
(let ((menu (make-sparse-keymap "Incremental Search")))
(bindings--define-key menu [isearch-forward-symbol-at-point]
@@ -340,8 +340,6 @@
(defvar menu-bar-search-menu
(let ((menu (make-sparse-keymap "Search")))
- (bindings--define-key menu [i-search]
- `(menu-item "Incremental Search" ,menu-bar-i-search-menu))
(bindings--define-key menu [separator-tag-isearch]
menu-bar-separator)
@@ -501,6 +499,9 @@
(bindings--define-key menu [replace]
`(menu-item "Replace" ,menu-bar-replace-menu))
+ (bindings--define-key menu [i-search]
+ `(menu-item "Incremental Search" ,menu-bar-i-search-menu))
+
(bindings--define-key menu [search]
`(menu-item "Search" ,menu-bar-search-menu))