org-clock: Use `org-link-display-format'

* lisp/org-clock.el (org-clock--mode-line-heading): Use
  `org-link-display-format'.
This commit is contained in:
Nicolas Goaziou 2018-12-02 14:49:02 +01:00
parent df7b8cdf70
commit 6f8347a834

View file

@ -522,8 +522,7 @@ cannot be translated."
(cond ((functionp org-clock-heading-function)
(funcall org-clock-heading-function))
((org-before-first-heading-p) "???")
(t (replace-regexp-in-string
org-bracket-link-analytic-regexp "\\5"
(t (org-link-display-format
(org-no-properties (org-get-heading t t t t))))))
(defun org-clock-menu ()