(grep-read-files): Strip trailing <N> from buffer names

not visiting a file (e.g. cloned buffers).

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index de79abf98a5941e724916de00ae5eeb1d474a287..56f19a6082997346dcb5a384efde176f6733815e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-08-30  Kevin Rodgers  <kevin.d.rodgers@gmail.com>  (tiny change)
+
+       * progmodes/grep.el (grep-read-files): Strip trailing <N> from
+       buffer names not visiting a file (e.g. cloned buffers).
+
 2009-08-30  Nick Roberts  <nickrob@snap.net.nz>
 
        * comint.el (comint-exec-1): Check command is non-null first.

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index 5c199016c653096e689e106523d303434dffbb43..bf626f6e308ea8bb9cbfb4b33a9f45718d8b05f7 100644 (file)
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -748,7 +748,8 @@ substitution string.  Note dynamic scoping of variables.")
 
 (defun grep-read-files (regexp)
   "Read files arg for interactive grep."
-  (let* ((bn (or (buffer-file-name) (buffer-name)))
+  (let* ((bn (or (buffer-file-name)
+                (replace-regexp-in-string "<[0-9]+>\\'" "" (buffer-name))))
         (fn (and bn
                  (stringp bn)
                  (file-name-nondirectory bn)))