diff options
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/grep.el | 3 |
1 files changed, 2 insertions, 1 deletions
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.") | |||
| 748 | 748 | ||
| 749 | (defun grep-read-files (regexp) | 749 | (defun grep-read-files (regexp) |
| 750 | "Read files arg for interactive grep." | 750 | "Read files arg for interactive grep." |
| 751 | (let* ((bn (or (buffer-file-name) (buffer-name))) | 751 | (let* ((bn (or (buffer-file-name) |
| 752 | (replace-regexp-in-string "<[0-9]+>\\'" "" (buffer-name)))) | ||
| 752 | (fn (and bn | 753 | (fn (and bn |
| 753 | (stringp bn) | 754 | (stringp bn) |
| 754 | (file-name-nondirectory bn))) | 755 | (file-name-nondirectory bn))) |