window-resizer ( http://d.hatena.ne.jp/mooz/20100119/p1 )のxyzzy移植版

my-window-resizer.l

(defun my-window-resizer ()
  "Control window size and position."
  (interactive)
  (let ((window-obj (selected-window))
        (current-width (window-width))
        (current-height (window-height))
  (dx (if (= (nth 0 (window-coordinate)) 0) 1
              -1))
        (dy (if (= (nth 1 (window-coordinate)) 0) 1
              -1))
        action c)
    (catch 'end-flag
      (while t
	(minibuffer-prompt "size[~dx~d]"
			   (window-width) (window-height))
        (setq c (read-char *keyboard*))
        (handler-case(cond ((eq c #\l)
               (enlarge-window-horizontally dx))
              ((eq c #\h)
               (shrink-window-horizontally dx))
              ((eq c #\j)
               (enlarge-window dy))
              ((eq c #\k)
               (shrink-window dy))
              ;; otherwise
              (t
               (message "Quit")
	       (throw 'end-flag t)))(error))))))

(global-set-key '(#\C-c #\C-r) 'my-window-resizer) ; キーバインドはお好みで