ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove double function definition introduced by accident in 7ee4cb0245

This commit is contained in:
Carsten Dominik 2019-09-03 16:05:40 +02:00
parent 9962df2b48
commit 0dd77866cc
1 changed files with 0 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
lisp/org-agenda.el
View File

@ -7484,33 +7484,6 @@ With a prefix argument, exclude the lines of that category."
(list (concat "+" cat))) 'category)) (list (concat "+" cat))) 'category))
(t (error "No category at point")))))) (t (error "No category at point"))))))
(defun org-agenda-filter-by-category (strip)
"Filter lines in the agenda buffer that have a specific category.
The category is that of the current line.
Without prefix argument STRIP, keep only the lines of that category.
With a prefix argument, exclude the lines of that category."
(interactive "P")
(if (and org-agenda-filtered-by-category
org-agenda-category-filter)
(progn
(org-agenda-filter-show-all-cat)
(message "All categories are shown"))
(let* ((categories (org-agenda-get-represented-categories))
(defcat (org-no-properties (or (org-agenda-get-category)
(car categories))))
(cat (completing-read (format "Category [%s]: " defcat)
(org-agenda-get-represented-categories)
nil t nil nil defcat)))
(cond
((and cat strip)
(org-agenda-filter-apply
(push (concat "-" cat) org-agenda-category-filter) 'category))
(cat
(org-agenda-filter-apply
(setq org-agenda-category-filter
(list (concat "+" cat))) 'category))
(t (error "No category at point"))))))
(defun org-find-top-headline (&optional pos) (defun org-find-top-headline (&optional pos)
"Find the topmost parent headline and return it. "Find the topmost parent headline and return it.
POS when non-nil is the marker or buffer position to start the POS when non-nil is the marker or buffer position to start the