blob: 9025207656e43e3f0b1e82ba43d77f1922130a34 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
--- navi2ch-util.el.orig Wed Nov 21 23:47:00 2001
+++ navi2ch-util.el Tue Nov 27 11:19:39 2001
@@ -303,7 +303,8 @@
(again nil))
(catch 'exit
(while t
- (let ((c (read-event prompt)))
+ (message prompt)
+ (let ((c (read-char)))
(cond ((memq c '(?q ?Q))
(message (concat prompt "q"))
(throw 'exit (or quit-symbol nil)))
|
