On 25.8.2011, at 06:25, David Maus wrote: > * org.el (org-map-entries): Extend scope 'region to include entire > body of last headline in active region. > --- > lisp/org.el | 8 ++++++-- > 1 files changed, 6 insertions(+), 2 deletions(-) > > diff --git a/lisp/org.el b/lisp/org.el > index de8c72b..b69b77c 100644 > --- a/lisp/org.el > +++ b/lisp/org.el > @@ -13633,8 +13633,12 @@ a *different* entry, you cannot use these > techniques." > (org-narrow-to-subtree) > (setq scope nil)) > ((and (eq scope 'region) (org-region-active-p)) > - (narrow-to-region (region-beginning) (region-end)) > - (setq scope nil))) > + (let ((end (save-excursion > + (goto-char (region-end)) > + (outline-next-heading) > + (point)))) > + (narrow-to-region (region-beginning) end) > + (setq scope nil))))
Hi David, I think the better algorithm here would be this: If region-end is at the beginning of a line and that line is a headline, use region-end as it is. If not, jump to the next headline. Cheers - Carsten > > (if (not scope) > (progn > -- > 1.7.2.5 > >
