From mboxrd@z Thu Jan 1 00:00:00 1970 From: Bernt Hansen Subject: [PATCH] Remove restriction when locating markers Date: Sat, 14 Jun 2014 22:50:07 -0400 Message-ID: <1402800607-2290-1-git-send-email-bernt@norang.ca> References: <87r42r7bss.fsf@norang.ca> Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:60777) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ww0Wl-00086T-Uf for emacs-orgmode@gnu.org; Sat, 14 Jun 2014 22:50:48 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Ww0We-0001C8-F2 for emacs-orgmode@gnu.org; Sat, 14 Jun 2014 22:50:39 -0400 Received: from mho-03-ewr.mailhop.org ([204.13.248.66]:19629 helo=mho-01-ewr.mailhop.org) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Ww0We-0001C4-BT for emacs-orgmode@gnu.org; Sat, 14 Jun 2014 22:50:32 -0400 Received: from cpe000102d0fe75-cm68b6fcf41760.cpe.net.cable.rogers.com ([99.239.136.54] helo=mail.norang.ca) by mho-01-ewr.mailhop.org with esmtpsa (TLSv1:AES256-SHA:256) (Exim 4.72) (envelope-from ) id 1Ww0Wc-0005C3-LO for emacs-orgmode@gnu.org; Sun, 15 Jun 2014 02:50:31 +0000 In-Reply-To: <87r42r7bss.fsf@norang.ca> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org Cc: Bernt Hansen * org-macs.el: Remove restriction when locating markers Allows org-with-point-at to locate point outside the current restriction. --- lisp/org-macs.el | 6 +++--- 1 files changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/org-macs.el b/lisp/org-macs.el index ddd6e2e..96265ec 100644 --- a/lisp/org-macs.el +++ b/lisp/org-macs.el @@ -154,9 +154,9 @@ We use a macro so that the test can happen at compilation time." `(let ((,mpom ,pom)) (save-excursion (if (markerp ,mpom) (set-buffer (marker-buffer ,mpom))) - (save-excursion - (goto-char (or ,mpom (point))) - ,@body))))) + (org-with-wide-buffer + (goto-char (or ,mpom (point))) + ,@body))))) (def-edebug-spec org-with-point-at (form body)) (put 'org-with-point-at 'lisp-indent-function 1) -- 1.7.9.48.g85da4d