From e7ebe4163af8ccdfb9d3e2446b05027b58f659cc Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Thu, 16 Jan 2014 00:53:28 +0100 Subject: [PATCH] Fix bf0649 --- lisp/org-agenda.el | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 6e56812f8..d885b4bc1 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) -- 2.11.4.GIT