[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/progmodes grep.el
From: |
Juri Linkov |
Subject: |
[Emacs-diffs] emacs/lisp/progmodes grep.el |
Date: |
Sun, 30 Aug 2009 23:46:09 +0000 |
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)))