Permalink
Browse files

Better ne2wm:select-sub(-tail)

  • Loading branch information...
1 parent e7f608c commit ae7f5e706865e8195c111dc5406a6bd5206cc613 @tkf committed Jan 27, 2013
Showing with 2 additions and 0 deletions.
  1. +2 −0 ne2wm-utils.el
View
@@ -81,11 +81,13 @@ will be shown in the next window."
(defun ne2wm:select-sub ()
"Focus e2wm sub window."
(interactive)
+ (ne2wm:record-main-window)
(let ((wm (e2wm:pst-get-wm)))
(wlf:select wm 'sub)))
(defun ne2wm:popup-sub-tail (buffer)
"Popup BUFFER in sub window and `recenter' at the bottom of the window."
+ (ne2wm:record-main-window)
(e2wm:pst-buffer-set 'sub buffer t t)
(set-window-point (selected-window) (point-max))
(recenter -2))

0 comments on commit ae7f5e7

Please sign in to comment.