Mercurial > hg > xemacs-beta

diff lisp/gnuserv.el @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 697ef44129c6
children
line wrap: on
line diff
--- a/lisp/gnuserv.el	Mon Aug 13 11:25:03 2007 +0200
+++ b/lisp/gnuserv.el	Mon Aug 13 11:26:11 2007 +0200
@@ -440,6 +440,7 @@
 	   (client (make-gnuclient :id gnuserv-current-client
 				   :device device
 				   :frame new-frame)))
+      (select-frame frame)
       (setq gnuserv-current-client nil)
       ;; If the device was created by this client, push it to the list.
       (and (/= old-device-num (length (device-list)))