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

Fix string mismatch in tests

Browse source 
See https://github.com/jorgenschaefer/emacs-buttercup/issues/228
This commit is contained in:
Stefan van der Walt 2023-01-19 00:05:00 -08:00
parent 29533525c3
commit 81192d5234
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
org-ql-view.el
View file

@ -672,7 +672,9 @@ When opened, the link searches the buffer it's opened from."
(when (buffer-base-buffer thing) (when (buffer-base-buffer thing)
(buffer-file-name (buffer-base-buffer thing)))))))) (buffer-file-name (buffer-base-buffer thing))))))))
(unless (strings-or-file-buffers-p org-ql-view-buffers-files) (unless (strings-or-file-buffers-p org-ql-view-buffers-files)
(user-error "Views that search non-file-backed buffers can't be linked to")) ;; See https://github.com/jorgenschaefer/emacs-buttercup/issues/228
;; for why we need to raise the error using "%s"
(user-error "%s" "Views that search non-file-backed buffers can't be linked to"))
(let* ((query-string (--if-let (org-ql--query-sexp-to-string org-ql-view-query) (let* ((query-string (--if-let (org-ql--query-sexp-to-string org-ql-view-query)
it (org-ql-view--format-query org-ql-view-query))) it (org-ql-view--format-query org-ql-view-query)))
(buffers-files (prompt-for (org-ql-view--contract-buffers-files org-ql-view-buffers-files))) (buffers-files (prompt-for (org-ql-view--contract-buffers-files org-ql-view-buffers-files)))