pd@x.co.uk (Paul Davey) (06/25/91)
How can I write a function to move the cursor to the minibuffer? I know I can get there with M-o (other-window 1), but I want to define a key (actually a mouse button) to place the cursor in a partially completed minibuffer (assuming it exists). -- Regards, pd@x.co.uk IXI Limited Paul Davey pd@ixi.uucp 62-74 Burleigh St. ...!uunet!ixi!pd Cambridge U.K. "These are interesting times" +44 223 462 131 CB1 1OJ USA: 1 800 XDESK 57
worley@compass.com (Dale Worley) (06/26/91)
In article <PD.91Jun25134858@powys.x.co.uk> pd@x.co.uk (Paul Davey) writes:
How can I write a function to move the cursor to the minibuffer?
(defun get-minibuffer-window ()
(let ((w (selected-window)))
(while (not (string-match " \\*Minibuf-[0-9]+\\*"
(buffer-name (window-buffer w))))
(setq w (next-window w t)))
w))
(if (/= (minibuffer-depth) 0)
(select-window (get-minibuffer-window)))
Dale Worley Compass, Inc. worley@compass.com
--
I don't have to take this abuse from you -- I've got hundreds of
people waiting to abuse me. -- Bill Murray, "Ghostbusters"