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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 400ea4052e7bed18444fe2b2917d957b8050da5a..84ee20c0ccd77edcf895321017aa3e18befb1620 100644 (file)
--- 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 e6447563278bbd8d13f6c744e0075aa6a44c5e2d..b4bcc5c88a5fa90edb99dc5fd274516759d70bfa 100644 (file)
--- 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"))