Author: ek.kato
Date: Wed Sep 17 23:05:43 2008
New Revision: 5572
Modified:
trunk/scm/rk.scm
Log:
* scm/rk.scm : Revert r5571 (r5570 is fine, sorry for my
confusion).
Modified: trunk/scm/rk.scm
==============================================================================
--- trunk/scm/rk.scm (original)
+++ trunk/scm/rk.scm Wed Sep 17 23:05:43 2008
@@ -147,14 +147,14 @@
(define rk-backspace
(lambda (context)
(if
- (not (null? (rk-context-seq context)))
+ (pair? (rk-context-seq context))
(begin
(rk-context-set-seq! context
(cdr (rk-context-seq context)))
;; If the sequence contains only non-representable keysyms after
;; the deletion, flush them.
(if (and
- (not (null? (rk-context-seq context)))
+ (pair? (rk-context-seq context))
(null? (remove
(lambda (x)
(and
@@ -169,7 +169,7 @@
(define rk-delete
(lambda (context)
(if
- (not (null? (rk-context-seq context)))
+ (pair? (rk-context-seq context))
(begin
(rk-context-set-seq! context
(cdr (rk-context-seq context)))
