On 21/06/2022 19:03, Hugo Heagren wrote:
+(defmacro test-ol-with-link-parameters-as (type parameters &rest body)
[...]
+  `(progn
+     (setq orig-parameters org-link-parameters)

I can easily miss something, but wouldn't it be enough to use let-binding

`(let ((org-link-parameters org-link-parameters))
   ,@body)

Otherwise it is better to use something like `condition-case' to restore original state even when some error is signaled.

+     (org-link-set-parameters ,type ,@parameters)
+     (let ((rtn (progn ,@body)))
+       (setq org-link-parameters orig-parameters)
+       rtn)))



Reply via email to