aboutsummaryrefslogtreecommitdiff
path: root/ellinika
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>2005-02-13 23:08:34 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>2005-02-13 23:08:34 +0000
commit67b6b7c6b378957b6df622b20658a37768fe5b54 (patch)
treeb5d16fc8a0a6c729fbb71567c4619277ed0dcd8c /ellinika
parent73c95ef6bbfa9aa3997a0f770b3ec9aee0735663 (diff)
downloadellinika-67b6b7c6b378957b6df622b20658a37768fe5b54.tar.gz
ellinika-67b6b7c6b378957b6df622b20658a37768fe5b54.tar.bz2
(ellinika:translate-input): Check argument
git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@302 941c8c0f-9102-463b-b60b-cd22ce0e6858
Diffstat (limited to 'ellinika')
-rw-r--r--ellinika/xlat.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/ellinika/xlat.scm b/ellinika/xlat.scm
index 401a9a6..8f221a4 100644
--- a/ellinika/xlat.scm
+++ b/ellinika/xlat.scm
@@ -188,7 +188,9 @@
;; Translate the input string to UTF-8 if necessary.
(define-public (ellinika:translate-input input)
- (if (< (char->integer (string-ref input 0)) 127)
+ (if (and input
+ (not (string-null? input))
+ (< (char->integer (string-ref input 0)) 127))
(ellinika:translate-kbd input)
input))

Return to:

Send suggestions and report system problems to the System administrator.