From: Bernt Hansen <bernt@norang.ca>
To: emacs-orgmode@gnu.org
Cc: Bernt Hansen <bernt@norang.ca>
Subject: [PATCH] Typo: left-over -> leftover
Date: Sun, 28 Mar 2010 22:16:44 -0400 [thread overview]
Message-ID: <1269829005-25254-4-git-send-email-bernt@norang.ca> (raw)
In-Reply-To: <1269829005-25254-1-git-send-email-bernt@norang.ca>
Since this is not an exposed variable we can rename it so that it is spelled
correctly.
---
lisp/ChangeLog | 2 +-
lisp/org-clock.el | 16 ++++++++--------
2 files changed, 9 insertions(+), 9 deletions(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a027996..c787f1b 100755
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -773,7 +773,7 @@
* org.el (org-offer-links-in-entry): Make RET open all links.
- * org-html.el (org-export-as-html): Remove any left-over display
+ * org-html.el (org-export-as-html): Remove any leftover display
properties in the html file.
* org-wl.el (org-wl-store-link): Work-around for format bug with
diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index d8d1fe0..42ff593 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -273,7 +273,7 @@ to add an effort property.")
(defvar org-clock-heading-for-remember "")
(defvar org-clock-start-time "")
-(defvar org-clock-left-over-time nil
+(defvar org-clock-leftover-time nil
"If non-nil, user cancelled a clock; this is when leftover time started.")
(defvar org-clock-effort ""
@@ -713,7 +713,7 @@ This routine can do one of many things:
(org-clock-clock-out clock fail-quietly resolve-to)
(unless org-clock-clocking-in
(if close-p
- (setq org-clock-left-over-time resolve-to)
+ (setq org-clock-leftover-time resolve-to)
(org-clock-clock-in clock)))))))
(defun org-clock-resolve (clock &optional prompt-fn last-valid fail-quietly)
@@ -896,14 +896,14 @@ the clocking selection, associated with the letter `d'."
(let ((interrupting (and (not org-clock-resolving-clocks-due-to-idleness)
(org-clocking-p)))
ts selected-task target-pos (msg-extra "")
- (left-over (and (not org-clock-resolving-clocks)
- org-clock-left-over-time)))
+ (leftover (and (not org-clock-resolving-clocks)
+ org-clock-leftover-time)))
(when (and org-clock-auto-clock-resolution
(or (not interrupting)
(eq t org-clock-auto-clock-resolution))
(not org-clock-clocking-in)
(not org-clock-resolving-clocks))
- (setq org-clock-left-over-time nil)
+ (setq org-clock-leftover-time nil)
(let ((org-clock-clocking-in t))
(org-resolve-clocks))) ; check if any clocks are dangling
(when (equal select '(4))
@@ -1021,13 +1021,13 @@ the clocking selection, associated with the letter `d'."
(setq org-clock-total-time (org-clock-sum-current-item
(org-clock-get-sum-start)))
(setq org-clock-start-time
- (or (and left-over
+ (or (and leftover
(y-or-n-p
(format
"You stopped another clock %d mins ago; start this one from then? "
(/ (- (org-float-time (current-time))
- (org-float-time left-over)) 60)))
- left-over)
+ (org-float-time leftover)) 60)))
+ leftover)
(current-time)))
(setq ts (org-insert-time-stamp org-clock-start-time
'with-hm 'inactive))))
--
1.7.0.2.279.gf1ba1c
next prev parent reply other threads:[~2010-03-29 2:17 UTC|newest]
Thread overview: 8+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-03-29 2:16 [PATCH] Miscellaneous fixes Bernt Hansen
2010-03-29 2:16 ` [PATCH] Reveal after goto Bernt Hansen
2010-03-29 2:16 ` [PATCH] Add completions for checkbox targets Bernt Hansen
2010-03-29 2:16 ` Bernt Hansen [this message]
2010-03-29 2:16 ` [PATCH] Refactor refiling code Bernt Hansen
2010-03-29 3:53 ` [PATCH] Miscellaneous fixes Carsten Dominik
2010-03-29 11:51 ` Bernt Hansen
2010-03-29 12:24 ` Carsten Dominik
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=1269829005-25254-4-git-send-email-bernt@norang.ca \
--to=bernt@norang.ca \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).