[STUMP] Bug in parse-char-name

[Manuel Giraud]

Here's a patch for a bug in 'parse-char-name'.

Index: kmap.lisp
===================================================================
RCS file: /cvsroot/stumpwm/stumpwm/kmap.lisp,v
retrieving revision 1.4
diff -u -r1.4 kmap.lisp
--- kmap.lisp    8 Apr 2006 01:31:08 -0000    1.4
+++ kmap.lisp    10 Apr 2006 19:12:04 -0000
@@ -82,9 +82,11 @@
 
 (defun parse-char-name (string)
   "Return the char-code of the char whose name is STRING."
-  (or (name-char string)
+  (let ((ch (name-char string)))
+    (if ch
+    (char-code ch)
       (and (= (length string) 1)
-       (char-code (char string 0)))))
+       (char-code (char string 0))))))
 
 (defun parse-key (string)
   "Parse STRING and return a key structure."

-- 
Manuel Giraud                _      10-12 avenue de l'Europe
tel: +33 1 39253902         { \,"   78140 Vélizy
fax: +33 1 39254778        {_`/     France
address@hidden   `      http://www.cetp.ipsl.fr