forked from mirrors/org-mode
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'.
This commit is contained in:
parent
9b29bcc7c3
commit
339601fe52
|
@ -6187,14 +6187,14 @@ to switch to narrowing."
|
||||||
"%s by tag [%s ], [TAB], %s[/]:off, [+-]:narrow, [>=<?]:effort: "
|
"%s by tag [%s ], [TAB], %s[/]:off, [+-]:narrow, [>=<?]:effort: "
|
||||||
(if narrow "Narrow" "Filter") tag-chars
|
(if narrow "Narrow" "Filter") tag-chars
|
||||||
(if org-agenda-auto-exclude-function "[RET], " ""))
|
(if org-agenda-auto-exclude-function "[RET], " ""))
|
||||||
(setq char (read-char)))
|
(setq char (read-char-exclusive)))
|
||||||
(when (member char '(?+ ?-))
|
(when (member char '(?+ ?-))
|
||||||
;; Narrowing down
|
;; Narrowing down
|
||||||
(cond ((equal char ?-) (setq strip t narrow t))
|
(cond ((equal char ?-) (setq strip t narrow t))
|
||||||
((equal char ?+) (setq strip nil narrow t)))
|
((equal char ?+) (setq strip nil narrow t)))
|
||||||
(message
|
(message
|
||||||
"Narrow by tag [%s ], [TAB], [/]:off, [>=<]:effort: " tag-chars)
|
"Narrow by tag [%s ], [TAB], [/]:off, [>=<]:effort: " tag-chars)
|
||||||
(setq char (read-char)))
|
(setq char (read-char-exclusive)))
|
||||||
(when (member char '(?< ?> ?= ??))
|
(when (member char '(?< ?> ?= ??))
|
||||||
;; An effort operator
|
;; An effort operator
|
||||||
(setq effort-op (char-to-string char))
|
(setq effort-op (char-to-string char))
|
||||||
|
@ -6207,7 +6207,7 @@ to switch to narrowing."
|
||||||
(if (= i 9) "0" (int-to-string (1+ i)))
|
(if (= i 9) "0" (int-to-string (1+ i)))
|
||||||
"]" (nth i efforts))))
|
"]" (nth i efforts))))
|
||||||
(message "Effort%s: %s " effort-op effort-prompt)
|
(message "Effort%s: %s " effort-op effort-prompt)
|
||||||
(setq char (read-char))
|
(setq char (read-char-exclusive))
|
||||||
(when (or (< char ?0) (> char ?9))
|
(when (or (< char ?0) (> char ?9))
|
||||||
(error "Need 1-9,0 to select effort" ))))
|
(error "Need 1-9,0 to select effort" ))))
|
||||||
(when (equal char ?\t)
|
(when (equal char ?\t)
|
||||||
|
|
Loading…
Reference in New Issue