diff options
author | Bastien Guerry <bzg@altern.org> | 2011-12-31 11:45:54 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-01-03 09:18:28 +0100 |
commit | 339601fe5200c718b0f6789b36413eaa80274fdf (patch) | |
tree | b46867687da4779bf9c13b8688f6e2aff56aca96 | |
parent | 9b29bcc7c346e596bc1ad24f316514774937534d (diff) | |
download | org-mode-339601fe5200c718b0f6789b36413eaa80274fdf.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 780794e..a543969 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -6187,14 +6187,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)) @@ -6207,7 +6207,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) |