diff options
| author | Bastien Guerry <bzg@altern.org> | 2012-08-19 08:01:43 +0200 |
|---|---|---|
| committer | Bastien Guerry <bzg@altern.org> | 2012-08-19 08:01:43 +0200 |
| commit | 62064c73fc135735a205b9523f0d6f78f147ca40 (patch) | |
| tree | 5f1238ec6afb8252efafc764589b57681c48504f | |
| parent | 56b731087ece7f52b9639da4dc1c3c8786a4cdb2 (diff) | |
| download | org-mode-62064c73fc135735a205b9523f0d6f78f147ca40.tar.gz | |
org-clock.el: Fix clock overlays bug
* org-clock.el (org-clock-put-overlay): Put the overlay on the
whole headline, not only on the last character. This fixes a
bug with overlays on headlines ending with a bracketed link.
Thanks to Ryan Kaskel for reporting this.
| -rw-r--r-- | lisp/org-clock.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org-clock.el b/lisp/org-clock.el index 9a31ef1..633fb2b 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -1798,8 +1798,8 @@ will be easy to remove." (org-move-to-column c) (unless (eolp) (skip-chars-backward "^ \t")) (skip-chars-backward " \t") - (setq ov (make-overlay (1- (point)) (point-at-eol)) - tx (concat (buffer-substring (1- (point)) (point)) + (setq ov (make-overlay (point-at-bol) (point-at-eol)) + tx (concat (buffer-substring (point-at-bol) (point)) (make-string (+ off (max 0 (- c (current-column)))) ?.) (org-add-props (if org-time-clocksum-use-fractional (format fmt |