From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: [patch] now possible to search for text in folded blocks Date: Thu, 20 Aug 2009 08:59:49 +0100 Message-ID: <7A7E92E2-8292-4EEE-904A-EDE713E5E320@gmail.com> References: Mime-Version: 1.0 (Apple Message framework v936) Content-Type: text/plain; charset=US-ASCII; format=flowed; delsp=yes Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Me3nQ-0002ym-Rd for emacs-orgmode@gnu.org; Thu, 20 Aug 2009 05:19:00 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Me3nM-0002vk-2l for emacs-orgmode@gnu.org; Thu, 20 Aug 2009 05:19:00 -0400 Received: from [199.232.76.173] (port=41406 helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Me3nL-0002ve-UJ for emacs-orgmode@gnu.org; Thu, 20 Aug 2009 05:18:55 -0400 Received: from mail-ew0-f211.google.com ([209.85.219.211]:39113) by monty-python.gnu.org with esmtp (Exim 4.60) (envelope-from ) id 1Me3nL-0007oP-Gd for emacs-orgmode@gnu.org; Thu, 20 Aug 2009 05:18:55 -0400 Received: by ewy7 with SMTP id 7so1688928ewy.31 for ; Thu, 20 Aug 2009 02:18:54 -0700 (PDT) In-Reply-To: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Eric Schulte Cc: Org Mode Applied, thanks. - Carsten On Aug 19, 2009, at 10:19 PM, Eric Schulte wrote: > Please apply, I don't *think* this can break anything. Thanks -- Eric > > From f73d4b67c027209905dd90868d57440ceacdea28 Mon Sep 17 00:00:00 2001 > From: Eric Schulte > Date: Wed, 19 Aug 2009 15:17:09 -0600 > Subject: [PATCH] now possible to search for text inside of folded > blocks > > --- > lisp/org.el | 38 ++++++++++++++++++++++++-------------- > 1 files changed, 24 insertions(+), 14 deletions(-) > > diff --git a/lisp/org.el b/lisp/org.el > index e2cdce8..14adeda 100644 > --- a/lisp/org.el > +++ b/lisp/org.el > @@ -5364,24 +5364,34 @@ the range." > (beginning-of-line) > (if (re-search-forward org-block-regexp nil t) > (let ((start (- (match-beginning 4) 1)) ;; beginning of body > - (end (match-end 0)) > - ov) ;; end of entire body > + (end (match-end 0)) ;; end of entire body > + ov) > (if (memq t (mapcar (lambda (overlay) > (eq (org-overlay-get overlay > 'invisible) > - 'org-hide-block)) > + 'org-hide-block)) > (org-overlays-at start))) > - (if (or (not force) (eq force 'off)) > - (mapc (lambda (ov) > - (when (member ov org-hide-block-overlays) > - (setq org-hide-block-overlays > - (delq ov org-hide-block-overlays))) > - (when (eq (org-overlay-get ov 'invisible) > - 'org-hide-block) > - (org-delete-overlay ov))) > - (org-overlays-at start))) > - (setq ov (org-make-overlay start end)) > + (if (or (not force) (eq force 'off)) > + (mapc (lambda (ov) > + (when (member ov org-hide-block-overlays) > + (setq org-hide-block-overlays > + (delq ov org-hide-block-overlays))) > + (when (eq (org-overlay-get ov 'invisible) > + 'org-hide-block) > + (org-delete-overlay ov))) > + (org-overlays-at start))) > + (setq ov (org-make-overlay start end)) > (org-overlay-put ov 'invisible 'org-hide-block) > - (push ov org-hide-block-overlays))) > + ;; make the block accessible to isearch > + (org-overlay-put > + ov 'isearch-open-invisible > + (lambda (ov) > + (when (member ov org-hide-block-overlays) > + (setq org-hide-block-overlays > + (delq ov org-hide-block-overlays))) > + (when (eq (org-overlay-get ov 'invisible) > + 'org-hide-block) > + (org-delete-overlay ov)))) > + (push ov org-hide-block-overlays))) > (error "Not looking at a source block")))) > > ;; org-tab-after-check-for-cycling-hook > -- > 1.6.4.73.gc144 > > _______________________________________________ > Emacs-orgmode mailing list > Remember: use `Reply All' to send replies to the list. > Emacs-orgmode@gnu.org > http://lists.gnu.org/mailman/listinfo/emacs-orgmode