summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2014-01-16 00:53:28 +0100
committerBastien Guerry <bzg@altern.org>2014-01-16 00:53:28 +0100
commite7ebe4163af8ccdfb9d3e2446b05027b58f659cc (patch)
treebe0c2dcf0b88372e7d5d30894121fef8e4203461
parentff902c44298407bb61af91da197597383633f13e (diff)
downloadorg-mode-e7ebe4163af8ccdfb9d3e2446b05027b58f659cc.tar.gz
Fix bf0649release_8.2.5e
-rw-r--r--lisp/org-agenda.el16
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 6e56812..d885b4b 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -9920,13 +9920,13 @@ current HH:MM time."
(defun org-agenda-reapply-filters ()
"Re-apply all agenda filters."
(mapcar
- (lambda(f) (when (car f) (org-agenda-apply-filter (car f) (cadr f))))
- `((org-agenda-tag-filter 'tag)
- (org-agenda-category-filter 'category)
- (org-agenda-regexp-filter 'regexp)
- (,(get 'org-agenda-tag-filter :preset-filter) 'tag)
- (,(get 'org-agenda-category-filter :preset-filter) 'category)
- (,(get 'org-agenda-regexp-filter :preset-filter) 'regexp))))
+ (lambda(f) (when (car f) (org-agenda-filter-apply (car f) (cadr f))))
+ `((,org-agenda-tag-filter tag)
+ (,org-agenda-category-filter category)
+ (,org-agenda-regexp-filter regexp)
+ (,(get 'org-agenda-tag-filter :preset-filter) tag)
+ (,(get 'org-agenda-category-filter :preset-filter) category)
+ (,(get 'org-agenda-regexp-filter :preset-filter) regexp))))
(defun org-agenda-drag-line-forward (arg &optional backward)
"Drag an agenda line forward by ARG lines.
@@ -9946,7 +9946,7 @@ When the optional argument `backward' is non-nil, move backward."
(delete-region (point) end)
(move-beginning-of-line (funcall (if backward '1- '1+) arg))
(insert line)
- (org-agenda-apply-filters)
+ (org-agenda-reapply-filters)
(move-beginning-of-line 0)))))
(defun org-agenda-drag-line-backward (arg)