|
@@ -110,6 +110,11 @@ We use a macro so that the test can happen at compilation time."
|
|
|
`(unless (get-text-property (1- (point)) 'org-protected)
|
|
|
,@body))
|
|
|
|
|
|
+(defmacro org-if-unprotected-at (pos &rest body)
|
|
|
+ "Execute BODY if there is no `org-protected' text property at point-1."
|
|
|
+ `(unless (get-text-property ,pos 'org-protected)
|
|
|
+ ,@body))
|
|
|
+
|
|
|
(defmacro org-with-remote-undo (_buffer &rest _body)
|
|
|
"Execute BODY while recording undo information in two buffers."
|
|
|
`(let ((_cline (org-current-line))
|