From 9aba73a28b7c09822f016caae41408b8963ac104 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Fri, 22 Sep 2023 22:57:28 -0500 Subject: [PATCH] WIP --- org-ql-completing-read.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/org-ql-completing-read.el b/org-ql-completing-read.el index 7870247..d67ca86 100644 --- a/org-ql-completing-read.el +++ b/org-ql-completing-read.el @@ -147,6 +147,7 @@ single predicate)." ;; (message "ORG-QL-COMPLETING-READ: Starts.") (let ((table (make-hash-table :test #'equal)) (disambiguations (make-hash-table :test #'equal)) + (window-width (window-width)) last-input org-outline-path-cache query-tokens) (cl-labels (;; (debug-message ;; (f &rest args) (apply #'message (concat "ORG-QL-COMPLETING-READ: " f) args)) @@ -206,7 +207,7 @@ single predicate)." (marker) (when-let ((snippet (org-with-point-at marker - (or (funcall org-ql-completing-read-snippet-function snippet-regexp) + (or (funcall org-ql-completing-read-snippet-function org-ql-completing-read-input-regexp) (org-ql-completing-read--snippet-simple))))) (propertize (concat " " snippet) 'face 'org-ql-completing-read-snippet)))