Japanese translation of message catalog for Sawfish Window-Manager
Revisión | b611b836d5c4a3e2fd06f3583abf51bbb9fcf6c3 (tree) |
---|---|
Tiempo | 2000-05-04 07:02:05 |
Autor | john <john> |
Commiter | john |
(match-window:edit): use non-destructive operations when splitting
property list into bool/non-bool sets
@@ -3,7 +3,7 @@ exec rep "$0" "$@" | ||
3 | 3 | !# |
4 | 4 | |
5 | 5 | ;; sawmill-ui -- subprocess to handle configuration user interface |
6 | -;; $Id: sawmill-ui.jl,v 1.58 2000/04/12 14:01:44 john Exp $ | |
6 | +;; $Id: sawmill-ui.jl,v 1.59 2000/04/24 23:55:03 john Exp $ | |
7 | 7 | |
8 | 8 | ;; Copyright (C) 1999 John Harper <john@dcs.warwick.ac.uk> |
9 | 9 |
@@ -1131,8 +1131,8 @@ exec rep "$0" "$@" | ||
1131 | 1131 | ;; move boolean properties to head of list for best effect |
1132 | 1132 | (setq bool-props (filter (lambda (p) |
1133 | 1133 | (eq (nth 1 p) 'boolean)) properties)) |
1134 | - (setq properties (delete-if (lambda (p) | |
1135 | - (eq (nth 1 p) 'boolean)) properties)) | |
1134 | + (setq properties (filter (lambda (p) | |
1135 | + (not (eq (nth 1 p) 'boolean))) properties)) | |
1136 | 1136 | |
1137 | 1137 | (setq table (gtk-table-new (1+ (quotient (length bool-props) 3)) 3 nil)) |
1138 | 1138 | (setq table-2 (gtk-table-new (length properties) 2 nil)) |