diff options
author | Bernt Hansen <bernt@norang.ca> | 2011-04-14 03:05:25 +0000 |
---|---|---|
committer | Carsten Dominik <carsten.dominik@gmail.com> | 2011-04-15 13:56:12 +0200 |
commit | 4262dc1cbc4006d3ed7addc69fc53040bfc8cf92 (patch) | |
tree | c226f7c10c694f7196332829251e2a1527d47202 | |
parent | 383cb5dcaa2f645de1d4574b0074fa6df84839bc (diff) | |
download | org-mode-4262dc1cbc4006d3ed7addc69fc53040bfc8cf92.tar.gz |
Fix typo in agenda local variable
* lisp/org-agenda.el (org-agenda-filter-by-tag): Fix variable name typo
maybe-reftresh -> maybe-refresh
-rw-r--r-- | lisp/org-agenda.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index ae54477..7c55bd5 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -5905,7 +5905,7 @@ to switch to narrowing." (effort-prompt "") (inhibit-read-only t) (current org-agenda-filter) - maybe-reftresh a n tag) + maybe-refresh a n tag) (unless char (message "%s by tag [%s ], [TAB], %s[/]:off, [+-]:narrow, [>=<?]:effort: " @@ -5952,12 +5952,12 @@ to switch to narrowing." (push modifier org-agenda-filter)))) (if (not (null org-agenda-filter)) (org-agenda-filter-apply org-agenda-filter))) - (setq maybe-reftresh t)) + (setq maybe-refresh t)) ((equal char ?/) (org-agenda-filter-by-tag-show-all) (when (get 'org-agenda-filter :preset-filter) (org-agenda-filter-apply org-agenda-filter)) - (setq maybe-reftresh t)) + (setq maybe-refresh t)) ((or (equal char ?\ ) (setq a (rassoc char alist)) (and (>= char ?0) (<= char ?9) @@ -5974,9 +5974,9 @@ to switch to narrowing." (cons (concat (if strip "-" "+") tag) (if narrow current nil))) (org-agenda-filter-apply org-agenda-filter) - (setq maybe-reftresh t)) + (setq maybe-refresh t)) (t (error "Invalid tag selection character %c" char))) - (when (and maybe-reftresh + (when (and maybe-refresh (eq org-agenda-clockreport-mode 'with-filter)) (org-agenda-redo)))) |