blob: 62bc5411ce5c195dc756b7dd98a5fbc52b10ed42 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
$NetBSD: patch-ad,v 1.1 2003/01/18 06:37:02 toshii Exp $
--- lisp/sawfish/wm/windows.jl.orig Mon Nov 4 12:35:38 2002
+++ lisp/sawfish/wm/windows.jl
@@ -320,7 +320,7 @@ If HINTS is non-nil, then it is the size
(t x))))
(define (adjust-position-for-gravity/y w grav y #!key inverse)
- (let* ((tl-off (window-frame-offset w))
+ (let* ((tl-off (cdr (window-frame-offset w)))
(br-off (- (cdr (window-frame-dimensions w))
(cdr (window-dimensions w))))
(sign (if inverse -1 +1)))
|