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

Fix compiler warnings in the new filter code

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) "+"))