# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1251675969 0
# Node ID 60a123e396f89bbd364fa2c6c9b920418b68a402
# Parent  58318daad0c3d5c0e7f0e3b344a48fa1bf4589c1
(grep-read-files): Strip trailing <N> from buffer names
not visiting a file (e.g. cloned buffers).

diff -r 58318daad0c3 -r 60a123e396f8 lisp/progmodes/grep.el
--- a/lisp/progmodes/grep.el	Sun Aug 30 23:31:26 2009 +0000
+++ b/lisp/progmodes/grep.el	Sun Aug 30 23:46:09 2009 +0000
@@ -748,7 +748,8 @@
 
 (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)))