mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

org-macs: Remove restriction when locating markers

Browse Source 
* org-macs.el: Remove restriction when locating markers

Allows org-with-point-at to locate point outside the current
restriction.
This commit is contained in:
Bernt Hansen 2014-06-14 22:50:07 -04:00 committed by Nicolas Goaziou
parent 3a1e6a3c3a
commit 61e06a038a
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-macs.el
View File

@ -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)