summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien <bzg@gnu.org>2020-05-24 14:25:56 +0200
committerBastien <bzg@gnu.org>2020-05-24 14:25:56 +0200
commitb614ed0bba2504c8607909209c6c73472bb8d20a (patch)
treead56f7390fda69b841e7822859c6e2e92a930047
parentceb0ef95fb3303215bfb213d81f2a35a9be7b8f0 (diff)
downloadorg-mode-b614ed0bba2504c8607909209c6c73472bb8d20a.tar.gz
lisp/org-agenda.el: Remove redundant code
* lisp/org-agenda.el (org-agenda-get-some-entry-text) (org-agenda-finalize): Remove redundant code: the 'org-link face is already set by `org-activate-links'. Thanks to Kevin Liu for reporting this.
-rw-r--r--lisp/org-agenda.el6
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 5372c7a..78fe133 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -3608,8 +3608,7 @@ removed from the entry content. Currently only `planning' is allowed here."
(when org-agenda-add-entry-text-descriptive-links
(goto-char (point-min))
(while (org-activate-links (point-max))
- (add-text-properties (match-beginning 0) (match-end 0)
- '(face org-link))))
+ (goto-char (match-end 0))))
(goto-char (point-min))
(while (re-search-forward org-link-bracket-re (point-max) t)
(set-text-properties (match-beginning 0) (match-end 0)
@@ -3871,8 +3870,7 @@ FILTER-ALIST is an alist of filters we need to apply when
(goto-char (point-min))
(save-excursion
(while (org-activate-links (point-max))
- (add-text-properties (match-beginning 0) (match-end 0)
- '(face org-link))))
+ (goto-char (match-end 0))))
(unless (eq org-agenda-remove-tags t)
(org-agenda-align-tags))
(unless org-agenda-with-colors