[elpa] 202/352: Abstrahoidaan read-key-toiminto funktioon wcheck-read-key

[Stefan Monnier]

monnier pushed a commit to branch master
in repository elpa.

commit 7b75e9d05094fdd63a7eedde4a73f2b1f75d439c
Author: Teemu Likonen <address@hidden>
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)))))