[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: multi-occur-in-matching-buffers
From: |
Juri Linkov |
Subject: |
Re: multi-occur-in-matching-buffers |
Date: |
Thu, 04 Mar 2010 23:12:11 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.1.93 (x86_64-pc-linux-gnu) |
>> It asked if it is too much to hope for ".*\.el". Eh, no wait, (concat
>> ".*" (file-name-extension (buffer-file-name)).
>
> Surely it merely misspoke and meant to say
>
> (concat (regexp-quote (file-name-extension buffer-file-name t)) "\\'")
>
> Surely a function that searches with regexps wouldn't make a mistake
> composing one, after all.
It is like its cousin in `dired-mark-files-regexp' I wanted to present
after the feature freeze:
=== modified file 'lisp/dired.el'
--- lisp/dired.el 2010-02-04 23:25:57 +0000
+++ lisp/dired.el 2010-03-04 21:11:09 +0000
@@ -2957,7 +2957,11 @@ (defun dired-mark-files-regexp (regexp &
object files--just `.o' will mark more than you might think."
(interactive
(list (dired-read-regexp (concat (if current-prefix-arg "Unmark" "Mark")
- " files (regexp): "))
+ " files (regexp): ")
+ nil nil
+ (concat (regexp-quote (file-name-extension
+ (dired-get-filename nil t)
t))
+ "\\'"))
(if current-prefix-arg ?\040)))
(let ((dired-marker-char (or marker-char dired-marker-char)))
(dired-mark-if
--
Juri Linkov
http://www.jurta.org/emacs/