提交: 4a6b5fa73ca2be5400a7d2c9dd3b5fc54518be39 - trjp_sawfish (git)

Japanese translation of message catalog for Sawfish Window-Manager

Commit MetaInfo

• 修訂: 4a6b5fa73ca2be5400a7d2c9dd3b5fc54518be39 (tree)
• 時間: 2010-12-09 13:55:55
• 作者: Michal Maruska <mmaruska@gmai...>
• Commiter: Michal Maruska

Log Message

display-window ... change viewport (on the same WS)

Change Summary

• modified: lisp/sawfish/wm/util/display-window.jl

差異

--- a/lisp/sawfish/wm/util/display-window.jl
+++ b/lisp/sawfish/wm/util/display-window.jl
@@ -57,7 +57,8 @@ unshaded if necessary."
 		(not (window-in-workspace-p w preferred-space)))
 	(setq preferred-space
 	      (nearest-workspace-with-window w current-workspace)))
-      (if preferred-space
+      (if (and preferred-space
+	       (not (= preferred-space current-workspace)))
           (select-workspace preferred-space will-refocus
                             (lambda ()
                               (raise-window* w)