jiri/org-ql
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix: (org-ql-search) Bind print-length in interactive form

Browse source 
The list of buffers/files must always be printed completely.
This commit is contained in:
Adam Porter 2019-10-08 21:02:18 -05:00
parent e9e756331c
commit a60c238417
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
org-ql-search.el
View file

@ -147,7 +147,8 @@ necessary."
(pcase-exhaustive (completing-read "Buffers/Files: " (pcase-exhaustive (completing-read "Buffers/Files: "
(list 'buffer 'agenda 'directory 'all) (list 'buffer 'agenda 'directory 'all)
nil nil (when org-ql-view-buffers-files 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)) ((or "" "buffer") (current-buffer))
("agenda" (org-agenda-files)) ("agenda" (org-agenda-files))
("all" (--select (equal (buffer-local-value 'major-mode it) 'org-mode) ("all" (--select (equal (buffer-local-value 'major-mode it) 'org-mode)