Skip to content
Browse files

read-eventが 'return を返したときに対応

  • Loading branch information...
1 parent 4cea130 commit b874c5b486050ab01b7e39719596b06a01f9b51a @kawaguchi committed Oct 1, 2010
Showing with 3 additions and 2 deletions.
  1. +3 −2 jaunte.el
View
5 jaunte.el
@@ -126,8 +126,9 @@
(while (not (null jaunte--hints))
(setq k (read-event (concat "Jaunte to " key)))
(if (and (not (null key))
- (or (= k 13) ;; RET
- (= k 10))) ;; \n
+ (or (equal k 13) ;; C-j
+ (equal k 10) ;; C-m
+ (equal k 'return))) ;; RET
(jaunte-search key t)
(setq key (concat key (char-to-string k)))
(jaunte-search key))

0 comments on commit b874c5b

Please sign in to comment.
Something went wrong with that request. Please try again.