forked from mirrors/org-mode
Fix typo in agenda local variable
* lisp/org-agenda.el (org-agenda-filter-by-tag): Fix variable name typo maybe-reftresh -> maybe-refresh
This commit is contained in:
parent
383cb5dcaa
commit
4262dc1cbc
|
@ -5905,7 +5905,7 @@ to switch to narrowing."
|
||||||
(effort-prompt "")
|
(effort-prompt "")
|
||||||
(inhibit-read-only t)
|
(inhibit-read-only t)
|
||||||
(current org-agenda-filter)
|
(current org-agenda-filter)
|
||||||
maybe-reftresh a n tag)
|
maybe-refresh a n tag)
|
||||||
(unless char
|
(unless char
|
||||||
(message
|
(message
|
||||||
"%s by tag [%s ], [TAB], %s[/]:off, [+-]:narrow, [>=<?]:effort: "
|
"%s by tag [%s ], [TAB], %s[/]:off, [+-]:narrow, [>=<?]:effort: "
|
||||||
|
@ -5952,12 +5952,12 @@ to switch to narrowing."
|
||||||
(push modifier org-agenda-filter))))
|
(push modifier org-agenda-filter))))
|
||||||
(if (not (null org-agenda-filter))
|
(if (not (null org-agenda-filter))
|
||||||
(org-agenda-filter-apply org-agenda-filter)))
|
(org-agenda-filter-apply org-agenda-filter)))
|
||||||
(setq maybe-reftresh t))
|
(setq maybe-refresh t))
|
||||||
((equal char ?/)
|
((equal char ?/)
|
||||||
(org-agenda-filter-by-tag-show-all)
|
(org-agenda-filter-by-tag-show-all)
|
||||||
(when (get 'org-agenda-filter :preset-filter)
|
(when (get 'org-agenda-filter :preset-filter)
|
||||||
(org-agenda-filter-apply org-agenda-filter))
|
(org-agenda-filter-apply org-agenda-filter))
|
||||||
(setq maybe-reftresh t))
|
(setq maybe-refresh t))
|
||||||
((or (equal char ?\ )
|
((or (equal char ?\ )
|
||||||
(setq a (rassoc char alist))
|
(setq a (rassoc char alist))
|
||||||
(and (>= char ?0) (<= char ?9)
|
(and (>= char ?0) (<= char ?9)
|
||||||
|
@ -5974,9 +5974,9 @@ to switch to narrowing."
|
||||||
(cons (concat (if strip "-" "+") tag)
|
(cons (concat (if strip "-" "+") tag)
|
||||||
(if narrow current nil)))
|
(if narrow current nil)))
|
||||||
(org-agenda-filter-apply org-agenda-filter)
|
(org-agenda-filter-apply org-agenda-filter)
|
||||||
(setq maybe-reftresh t))
|
(setq maybe-refresh t))
|
||||||
(t (error "Invalid tag selection character %c" char)))
|
(t (error "Invalid tag selection character %c" char)))
|
||||||
(when (and maybe-reftresh
|
(when (and maybe-refresh
|
||||||
(eq org-agenda-clockreport-mode 'with-filter))
|
(eq org-agenda-clockreport-mode 'with-filter))
|
||||||
(org-agenda-redo))))
|
(org-agenda-redo))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue