提交: 796a6d3358c5529e83ad80e62d83a7ffa70bfdcd - trjp_sawfish (git)

Japanese translation of message catalog for Sawfish Window-Manager

Commit MetaInfo

• 修订版: 796a6d3358c5529e83ad80e62d83a7ffa70bfdcd (tree)
• 时间: 2000-09-26 19:40:55
• 作者: john <john>
• Commiter: john

Log Message

(decode-event): use a do' statement instead of while and setq

更改概述

• modified: lisp/sawfish/wm/util/decode-events.jl

差异

--- a/lisp/sawfish/wm/util/decode-events.jl
+++ b/lisp/sawfish/wm/util/decode-events.jl
@@ -40,15 +40,14 @@ cell). The symbolic description has the form `(TYPE MODIFIER-LIST ACTION)'."
 
 	   (decode-mods
 	    (lambda ()
-	      (let (i out)
-		(setq i 0)
-		(while (< i 13)
+	      (let ((out '()))
+		(do ((i 0 (1+ i)))
+		    ((= i 13))
 		  (when (not (zerop (logand mods (lsh 1 i))))
 		    (setq out (cons (aref [shift lock control mod-1 mod-2
 						 mod-3 mod-4 mod-5 button-1
 						 button-2 button-3 button-4
-						 button-5] i) out)))
-		  (setq i (1+ i)))
+						 button-5] i) out))))
 		(when (not (zerop (logand mods (lsh 1 20))))
 		  (setq out (cons 'meta out)))
 		(when (not (zerop (logand mods (lsh 1 21))))