From c63250072713474f1c280fce6fa4708019a31142 Mon Sep 17 00:00:00 2001 From: OZoneGuy Date: Sun, 7 Jan 2024 18:11:14 -0500 Subject: [PATCH] chore: undo white space changes --- org-ql-search.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/org-ql-search.el b/org-ql-search.el index be7ff22c..a63779c3 100644 --- a/org-ql-search.el +++ b/org-ql-search.el @@ -229,10 +229,10 @@ automatically from the query." ('nil (org-agenda-files nil 'ifmode)) (_ (prog1 org-agenda-restrict (with-current-buffer org-agenda-restrict - ;; Narrow the buffer; remember to widen it later. - (setf old-beg (point-min) old-end (point-max) + ;; Narrow the buffer; remember to widen it later. + (setf old-beg (point-min) old-end (point-max) narrow-p t) - (narrow-to-region org-agenda-restrict-begin org-agenda-restrict-end)))))) + (narrow-to-region org-agenda-restrict-begin org-agenda-restrict-end)))))) (items (org-ql-select from query :action 'element-with-markers :narrow narrow-p)))