From 67b6b7c6b378957b6df622b20658a37768fe5b54 Mon Sep 17 00:00:00 2001
From: Sergey Poznyakoff <gray@gnu.org.ua>
Date: Sun, 13 Feb 2005 23:08:34 +0000
Subject: (ellinika:translate-input): Check argument

git-svn-id: file:///home/puszcza/svnroot/ellinika/trunk@302 941c8c0f-9102-463b-b60b-cd22ce0e6858
---
 ellinika/xlat.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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))
 
-- 
cgit v1.2.1