mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 22:37:47 +00:00
Code Releases Activity

Fix compiler warnings in the new filter code

Browse source
This commit is contained in:
Carsten Dominik 2019-08-29 22:00:34 +02:00
parent 26cde0972d
commit 4edf93a6de
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/org-agenda.el
View file

@ -7476,11 +7476,11 @@ With a prefix argument, exclude the lines of that category."
(progn
(org-agenda-filter-show-all-cat)
(message "All categories are shown"))
(let* ((categories (org-agenda-all-categories))
(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-all-categories)
(org-agenda-get-represented-categories)
nil t nil nil defcat)))
(cond
((and cat strip)
@ -7617,7 +7617,8 @@ get priority."
(fc (if keep org-agenda-category-filter))
(ft (if keep org-agenda-tag-filter))
(fe (if keep org-agenda-effort-filter))
(fr (if keep org-agenda-regexp-filter)))
(fr (if keep org-agenda-regexp-filter))
log s)
(while (string-match "^[ \t]*\\([-+]\\)?\\(\\([^-+<>=/ \t]+\\)\\|\\([<>=][0-9:]+\\)\\|\\(/\\([^/]+\\)/?\\)\\)"
f-string)
(setq log (if (match-beginning 1) (match-string 1 f-string) "+"))