Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!think.com!compass!worley
From: worley@compass.com (Dale Worley)
Newsgroups: comp.emacs
Subject: Re: Moving to minibuffer
Message-ID: <WORLEY.91Jun26111407@sn1987a.compass.com>
Date: 26 Jun 91 15:14:07 GMT
References: <PD.91Jun25134858@powys.x.co.uk>
Sender: root@compass.com
Organization: Compass, Inc., Wakefield, MA, U.S.A.
Lines: 17
In-reply-to: pd@x.co.uk's message of 25 Jun 91 13:48:58 GMT

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"