[STUMP] [PATCH] Simplifying a couple of lines.

[John Li]

---

<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