mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-16 19:00:55 -08:00
Code Issues Projects Releases Wiki Activity

(menu-bar-search-menu, menu-bar-replace-menu): Capitalize "Tagged Files".

Browse source 
(minibuffer-local-map): Add menu items for next/previous
history elements and isearch history forward/backward.
This commit is contained in:
Juri Linkov 2008-02-28 20:46:30 +00:00
parent 27eb24a355
commit 56a8f9c532
2 changed files with 39 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

24
lisp/ChangeLog
View file

@ -1,3 +1,27 @@
2008-02-28 Juri Linkov <juri@jurta.org>
* cus-edit.el (custom-mode-map, custom-mode-link-map):
Rename `custom-mode' to `Custom-mode' in docstrings.
(custom-buffer-create-internal, customize-browse):
Rename `custom-mode' to `Custom-mode'.
(custom-mode-hook): Rename to `Custom-mode-hook'.
(Custom-mode-hook): Renamed from `custom-mode-hook'.
(custom-mode): Rename to `Custom-mode'.
(Custom-mode): Renamed from `custom-mode'. Doc fix.
(custom-mode): Add backward-compatible non-interactive variant of
`Custom-mode' that simply calls `Custom-mode'. Mark it obsoleted.
(custom-mode-hook): Mark it as obsolete alias of `Custom-mode-hook'.
* info-look.el: Rename `custom-mode' to `Custom-mode'.
* emulation/viper.el (viper-emacs-state-mode-list):
Rename `custom-mode' to `Custom-mode'.
* menu-bar.el (menu-bar-search-menu, menu-bar-replace-menu):
Capitalize "Tagged Files".
(minibuffer-local-map): Add menu items for next/previous
history elements and isearch history forward/backward.
2008-02-28 Stefan Monnier <monnier@iro.umontreal.ca> 2008-02-28 Stefan Monnier <monnier@iro.umontreal.ca>
* uniquify.el (uniquify-buffer-base-name): Undo last change. Should be * uniquify.el (uniquify-buffer-base-name): Undo last change. Should be

18
lisp/menu-bar.el
View file

@ -309,7 +309,7 @@ A large number or nil slows down menu responsiveness."
'(menu-item "Continue Tags Search" tags-loop-continue '(menu-item "Continue Tags Search" tags-loop-continue
:help "Continue last tags search operation")) :help "Continue last tags search operation"))
(define-key menu-bar-search-menu [tags-srch] (define-key menu-bar-search-menu [tags-srch]
'(menu-item "Search tagged files..." tags-search '(menu-item "Search Tagged Files..." tags-search
:help "Search for a regexp in all tagged files")) :help "Search for a regexp in all tagged files"))
(define-key menu-bar-search-menu [separator-tag-search] (define-key menu-bar-search-menu [separator-tag-search]
'(menu-item "--")) '(menu-item "--"))
@ -353,7 +353,7 @@ A large number or nil slows down menu responsiveness."
'(menu-item "Continue Replace" tags-loop-continue '(menu-item "Continue Replace" tags-loop-continue
:help "Continue last tags replace operation")) :help "Continue last tags replace operation"))
(define-key menu-bar-replace-menu [tags-repl] (define-key menu-bar-replace-menu [tags-repl]
'(menu-item "Replace in tagged files..." tags-query-replace '(menu-item "Replace in Tagged Files..." tags-query-replace
:help "Interactively replace a regexp in all tagged files")) :help "Interactively replace a regexp in all tagged files"))
(define-key menu-bar-replace-menu [separator-replace-tags] (define-key menu-bar-replace-menu [separator-replace-tags]
'(menu-item "--")) '(menu-item "--"))
@ -1741,7 +1741,19 @@ Buffers menu is regenerated."
:help "Abort input and exit minibuffer")) :help "Abort input and exit minibuffer"))
(define-key map [menu-bar minibuf return] (define-key map [menu-bar minibuf return]
(list 'menu-item "Enter" 'exit-minibuffer (list 'menu-item "Enter" 'exit-minibuffer
:help "Terminate input and exit minibuffer"))) :help "Terminate input and exit minibuffer"))
(define-key map [menu-bar minibuf isearch-forward]
(list 'menu-item "Isearch History Forward" 'isearch-forward
:help "Incrementally search minibuffer history forward"))
(define-key map [menu-bar minibuf isearch-backward]
(list 'menu-item "Isearch History Backward" 'isearch-backward
:help "Incrementally search minibuffer history backward"))
(define-key map [menu-bar minibuf next]
(list 'menu-item "Next History Item" 'next-history-element
:help "Put next minibuffer history element in the minibuffer"))
(define-key map [menu-bar minibuf previous]
(list 'menu-item "Previous History Item" 'previous-history-element
:help "Put previous minibuffer history element in the minibuffer")))
;;;###autoload ;;;###autoload
;; This comment is taken from tool-bar.el near ;; This comment is taken from tool-bar.el near