diff options
| author | Juri Linkov | 2008-02-28 20:46:30 +0000 |
|---|---|---|
| committer | Juri Linkov | 2008-02-28 20:46:30 +0000 |
| commit | 56a8f9c5328eecadda8e456cce07ede68f2c847c (patch) | |
| tree | 0536138c2022972a9968cef7dde9b6cd7cd5a89a | |
| parent | 27eb24a3559814aed6d5df8a76efcdf0efb3e108 (diff) | |
| download | emacs-56a8f9c5328eecadda8e456cce07ede68f2c847c.tar.gz emacs-56a8f9c5328eecadda8e456cce07ede68f2c847c.zip | |
(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.
| -rw-r--r-- | lisp/ChangeLog | 24 | ||||
| -rw-r--r-- | lisp/menu-bar.el | 18 |
2 files changed, 39 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dba3d58d9a7..5764330bcce 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,27 @@ | |||
| 1 | 2008-02-28 Juri Linkov <juri@jurta.org> | ||
| 2 | |||
| 3 | * cus-edit.el (custom-mode-map, custom-mode-link-map): | ||
| 4 | Rename `custom-mode' to `Custom-mode' in docstrings. | ||
| 5 | (custom-buffer-create-internal, customize-browse): | ||
| 6 | Rename `custom-mode' to `Custom-mode'. | ||
| 7 | (custom-mode-hook): Rename to `Custom-mode-hook'. | ||
| 8 | (Custom-mode-hook): Renamed from `custom-mode-hook'. | ||
| 9 | (custom-mode): Rename to `Custom-mode'. | ||
| 10 | (Custom-mode): Renamed from `custom-mode'. Doc fix. | ||
| 11 | (custom-mode): Add backward-compatible non-interactive variant of | ||
| 12 | `Custom-mode' that simply calls `Custom-mode'. Mark it obsoleted. | ||
| 13 | (custom-mode-hook): Mark it as obsolete alias of `Custom-mode-hook'. | ||
| 14 | |||
| 15 | * info-look.el: Rename `custom-mode' to `Custom-mode'. | ||
| 16 | |||
| 17 | * emulation/viper.el (viper-emacs-state-mode-list): | ||
| 18 | Rename `custom-mode' to `Custom-mode'. | ||
| 19 | |||
| 20 | * menu-bar.el (menu-bar-search-menu, menu-bar-replace-menu): | ||
| 21 | Capitalize "Tagged Files". | ||
| 22 | (minibuffer-local-map): Add menu items for next/previous | ||
| 23 | history elements and isearch history forward/backward. | ||
| 24 | |||
| 1 | 2008-02-28 Stefan Monnier <monnier@iro.umontreal.ca> | 25 | 2008-02-28 Stefan Monnier <monnier@iro.umontreal.ca> |
| 2 | 26 | ||
| 3 | * uniquify.el (uniquify-buffer-base-name): Undo last change. Should be | 27 | * uniquify.el (uniquify-buffer-base-name): Undo last change. Should be |
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 9d6303314cd..2ad77ce4e46 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el | |||
| @@ -309,7 +309,7 @@ A large number or nil slows down menu responsiveness." | |||
| 309 | '(menu-item "Continue Tags Search" tags-loop-continue | 309 | '(menu-item "Continue Tags Search" tags-loop-continue |
| 310 | :help "Continue last tags search operation")) | 310 | :help "Continue last tags search operation")) |
| 311 | (define-key menu-bar-search-menu [tags-srch] | 311 | (define-key menu-bar-search-menu [tags-srch] |
| 312 | '(menu-item "Search tagged files..." tags-search | 312 | '(menu-item "Search Tagged Files..." tags-search |
| 313 | :help "Search for a regexp in all tagged files")) | 313 | :help "Search for a regexp in all tagged files")) |
| 314 | (define-key menu-bar-search-menu [separator-tag-search] | 314 | (define-key menu-bar-search-menu [separator-tag-search] |
| 315 | '(menu-item "--")) | 315 | '(menu-item "--")) |
| @@ -353,7 +353,7 @@ A large number or nil slows down menu responsiveness." | |||
| 353 | '(menu-item "Continue Replace" tags-loop-continue | 353 | '(menu-item "Continue Replace" tags-loop-continue |
| 354 | :help "Continue last tags replace operation")) | 354 | :help "Continue last tags replace operation")) |
| 355 | (define-key menu-bar-replace-menu [tags-repl] | 355 | (define-key menu-bar-replace-menu [tags-repl] |
| 356 | '(menu-item "Replace in tagged files..." tags-query-replace | 356 | '(menu-item "Replace in Tagged Files..." tags-query-replace |
| 357 | :help "Interactively replace a regexp in all tagged files")) | 357 | :help "Interactively replace a regexp in all tagged files")) |
| 358 | (define-key menu-bar-replace-menu [separator-replace-tags] | 358 | (define-key menu-bar-replace-menu [separator-replace-tags] |
| 359 | '(menu-item "--")) | 359 | '(menu-item "--")) |
| @@ -1741,7 +1741,19 @@ Buffers menu is regenerated." | |||
| 1741 | :help "Abort input and exit minibuffer")) | 1741 | :help "Abort input and exit minibuffer")) |
| 1742 | (define-key map [menu-bar minibuf return] | 1742 | (define-key map [menu-bar minibuf return] |
| 1743 | (list 'menu-item "Enter" 'exit-minibuffer | 1743 | (list 'menu-item "Enter" 'exit-minibuffer |
| 1744 | :help "Terminate input and exit minibuffer"))) | 1744 | :help "Terminate input and exit minibuffer")) |
| 1745 | (define-key map [menu-bar minibuf isearch-forward] | ||
| 1746 | (list 'menu-item "Isearch History Forward" 'isearch-forward | ||
| 1747 | :help "Incrementally search minibuffer history forward")) | ||
| 1748 | (define-key map [menu-bar minibuf isearch-backward] | ||
| 1749 | (list 'menu-item "Isearch History Backward" 'isearch-backward | ||
| 1750 | :help "Incrementally search minibuffer history backward")) | ||
| 1751 | (define-key map [menu-bar minibuf next] | ||
| 1752 | (list 'menu-item "Next History Item" 'next-history-element | ||
| 1753 | :help "Put next minibuffer history element in the minibuffer")) | ||
| 1754 | (define-key map [menu-bar minibuf previous] | ||
| 1755 | (list 'menu-item "Previous History Item" 'previous-history-element | ||
| 1756 | :help "Put previous minibuffer history element in the minibuffer"))) | ||
| 1745 | 1757 | ||
| 1746 | ;;;###autoload | 1758 | ;;;###autoload |
| 1747 | ;; This comment is taken from tool-bar.el near | 1759 | ;; This comment is taken from tool-bar.el near |