[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[STUMP] [PATCH] Simplifying a couple of lines.
From: |
John Li |
Subject: |
[STUMP] [PATCH] Simplifying a couple of lines. |
Date: |
Tue, 5 Aug 2008 04:28:50 -0400 |
User-agent: |
Mutt/1.5.18 (2008-05-17) |
---
<3
frame.lisp | 2 +-
group.lisp | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/frame.lisp b/frame.lisp
index 291be33..3d1c5c4 100644
--- a/frame.lisp
+++ b/frame.lisp
@@ -750,7 +750,7 @@ (defcommand only () ()
"Delete all the frames but the current one and grow it to take up the entire
head."
(let* ((screen (current-screen))
(group (screen-current-group screen))
- (win (frame-window (tile-group-current-frame group)))
+ (win (group-current-window group))
(head (current-head group))
(frame (copy-frame head)))
(if (atom (tile-group-frame-head group head))
diff --git a/group.lisp b/group.lisp
index aac121a..7d488ef 100644
--- a/group.lisp
+++ b/group.lisp
@@ -125,7 +125,7 @@ (defun move-window-to-group (window to-group)
(focus-frame old-group old-frame))
;; maybe show the window in its new frame
(when (null (frame-window (window-frame window)))
- (frame-raise-window (window-group window) (window-frame
window) window))
+ (really-raise-window window))
(xlib:change-property (window-xwin window) :_NET_WM_DESKTOP
(list (netwm-group-id to-group))
:cardinal 32)))))
--
1.5.6.3
- [STUMP] [PATCH] Simplifying a couple of lines.,
John Li <=