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).
This commit is contained in:
Lars Ingebrigtsen 2022-04-25 14:09:46 +02:00
parent 9fdaf9ac4d
commit a956305f99

View file

@ -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))