[Emacs-diffs] emacs/lisp/progmodes grep.el

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     09/08/30 23:46:09

Modified files:
        lisp/progmodes : grep.el 

Log message:
        (grep-read-files): Strip trailing <N> from buffer names
        not visiting a file (e.g. cloned buffers).

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/grep.el?cvsroot=emacs&r1=1.105&r2=1.106

Patches:
Index: grep.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/grep.el,v
retrieving revision 1.105
retrieving revision 1.106
diff -u -b -r1.105 -r1.106
--- grep.el     25 Aug 2009 10:11:08 -0000      1.105
+++ grep.el     30 Aug 2009 23:46:09 -0000      1.106
@@ -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)))