branch: externals/org-real
commit 6ff554ce74160f2e664ed9225d4ec73094cd4453
Author: Amy Grinn <grinn....@gmail.com>
Commit: Amy Grinn <grinn....@gmail.com>
Detect return and backspace without gui
---
org-real.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/org-real.el b/org-real.el
index d075a3bb81..513863a25e 100644
--- a/org-real.el
+++ b/org-real.el
@@ -195,9 +195,9 @@ describing where BOX is."
(org-real--pp (org-real--make-instance 'org-real-box containers)
containers)
(let ((response (read-event "RETURN - Confirm\nBACKSPACE - Remove
context\n+ - Add context")))
(cond
- ((eq response 'return)
+ ((or (eq response 'return) (eq response 13))
(throw 'confirm containers))
- ((eq response 'backspace)
+ ((or (eq response 'backspace) (eq response 127))
(pop containers)
(if (= 0 (length containers))
(setq containers (org-real--complete-thing "Thing: "
container-matrix containers))))
