Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Emacs22に無い関数を使わない

  • Loading branch information...
commit 4cea1302a8ea7ab4e682838f953f501af847aed0 1 parent cfeecc9
@kawaguchi authored
Showing with 2 additions and 2 deletions.
  1. +2 −2 jaunte.el
View
4 jaunte.el
@@ -8,7 +8,7 @@
;; (require 'jaunte)
;; (global-set-key (kbd "C-c C-j") 'jaunte)
-(defvar jaunte-keys (string-to-char-list "jklasdfghyuiopqwertnmzxcvb"))
+(defvar jaunte-keys (mapcar #'identity "jklasdfghyuiopqwertnmzxcvb"))
(defface jaunte-hint-face
'((t
@@ -124,7 +124,7 @@
(unwind-protect
(let (k key)
(while (not (null jaunte--hints))
- (setq k (read-key (concat "Jaunte to " key)))
+ (setq k (read-event (concat "Jaunte to " key)))
(if (and (not (null key))
(or (= k 13) ;; RET
(= k 10))) ;; \n
Please sign in to comment.
Something went wrong with that request. Please try again.