diff options
author | Bastien Guerry <bzg@altern.org> | 2014-01-16 00:53:28 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2014-01-16 00:53:28 +0100 |
commit | e7ebe4163af8ccdfb9d3e2446b05027b58f659cc (patch) | |
tree | be0c2dcf0b88372e7d5d30894121fef8e4203461 | |
parent | ff902c44298407bb61af91da197597383633f13e (diff) | |
download | org-mode-62506bae823e0cf6a03afb7c953744d9992183a7.tar.gz |
Fix bf0649release_8.2.5e
-rw-r--r-- | lisp/org-agenda.el | 16 |
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) |