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.