5c4d484812
* sawfish/wm/windows.jl (adjust-position-for-gravity/y): fixed typo when accessing window-frame-offset. Fixes #98315
13 lines
511 B
Text
13 lines
511 B
Text
$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)))
|