* More Minibuffer menu items
@ 2008-02-24 20:35 Juri Linkov
2008-02-24 21:03 ` Dan Nicolaescu
0 siblings, 1 reply; 3+ messages in thread
From: Juri Linkov @ 2008-02-24 20:35 UTC (permalink / raw)
To: emacs-pretest-bug
Currently the Minibuffer menu has only two items (besides three
completion items when they are available) and misses other useful
minibuffer commands. The following patch adds more items to this menu:
Index: lisp/menu-bar.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/menu-bar.el,v
retrieving revision 1.318
diff -c -r1.318 menu-bar.el
*** lisp/menu-bar.el 8 Jan 2008 20:44:39 -0000 1.318
--- lisp/menu-bar.el 24 Feb 2008 20:35:20 -0000
***************
*** 1733,1739 ****
:help "Abort input and exit minibuffer"))
(define-key map [menu-bar minibuf return]
(list 'menu-item "Enter" 'exit-minibuffer
! :help "Terminate input and exit minibuffer")))
\f
;;;###autoload
;; This comment is taken from tool-bar.el near
--- 1733,1751 ----
:help "Abort input and exit minibuffer"))
(define-key map [menu-bar minibuf return]
(list 'menu-item "Enter" 'exit-minibuffer
! :help "Terminate input and exit minibuffer"))
! (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"))
! (define-key map [menu-bar minibuf isearch-forward]
! (list 'menu-item "Search history forward" 'isearch-forward
! :help "Search minibuffer history forward"))
! (define-key map [menu-bar minibuf isearch-backward]
! (list 'menu-item "Search history backward" 'isearch-backward
! :help "Search minibuffer history backward")))
\f
;;;###autoload
;; This comment is taken from tool-bar.el near
--
Juri Linkov
http://www.jurta.org/emacs/
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: More Minibuffer menu items
2008-02-24 20:35 More Minibuffer menu items Juri Linkov
@ 2008-02-24 21:03 ` Dan Nicolaescu
2008-02-24 23:23 ` Juri Linkov
0 siblings, 1 reply; 3+ messages in thread
From: Dan Nicolaescu @ 2008-02-24 21:03 UTC (permalink / raw)
To: Juri Linkov; +Cc: emacs-pretest-bug
Juri Linkov <juri@jurta.org> writes:
> Currently the Minibuffer menu has only two items (besides three
> completion items when they are available) and misses other useful
> minibuffer commands. The following patch adds more items to this menu:
Good idea!
> Index: lisp/menu-bar.el
> ===================================================================
> RCS file: /sources/emacs/emacs/lisp/menu-bar.el,v
> retrieving revision 1.318
> diff -c -r1.318 menu-bar.el
> *** lisp/menu-bar.el 8 Jan 2008 20:44:39 -0000 1.318
> --- lisp/menu-bar.el 24 Feb 2008 20:35:20 -0000
> ***************
> *** 1733,1739 ****
> :help "Abort input and exit minibuffer"))
> (define-key map [menu-bar minibuf return]
> (list 'menu-item "Enter" 'exit-minibuffer
> ! :help "Terminate input and exit minibuffer")))
> \f
> ;;;###autoload
> ;; This comment is taken from tool-bar.el near
> --- 1733,1751 ----
> :help "Abort input and exit minibuffer"))
> (define-key map [menu-bar minibuf return]
> (list 'menu-item "Enter" 'exit-minibuffer
> ! :help "Terminate input and exit minibuffer"))
> ! (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"))
> ! (define-key map [menu-bar minibuf isearch-forward]
> ! (list 'menu-item "Search history forward" 'isearch-forward
How about either "Incremental search forward" or "isearch forward" ?
> ! :help "Search minibuffer history forward"))
and adjust this to match.
^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: More Minibuffer menu items
2008-02-24 21:03 ` Dan Nicolaescu
@ 2008-02-24 23:23 ` Juri Linkov
0 siblings, 0 replies; 3+ messages in thread
From: Juri Linkov @ 2008-02-24 23:23 UTC (permalink / raw)
To: Dan Nicolaescu; +Cc: emacs-pretest-bug
> > Index: lisp/menu-bar.el
> > ===================================================================
> > RCS file: /sources/emacs/emacs/lisp/menu-bar.el,v
> > retrieving revision 1.318
> > diff -c -r1.318 menu-bar.el
> > *** lisp/menu-bar.el 8 Jan 2008 20:44:39 -0000 1.318
> > --- lisp/menu-bar.el 24 Feb 2008 20:35:20 -0000
> > ***************
> > *** 1733,1739 ****
> > :help "Abort input and exit minibuffer"))
> > (define-key map [menu-bar minibuf return]
> > (list 'menu-item "Enter" 'exit-minibuffer
> > ! :help "Terminate input and exit minibuffer")))
> > \f
> > ;;;###autoload
> > ;; This comment is taken from tool-bar.el near
> > --- 1733,1751 ----
> > :help "Abort input and exit minibuffer"))
> > (define-key map [menu-bar minibuf return]
> > (list 'menu-item "Enter" 'exit-minibuffer
> > ! :help "Terminate input and exit minibuffer"))
> > ! (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"))
> > ! (define-key map [menu-bar minibuf isearch-forward]
> > ! (list 'menu-item "Search history forward" 'isearch-forward
>
> How about either "Incremental search forward" or "isearch forward" ?
>
> > ! :help "Search minibuffer history forward"))
>
> and adjust this to match.
OK, will do.
--
Juri Linkov
http://www.jurta.org/emacs/
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2008-02-24 23:23 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2008-02-24 20:35 More Minibuffer menu items Juri Linkov
2008-02-24 21:03 ` Dan Nicolaescu
2008-02-24 23:23 ` Juri Linkov
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).