From 0dd77866cc4b755160261ece7bac5de394cadec5 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Tue, 3 Sep 2019 16:05:40 +0200 Subject: [PATCH] Remove double function definition introduced by accident in 7ee4cb02450279c3d4bdfa2700691d2e1847f967 --- lisp/org-agenda.el | 27 --------------------------- 1 file changed, 27 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index f4ad23f47..e718bc063 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -7484,33 +7484,6 @@ With a prefix argument, exclude the lines of that category." (list (concat "+" cat))) 'category)) (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) "Find the topmost parent headline and return it. POS when non-nil is the marker or buffer position to start the