mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-24 07:20:29 +00:00
Code

org-timer: Match paused timer value to docstring

Browse Source 
* lisp/org-timer.el (org-timer-pause-or-continue):
(org-timer-mode-line-string):
(org-timer-set-mode-line): Use `paused' rather than `pause'.
(org-timer-countdown-timer): Quote `paused' as symbol.
This commit is contained in:
Kyle Meyer 2015-09-22 00:15:26 -04:00
parent e3c2d211c1
commit 975e165b64
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/org-timer.el
View File

@ -49,7 +49,7 @@
(defvar org-timer-countdown-timer nil
"Current countdown timer.
This is a timer object if there is an active countdown timer,
'paused' if there is a paused countdown timer, and nil
`paused' if there is a paused countdown timer, and nil
otherwise.")
(defvar org-timer-countdown-timer-title nil
@ -183,10 +183,10 @@ With prefix arg STOP, stop it entirely."
;; pause timer
(when org-timer-countdown-timer
(cancel-timer org-timer-countdown-timer)
(setq org-timer-countdown-timer 'pause))
(setq org-timer-countdown-timer 'paused))
(run-hooks 'org-timer-pause-hook)
(setq org-timer-pause-time (current-time))
(org-timer-set-mode-line 'pause)
(org-timer-set-mode-line 'paused)
(message "Timer paused at %s" (org-timer-value-string)))))
(defun org-timer-stop ()
@ -331,7 +331,7 @@ If the integer is negative, the string will start with \"-\"."
(defun org-timer-set-mode-line (value)
"Set the mode-line display for relative or countdown timer.
VALUE can be `on', `off', or `pause'."
VALUE can be `on', `off', or `paused'."
(when (or (eq org-timer-display 'mode-line)
(eq org-timer-display 'both))
(or global-mode-string (setq global-mode-string '("")))
@ -357,7 +357,7 @@ VALUE can be `on', `off', or `pause'."
(setq frame-title-format
(delq 'org-timer-mode-line-string frame-title-format)))
(force-mode-line-update))
((equal value 'pause)
((equal value 'paused)
(when org-timer-mode-line-timer
(cancel-timer org-timer-mode-line-timer)
(setq org-timer-mode-line-timer nil)))