From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Juri Linkov Newsgroups: gmane.emacs.devel Subject: Re: multi-occur-in-matching-buffers Date: Thu, 04 Mar 2010 23:12:11 +0200 Organization: JURTA Message-ID: <878wa7hklw.fsf@mail.jurta.org> References: <87zl4ff7td.fsf@mail.jurta.org> <50327.130.55.132.161.1267683318.squirrel@webmail.lanl.gov> NNTP-Posting-Host: lo.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: dough.gmane.org 1267751331 28865 80.91.229.12 (5 Mar 2010 01:08:51 GMT) X-Complaints-To: usenet@dough.gmane.org NNTP-Posting-Date: Fri, 5 Mar 2010 01:08:51 +0000 (UTC) Cc: Lennart Borgman , Emacs-Devel devel To: herring@lanl.gov Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Fri Mar 05 02:08:45 2010 connect(): Connection refused Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by lo.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1NnIfw-0002pf-As for ged-emacs-devel@m.gmane.org; Thu, 04 Mar 2010 22:33:44 +0100 Original-Received: from localhost ([127.0.0.1]:55563 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NnIWp-0003PL-Cd for ged-emacs-devel@m.gmane.org; Thu, 04 Mar 2010 16:24:19 -0500 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1NnIUM-0002Za-5Z for emacs-devel@gnu.org; Thu, 04 Mar 2010 16:21:46 -0500 Original-Received: from [140.186.70.92] (port=49104 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1NnIUI-0002Wy-5h for emacs-devel@gnu.org; Thu, 04 Mar 2010 16:21:45 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1NnIUG-0004Mg-25 for emacs-devel@gnu.org; Thu, 04 Mar 2010 16:21:42 -0500 Original-Received: from smtp-out1.starman.ee ([85.253.0.3]:60023 helo=mx1.starman.ee) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1NnIUF-0004LX-M5 for emacs-devel@gnu.org; Thu, 04 Mar 2010 16:21:39 -0500 X-Virus-Scanned: by Amavisd-New at mx1.starman.ee Original-Received: from mail.starman.ee (82.131.95.247.cable.starman.ee [82.131.95.247]) by mx1.starman.ee (Postfix) with ESMTP id DD1D03F40A6; Thu, 4 Mar 2010 23:21:30 +0200 (EET) In-Reply-To: <50327.130.55.132.161.1267683318.squirrel@webmail.lanl.gov> (Davis Herring's message of "Wed, 3 Mar 2010 22:15:18 -0800 (PST)") User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.1.93 (x86_64-pc-linux-gnu) X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6, seldom 2.4 (older, 4) X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:121648 Archived-At: >> 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/