diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 44b03f998..ba6372b3a 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-01-26 Carsten Dominik + + * org-clock.el (org-clock-in): Improve the look of the clock line + by formatting links. + 2010-01-24 Carsten Dominik * org-latex.el (org-export-latex-classes): Use AUTO as the place diff --git a/lisp/org-clock.el b/lisp/org-clock.el index c0fcdab73..6e895bfc4 100644 --- a/lisp/org-clock.el +++ b/lisp/org-clock.el @@ -964,7 +964,9 @@ the clocking selection, associated with the letter `d'." (functionp org-clock-heading-function)) (funcall org-clock-heading-function)) ((looking-at org-complex-heading-regexp) - (match-string 4)) + (replace-regexp-in-string + "\\[\\[.*?\\]\\[\\(.*?\\)\\]\\]" "\\1" + (match-string 4))) (t "???"))) (setq org-clock-heading (org-propertize org-clock-heading 'face nil))