From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?utf-8?Q?=C5=81ukasz?= Stelmach Subject: Re: Q : select current org item as region Date: Thu, 09 Sep 2010 14:48:17 +0200 Message-ID: <87lj7bw0a6.fsf@dasa3.iem.pw.edu.pl> References: Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: 8bit Return-path: Received: from [140.186.70.92] (port=59287 helo=eggs.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1OtgYR-0002OB-EB for emacs-orgmode@gnu.org; Thu, 09 Sep 2010 08:48:45 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.69) (envelope-from ) id 1OtgYL-0007hg-Qv for emacs-orgmode@gnu.org; Thu, 09 Sep 2010 08:48:39 -0400 Received: from lo.gmane.org ([80.91.229.12]:41881) by eggs.gnu.org with esmtp (Exim 4.69) (envelope-from ) id 1OtgYL-0007hT-LM for emacs-orgmode@gnu.org; Thu, 09 Sep 2010 08:48:33 -0400 Received: from list by lo.gmane.org with local (Exim 4.69) (envelope-from ) id 1OtgYK-0005ba-A0 for emacs-orgmode@gnu.org; Thu, 09 Sep 2010 14:48:32 +0200 Received: from dasa3.iem.pw.edu.pl ([194.29.147.110]) by main.gmane.org with esmtp (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 09 Sep 2010 14:48:32 +0200 Received: from lukasz.stelmach by dasa3.iem.pw.edu.pl with local (Gmexim 0.1 (Debian)) id 1AlnuQ-0007hv-00 for ; Thu, 09 Sep 2010 14:48:32 +0200 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: emacs-orgmode@gnu.org Richard Riley writes: > What would be the best elisp way to select the current org entry? I want > a hot key to select the current item as current region (not into the > clipboard). > This is mine: --8<---------------cut here---------------start------------->8--- (defun stl/outline-mark-subtree () "Mark the current subtree in an outlined document. This puts point at the start of the current subtree, and mark at the start of the next." (interactive) (let ((beg)) (if (outline-on-heading-p) ;; we are already looking at a heading (beginning-of-line) ;; else go back to previous heading (outline-previous-visible-heading 1)) (setq beg (point)) (outline-end-of-subtree) (outline-next-visible-heading 1) ; just before the next heading (stl) (push-mark (point) nil t) (goto-char beg))) --8<---------------cut here---------------end--------------->8--- it's derived from the original outline-mark subtree but marks an empty space before a next-same-level-heading. -- Miłego dnia, Łukasz Stelmach