diff --git a/elisp/chronometrist.el b/elisp/chronometrist.el index d0a095b..6bedc83 100644 --- a/elisp/chronometrist.el +++ b/elisp/chronometrist.el @@ -2163,7 +2163,8 @@ TABLE must be a hash table similar to `chronometrist-events'." ((pred stringp) (format "%s" chronometrist-details-range)) (`(,begin . ,end) - (format "%s,%s" begin end)))))) + (format "%s,%s" begin end))) + 'chronometrist-details-range-history))) (pcase input ('nil (setq-local chronometrist-details-range nil)) (`(,date) @@ -2205,7 +2206,7 @@ FILTER must be a filter specifier as described by (let* ((input (read-from-minibuffer (concat "Filter (blank, a list of keywords, " "a plist, or a predicate): ") - nil nil nil nil + nil nil nil 'chronometrist-details-filter-history (pcase chronometrist-details-filter ('nil "") ((pred consp) (format "%S" chronometrist-details-filter))))) diff --git a/elisp/chronometrist.org b/elisp/chronometrist.org index d3293a9..5461820 100644 --- a/elisp/chronometrist.org +++ b/elisp/chronometrist.org @@ -3418,7 +3418,8 @@ TABLE must be a hash table similar to `chronometrist-events'." ((pred stringp) (format "%s" chronometrist-details-range)) (`(,begin . ,end) - (format "%s,%s" begin end)))))) + (format "%s,%s" begin end))) + 'chronometrist-details-range-history))) (pcase input ('nil (setq-local chronometrist-details-range nil)) (`(,date) @@ -3469,7 +3470,7 @@ FILTER must be a filter specifier as described by (let* ((input (read-from-minibuffer (concat "Filter (blank, a list of keywords, " "a plist, or a predicate): ") - nil nil nil nil + nil nil nil 'chronometrist-details-filter-history (pcase chronometrist-details-filter ('nil "") ((pred consp) (format "%S" chronometrist-details-filter)))))