diff options
author | Bastien Guerry <bzg@altern.org> | 2013-02-19 09:48:11 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2013-02-19 09:48:11 +0100 |
commit | c64c5992212fd7acc11d3922b2a0bd5cd44fbf08 (patch) | |
tree | d2655e028e6ab02ee6630829ea66359622bf48f6 | |
parent | 33d362788e01b2925fcbdee4bd28309b0fe9f3b2 (diff) | |
download | org-mode-c64c5992212fd7acc11d3922b2a0bd5cd44fbf08.tar.gz |
org-agenda.el (org-agenda-format-item): Only set the breadcrumbs when `org-prefix-has-breadcrumbs' is non-nil
* org-agenda.el (org-agenda-format-item): Only set the
breadcrumbs when `org-prefix-has-breadcrumbs' is non-nil.
-rw-r--r-- | lisp/org-agenda.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 86b6e09..9371d30 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6636,6 +6636,10 @@ Any match of REMOVE-RE will be removed from TXT." (add-text-properties 0 (length txt) '(org-heading t) txt) ;; Prepare the variables needed in the eval of the compiled format + (if org-prefix-has-breadcrumbs + (setq breadcrumbs (org-with-point-at (org-get-at-bol 'org-marker) + (let ((s (org-display-outline-path nil nil "->" t))) + (if (eq "" s) "" (concat s "->")))))) (setq time (cond (s2 (concat (org-agenda-time-of-day-to-ampm-maybe s1) "-" (org-agenda-time-of-day-to-ampm-maybe s2) @@ -6647,9 +6651,6 @@ Any match of REMOVE-RE will be removed from TXT." "......"))) (t "")) extra (or (and (not habitp) extra) "") - breadcrumbs (org-with-point-at (org-get-at-bol 'org-marker) - (let ((s (org-display-outline-path nil nil "->" t))) - (if (eq "" s) "" (concat s "->")))) category (if (symbolp category) (symbol-name category) category) thecategory (copy-sequence category) level (or level "")) |