fix(details): use read-from-minibuffer for filter
This commit is contained in:
parent
fd468a9ed5
commit
cc77b18797
|
@ -2202,10 +2202,10 @@ FILTER must be a filter specifier as described by
|
||||||
(defun chronometrist-details-set-filter ()
|
(defun chronometrist-details-set-filter ()
|
||||||
"Prompt user for filter for current `chronometrist-details' buffer."
|
"Prompt user for filter for current `chronometrist-details' buffer."
|
||||||
(interactive)
|
(interactive)
|
||||||
(let* ((input (completing-read
|
(let* ((input (read-from-minibuffer
|
||||||
(concat "Filter (blank, one or more keywords, "
|
(concat "Filter (blank, a list of keywords, "
|
||||||
"a plist, or a predicate): ")
|
"a plist, or a predicate): ")
|
||||||
nil nil nil
|
nil nil nil nil
|
||||||
(pcase chronometrist-details-filter
|
(pcase chronometrist-details-filter
|
||||||
('nil "")
|
('nil "")
|
||||||
((pred consp) (format "%S" chronometrist-details-filter)))))
|
((pred consp) (format "%S" chronometrist-details-filter)))))
|
||||||
|
|
|
@ -3466,10 +3466,10 @@ FILTER must be a filter specifier as described by
|
||||||
(defun chronometrist-details-set-filter ()
|
(defun chronometrist-details-set-filter ()
|
||||||
"Prompt user for filter for current `chronometrist-details' buffer."
|
"Prompt user for filter for current `chronometrist-details' buffer."
|
||||||
(interactive)
|
(interactive)
|
||||||
(let* ((input (completing-read
|
(let* ((input (read-from-minibuffer
|
||||||
(concat "Filter (blank, one or more keywords, "
|
(concat "Filter (blank, a list of keywords, "
|
||||||
"a plist, or a predicate): ")
|
"a plist, or a predicate): ")
|
||||||
nil nil nil
|
nil nil nil nil
|
||||||
(pcase chronometrist-details-filter
|
(pcase chronometrist-details-filter
|
||||||
('nil "")
|
('nil "")
|
||||||
((pred consp) (format "%S" chronometrist-details-filter)))))
|
((pred consp) (format "%S" chronometrist-details-filter)))))
|
||||||
|
|
Reference in New Issue