emacs-elpa-diffs
[Top][All Lists]
Advanced

[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.")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]