From 5d91db30c6c6454b782369a91033d0ce945147b1 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 25 Jan 2009 00:55:22 +0000 Subject: [PATCH] (grep-mode-map): Put grep-find before grep and change its title from "Recursive grep..." to "Grep via Find...". Add menu items for lgrep and rgrep. --- lisp/ChangeLog | 6 ++++++ lisp/progmodes/grep.el | 12 +++++++++--- 2 files changed, 15 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 400ea4052e7..84ee20c0ccd 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-01-25 Juri Linkov + + * progmodes/grep.el (grep-mode-map): Put grep-find before grep and + change its title from "Recursive grep..." to "Grep via Find...". + Add menu items for lgrep and rgrep. + 2009-01-24 Geoff Gole (tiny change) * align.el (align-region): Avoid infloop. diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index e6447563278..b4bcc5c88a5 100644 --- a/lisp/progmodes/grep.el +++ b/lisp/progmodes/grep.el @@ -204,12 +204,18 @@ See `compilation-error-screen-columns'" (define-key map [menu-bar grep compilation-compile] '(menu-item "Compile..." compile :help "Compile the program including the current buffer. Default: run `make'")) + (define-key map [menu-bar grep compilation-rgrep] + '(menu-item "Recursive grep..." rgrep + :help "User-friendly recursive grep in directory tree")) + (define-key map [menu-bar grep compilation-lgrep] + '(menu-item "Local grep..." lgrep + :help "User-friendly grep in a directory")) + (define-key map [menu-bar grep compilation-grep-find] + '(menu-item "Grep via Find..." grep-find + :help "Run grep via find, with user-specified args")) (define-key map [menu-bar grep compilation-grep] '(menu-item "Another grep..." grep :help "Run grep, with user-specified args, and collect output in a buffer.")) - (define-key map [menu-bar grep compilation-grep-find] - '(menu-item "Recursive grep..." grep-find - :help "Run grep via find, with user-specified args")) (define-key map [menu-bar grep compilation-recompile] '(menu-item "Repeat grep" recompile :help "Run grep again")) -- 2.39.2