monnier pushed a commit to branch master
in repository elpa.
commit 7b75e9d05094fdd63a7eedde4a73f2b1f75d439c
Author: Teemu Likonen <[email protected]>
Date: Sat Jan 1 19:30:14 2011 +0000
Abstrahoidaan read-key-toiminto funktioon wcheck-read-key
Funktio read-key on vain uusissa Emacsin versioissa; aiemmissa pitänee
käyttää funktiota read-char. Tämä muutos siirtää merkinlukukyselyn omaan
funktioonsa (wcheck-read-key), joka käyttää joko read-keytä tai
read-charia.
---
wcheck-mode.el | 8 +++++++-
1 files changed, 7 insertions(+), 1 deletions(-)
diff --git a/wcheck-mode.el b/wcheck-mode.el
index ac43b05..061eec8 100644
--- a/wcheck-mode.el
+++ b/wcheck-mode.el
@@ -1334,6 +1334,12 @@ choice (a string) or nil."
(x-popup-menu event menu)))
+(defun wcheck-read-key (prompt)
+ (if (fboundp 'read-key)
+ (read-key prompt)
+ (read-char prompt)))
+
+
(defun wcheck-choose-suggestion-minibuffer (suggestions)
"Create a text menu to choose a substitute suggestion.
SUGGESTIONS is a list of strings. Return user's choice (a string)
@@ -1398,7 +1404,7 @@ or nil."
(set-window-buffer window (current-buffer))
(set-window-dedicated-p window t)
;; Return the choice or nil.
- (cond ((cdr (assq (read-key prompt) alist)))
+ (cond ((cdr (assq (wcheck-read-key prompt) alist)))
(t
(message "Not a valid character")
nil)))))
