(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 400ea4052e7..84ee20c0ccd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2009-01-25  Juri Linkov  <juri@jurta.org>
+
+        * 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  <geoffgole@gmail.com>  (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"))