From a60c238417e7bd65c1d84625fd2cb0dbd0ed7a87 Mon Sep 17 00:00:00 2001 From: Adam Porter Date: Tue, 8 Oct 2019 21:02:18 -0500 Subject: [PATCH] Fix: (org-ql-search) Bind print-length in interactive form The list of buffers/files must always be printed completely. --- org-ql-search.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/org-ql-search.el b/org-ql-search.el index eb4e550..e7b372d 100644 --- a/org-ql-search.el +++ b/org-ql-search.el @@ -147,7 +147,8 @@ necessary." (pcase-exhaustive (completing-read "Buffers/Files: " (list 'buffer 'agenda 'directory 'all) nil nil (when org-ql-view-buffers-files - (prin1-to-string (cons 'list org-ql-view-buffers-files)))) + (let ((print-length nil)) + (prin1-to-string (cons 'list org-ql-view-buffers-files))))) ((or "" "buffer") (current-buffer)) ("agenda" (org-agenda-files)) ("all" (--select (equal (buffer-local-value 'major-mode it) 'org-mode)