worley@EDDIE.MIT.EDU (Dale Worley) (06/27/89)
In my previous posting, I forgot that if there is only one window,
then other-window doesn't do anything. Thus, I've added code to split
the current window if there is only one, before switching to the other
window.
(setq unread-command-char first-key)
(let ((key-sequence (read-key-sequence nil)))
> (if (eq (selected-window) (next-window (selected-window)))
> (split-window-vertically))
(other-window 1)
(setq prefix-arg prefix)
(call-interactively (key-binding key-sequence)))))
Dale
--
Dale Worley, Compass, Inc. worley@compass.com
The War on Drugs -- Prohibition for the '80s.