mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

Disable many Files menu items in minibuffer.

Browse Source 
(menu-bar-search-menu): Add ... to many items.
Add a query-replace-regexp item.
(nonincremental-repeat-search-forward): Renamed from noninteractive...
(nonincremental-repeat-search-backward): Likewise.
(nonincremental-repeat-re-search-forward): Likewise.
(nonincremental-repeat-re-search-backward): Likewise.
This commit is contained in:
Richard M. Stallman 1995-04-24 15:26:19 +00:00
parent 125a8d7091
commit 1f50590a16
1 changed files with 33 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
lisp/menu-bar.el
View File

@ -109,7 +109,7 @@
(define-key menu-bar-files-menu [kill-buffer]
'("Kill Current Buffer" . kill-this-buffer))
(define-key menu-bar-files-menu [insert-file]
'("Insert File" . insert-file))
'("Insert File..." . insert-file))
(define-key menu-bar-files-menu [revert-buffer]
'("Revert Buffer" . revert-buffer))
(define-key menu-bar-files-menu [write-file]
@ -154,30 +154,32 @@
(isearch-update-ring string t)
(re-search-backward string)))
(defun noninteractive-repeat-search-forward ()
(defun nonincremental-repeat-search-forward ()
"Search forward for the previous search string."
(interactive)
(search-forward (car search-ring)))
(defun noninteractive-repeat-search-backward ()
(defun nonincremental-repeat-search-backward ()
"Search backward for the previous search string."
(interactive)
(search-backward (car search-ring)))
(defun noninteractive-repeat-re-search-forward ()
(defun nonincremental-repeat-re-search-forward ()
"Search forward for the previous regular expression."
(interactive)
(re-search-forward (car regexp-search-ring)))
(defun noninteractive-repeat-re-search-backward ()
(defun nonincremental-repeat-re-search-backward ()
"Search backward for the previous regular expression."
(interactive)
(re-search-backward (car regexp-search-ring)))
(define-key menu-bar-search-menu [query-replace-regexp]
'("Query Replace Regexp..." . query-replace-regexp))
(define-key menu-bar-search-menu [query-replace]
'("Query Replace" . query-replace))
'("Query Replace..." . query-replace))
(define-key menu-bar-search-menu [find-tag]
'("Find Tag" . find-tag))
'("Find Tag..." . find-tag))
(put 'find-tag 'menu-enable 'tags-table-list)
(define-key menu-bar-search-menu [bookmark]
'("Bookmarks" . menu-bar-bookmark-map))
@ -198,13 +200,13 @@
'("--"))
(define-key menu-bar-search-menu [re-search-back]
'("Regexp Search Backwards" . nonincremental-re-search-backward))
'("Regexp Search Backwards..." . nonincremental-re-search-backward))
(define-key menu-bar-search-menu [search-back]
'("Search Backwards" . nonincremental-search-backward))
'("Search Backwards..." . nonincremental-search-backward))
(define-key menu-bar-search-menu [re-search-fwd]
'("Regexp Search" . nonincremental-re-search-forward))
'("Regexp Search..." . nonincremental-re-search-forward))
(define-key menu-bar-search-menu [search-fwd]
'("Search" . nonincremental-search-forward))
'("Search..." . nonincremental-search-forward))
(if (fboundp 'start-process)
(define-key menu-bar-edit-menu [spell] '("Spell" . ispell-menu-map)))
@ -327,9 +329,27 @@ Do the same for the keys of the same name."
(or (string-match "^ " (buffer-name (car buffers)))
(setq count (1+ count)))
(setq buffers (cdr buffers)))
(> count 1)))
(and (not (window-minibuffer-p (selected-window)))
(> count 1))))
(put 'kill-this-buffer 'menu-enable '(kill-this-buffer-enabled-p))
(put 'save-buffer 'menu-enable
'(and (buffer-modified-p)
(not (window-minibuffer-p (selected-window)))))
(put 'write-file 'menu-enable
'(not (window-minibuffer-p (selected-window))))
(put 'find-file 'menu-enable
'(not (window-minibuffer-p (selected-window))))
(put 'dired 'menu-enable
'(not (window-minibuffer-p (selected-window))))
(put 'insert-file 'menu-enable
'(not (window-minibuffer-p (selected-window))))
(put 'save-buffer 'menu-enable '(buffer-modified-p))
(put 'revert-buffer 'menu-enable
'(or revert-buffer-function revert-buffer-insert-file-contents-function
(and (buffer-file-name)
@ -344,7 +364,6 @@ Do the same for the keys of the same name."
(setq count (1+ count)))
(setq frames (cdr frames)))
(> count 1)))
(put 'kill-this-buffer 'menu-enable '(kill-this-buffer-enabled-p))
(put 'advertised-undo 'menu-enable
'(and (not (eq t buffer-undo-list))