Add M-x occur to the menu-bar

["Marshall, Simon" <simon.marshall@misys.com>]

[-- Attachment #1: Type: text/plain, Size: 443 bytes --]

It seems useful to add an entry for M-x occur to the Tools menu-bar,
alongside the entry for M-x grep.  

While I was at it, it seemed a good idea to change the use of the word
"search" for the entry for M-x grep, since that word is used for entries
(under the Edit menu-bar) that move point.  M-x occur and M-x grep are
different; they list matching lines rather than moving point.

So here's a patch.

 <<menu-bar.diff2>>  <<menu-bar.cl2>> 

[-- Attachment #2: menu-bar.diff2 --]
[-- Type: application/octet-stream, Size: 937 bytes --]

*** menu-bar.el.~3~	Mon Feb 17 10:30:04 2003
--- menu-bar.el	Thu Sep 11 17:04:05 2003
***************
*** 802,810 ****
    '(menu-item "Compile..." compile
  	      :help "Invoke compiler or Make, view compilation errors"))
  (define-key menu-bar-tools-menu [grep]
!   '(menu-item "Search Files (Grep)..." grep
! 	      :help "Search files for strings or regexps (with Grep)"))
! 
  \f
  ;; The "Help" menu items
  
--- 802,812 ----
    '(menu-item "Compile..." compile
  	      :help "Invoke compiler or Make, view compilation errors"))
  (define-key menu-bar-tools-menu [grep]
!   '(menu-item "List Matches in Files (Grep)..." grep
! 	      :help "List lines in files matching string or regular expression"))
! (define-key menu-bar-tools-menu [occur]
!   '(menu-item "List Matches in Buffer (Occur)..." occur
! 	      :help "List lines in buffer matching regular expression"))
  \f
  ;; The "Help" menu items
  

[-- Attachment #3: menu-bar.cl2 --]
[-- Type: application/octet-stream, Size: 172 bytes --]

2003-09-11  Simon Marshall  <simon@gnu.org>

	* menu-bar.el (menu-bar-tools-menu) <occur>: New entry.
	(menu-bar-tools-menu) <grep>: Change "search" to "list lines".


[-- Attachment #4: Type: text/plain, Size: 141 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/emacs-devel