From cc77b18797f9efeccc075fbd66e40d33826cf265 Mon Sep 17 00:00:00 2001 From: contrapunctus Date: Mon, 28 Jun 2021 06:53:35 +0530 Subject: [PATCH] fix(details): use read-from-minibuffer for filter --- elisp/chronometrist.el | 6 +++--- elisp/chronometrist.org | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/elisp/chronometrist.el b/elisp/chronometrist.el index bdc498b..b92a932 100644 --- a/elisp/chronometrist.el +++ b/elisp/chronometrist.el @@ -2202,10 +2202,10 @@ FILTER must be a filter specifier as described by (defun chronometrist-details-set-filter () "Prompt user for filter for current `chronometrist-details' buffer." (interactive) - (let* ((input (completing-read - (concat "Filter (blank, one or more keywords, " + (let* ((input (read-from-minibuffer + (concat "Filter (blank, a list of keywords, " "a plist, or a predicate): ") - nil nil nil + nil nil nil nil (pcase chronometrist-details-filter ('nil "") ((pred consp) (format "%S" chronometrist-details-filter))))) diff --git a/elisp/chronometrist.org b/elisp/chronometrist.org index fc5d26c..5fa89b2 100644 --- a/elisp/chronometrist.org +++ b/elisp/chronometrist.org @@ -3466,10 +3466,10 @@ FILTER must be a filter specifier as described by (defun chronometrist-details-set-filter () "Prompt user for filter for current `chronometrist-details' buffer." (interactive) - (let* ((input (completing-read - (concat "Filter (blank, one or more keywords, " + (let* ((input (read-from-minibuffer + (concat "Filter (blank, a list of keywords, " "a plist, or a predicate): ") - nil nil nil + nil nil nil nil (pcase chronometrist-details-filter ('nil "") ((pred consp) (format "%S" chronometrist-details-filter)))))