|
| From: | Kevin Rodgers |
| Subject: | Re: focus return to old frame after make-frame |
| Date: | Fri, 05 Aug 2005 11:45:12 -0600 |
| User-agent: | Mozilla Thunderbird 0.9 (X11/20041105) |
Friedrich Laher wrote:
> Is it possible - by lisp-code - to get the focus back to the former
> frame after evaluation of (make-frame ...) ?
Does this work:
(defadvice make-frame (around focus-frame activate)
"Restore focus to the (previously) selected frame."
(let ((selected-frame (selected-frame))
(focus-function (intern (format "%s-focus-frame" window-system))))
ad-do-it
(when (fboundp focus-function)
(funcall focus-function selected-frame))))
--
Kevin Rodgers
| [Prev in Thread] | Current Thread | [Next in Thread] |