(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.

2 files changed, 15 insertions, 3 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 400ea4052e..84ee20c0cc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2009-01-25  Juri Linkov  <[email protected]>
+
+	* 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  <[email protected]>  (tiny change)
 
 	* align.el (align-region): Avoid infloop.
diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index e644756327..b4bcc5c88a 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"))