mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source 
not visiting a file (e.g. cloned buffers).
This commit is contained in:
Juri Linkov 2009-08-30 23:47:11 +00:00
parent 08166ed65f
commit 6830f44933
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

3
lisp/progmodes/grep.el
View file

@ -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)))