[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/org 1a5a326 3/5: * lisp/org-timer.el (org-timer--run-co
From: |
ELPA Syncer |
Subject: |
[elpa] externals/org 1a5a326 3/5: * lisp/org-timer.el (org-timer--run-countdown-timer): Use closures |
Date: |
Wed, 19 May 2021 08:57:16 -0400 (EDT) |
branch: externals/org
commit 1a5a326f106fa34b07b737c769308cbdfaeeb94d
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Bastien <bzg@gnu.org>
* lisp/org-timer.el (org-timer--run-countdown-timer): Use closures
---
lisp/org-timer.el | 17 +++++++++--------
1 file changed, 9 insertions(+), 8 deletions(-)
diff --git a/lisp/org-timer.el b/lisp/org-timer.el
index 60c6fa6..67b8c46 100644
--- a/lisp/org-timer.el
+++ b/lisp/org-timer.el
@@ -366,7 +366,7 @@ VALUE can be `on', `off', or `paused'."
(setq org-timer-mode-line-timer nil))
(when org-timer-display
(setq org-timer-mode-line-timer
- (run-with-timer 1 1 'org-timer-update-mode-line))))))
+ (run-with-timer 1 1 #'org-timer-update-mode-line))))))
(defun org-timer-update-mode-line ()
"Update the timer time in the mode line."
@@ -456,14 +456,15 @@ using three `C-u' prefix arguments."
"Start countdown timer that will last SECS.
TITLE will be appended to the notification message displayed when
time is up."
- (let ((msg (format "%s: time out" title)))
+ (let ((msg (format "%s: time out" title))
+ (sound org-clock-sound))
(run-with-timer
- secs nil `(lambda ()
- (setq org-timer-countdown-timer nil
- org-timer-start-time nil)
- (org-notify ,msg ,org-clock-sound)
- (org-timer-set-mode-line 'off)
- (run-hooks 'org-timer-done-hook)))))
+ secs nil (lambda ()
+ (setq org-timer-countdown-timer nil
+ org-timer-start-time nil)
+ (org-notify msg sound)
+ (org-timer-set-mode-line 'off)
+ (run-hooks 'org-timer-done-hook)))))
(defun org-timer--get-timer-title ()
"Construct timer title.