From 6830f44933dc2fc9ce64f21144c7b9b57342a8e1 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 30 Aug 2009 23:47:11 +0000 Subject: [PATCH] (grep-read-files): Strip trailing from buffer names not visiting a file (e.g. cloned buffers). --- lisp/ChangeLog | 5 +++++ lisp/progmodes/grep.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index de79abf98a5..56f19a60829 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2009-08-30 Kevin Rodgers (tiny change) + + * progmodes/grep.el (grep-read-files): Strip trailing from + buffer names not visiting a file (e.g. cloned buffers). + 2009-08-30 Nick Roberts * comint.el (comint-exec-1): Check command is non-null first. diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el index 5c199016c65..bf626f6e308 100644 --- 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))) -- 2.39.2