ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge branch 'maint' 

Conflicts:
	lisp/org-clock.el
This commit is contained in:
Bastien Guerry 2014-04-18 21:33:52 +02:00
parent 7656f689ac 7c5cf02e2f
commit 51c37c5c19
1 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lisp/org-clock.el
View File

@ -1855,17 +1855,20 @@ Use \\[org-clock-remove-overlays] to remove the subtree times."
This creates a new overlay and stores it in `org-clock-overlays', so that it This creates a new overlay and stores it in `org-clock-overlays', so that it
will be easy to remove." will be easy to remove."
(let (ov tx) (let (ov tx)
(org-move-to-column 60) (beginning-of-line)
(unless (eolp) (skip-chars-backward "^ \t")) (when (looking-at org-complex-heading-regexp)
(skip-chars-backward " \t") (goto-char (match-beginning 4)))
(setq ov (make-overlay (point-at-bol) (point-at-eol)) (setq ov (make-overlay (point) (point-at-eol))
tx (concat (buffer-substring (point-at-bol) (point)) tx (concat (buffer-substring-no-properties (point) (match-end 4))
(make-string (org-add-props
(max 0 (- (- 60 (current-column)) (make-string
(length (org-get-at-bol 'line-prefix)))) ?·) (max 0 (- (- 60 (current-column))
(- (match-end 4) (match-beginning 4))
(length (org-get-at-bol 'line-prefix)))) ?·)
'(face shadow))
(org-add-props (org-add-props
(format " %9s " (org-minutes-to-clocksum-string time)) (format " %9s " (org-minutes-to-clocksum-string time))
(list 'face 'org-clock-overlay)) '(face org-clock-overlay))
"")) ""))
(if (not (featurep 'xemacs)) (if (not (featurep 'xemacs))
(overlay-put ov 'display tx) (overlay-put ov 'display tx)