Re: multi-occur-in-matching-buffers

[Juri Linkov <juri@jurta.org>]

>> 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/