diff options
author | Bastien Guerry <bzg@altern.org> | 2011-12-31 11:45:54 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-12-31 11:45:54 +0100 |
commit | e9633aeb45ed0deb65498065eb52fcb4620eac13 (patch) | |
tree | 6f7c4ab334ade8bacf80efe9c9c9c77c0dc626bf | |
parent | 64e8b941a8f2c9ed594d41df558518d3fec7ab51 (diff) | |
download | org-mode-e9633aeb45ed0deb65498065eb52fcb4620eac13.tar.gz |
org-agenda.el: Use `read-char-exclusive' instead of `read-char'.
* org-agenda.el (org-agenda-filter-by-tag): Use
`read-char-exclusive' instead of `read-char'.
-rw-r--r-- | lisp/org-agenda.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 1a24726..65b2867 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6188,14 +6188,14 @@ to switch to narrowing." "%s by tag [%s ], [TAB], %s[/]:off, [+-]:narrow, [>=<?]:effort: " (if narrow "Narrow" "Filter") tag-chars (if org-agenda-auto-exclude-function "[RET], " "")) - (setq char (read-char))) + (setq char (read-char-exclusive))) (when (member char '(?+ ?-)) ;; Narrowing down (cond ((equal char ?-) (setq strip t narrow t)) ((equal char ?+) (setq strip nil narrow t))) (message "Narrow by tag [%s ], [TAB], [/]:off, [>=<]:effort: " tag-chars) - (setq char (read-char))) + (setq char (read-char-exclusive))) (when (member char '(?< ?> ?= ??)) ;; An effort operator (setq effort-op (char-to-string char)) @@ -6208,7 +6208,7 @@ to switch to narrowing." (if (= i 9) "0" (int-to-string (1+ i))) "]" (nth i efforts)))) (message "Effort%s: %s " effort-op effort-prompt) - (setq char (read-char)) + (setq char (read-char-exclusive)) (when (or (< char ?0) (> char ?9)) (error "Need 1-9,0 to select effort" )))) (when (equal char ?\t) |