diff options
author | Bastien <bzg@gnu.org> | 2020-05-24 14:25:56 +0200 |
---|---|---|
committer | Bastien <bzg@gnu.org> | 2020-05-24 14:25:56 +0200 |
commit | b614ed0bba2504c8607909209c6c73472bb8d20a (patch) | |
tree | ad56f7390fda69b841e7822859c6e2e92a930047 | |
parent | ceb0ef95fb3303215bfb213d81f2a35a9be7b8f0 (diff) | |
download | org-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.el | 6 |
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 |