[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/tmr 1751526fb6 4/4: Make tmr-duration-history public
From: |
ELPA Syncer |
Subject: |
[elpa] externals/tmr 1751526fb6 4/4: Make tmr-duration-history public |
Date: |
Tue, 28 Jun 2022 02:58:05 -0400 (EDT) |
branch: externals/tmr
commit 1751526fb6de0ce9c2f053137df4c11d18b564dd
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>
Make tmr-duration-history public
---
tmr.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/tmr.el b/tmr.el
index 8a93e2c1cc..1fec868e94 100644
--- a/tmr.el
+++ b/tmr.el
@@ -310,19 +310,19 @@ TIMER is unused."
"Show a `message' informing the user that TIMER is cancelled."
(message "Cancelled: <<%s>>" (tmr--long-description timer)))
-(defvar tmr--duration-hist '()
+(defvar tmr-duration-history '()
"Minibuffer history of `tmr' durations.")
(defun tmr--read-duration (&optional default)
"Ask the user to type a duration.
If DEFAULT is provided, use that as a default."
- (let ((def (or default (nth 0 tmr--duration-hist))))
+ (let ((def (or default (nth 0 tmr-duration-history))))
(read-string
(if def
(format "N minutes for timer (append `h' or `s' for other units)
[%s]: " def)
"N minutes for timer (append `h' or `s' for other units): ")
nil
- 'tmr--duration-hist def)))
+ 'tmr-duration-history def)))
(defvar tmr-description-history '()
"Minibuffer history of `tmr' descriptions.")