Browse Source

Fix problem that Emacs' new frame can't be raised in X window system

IRIE Shinsuke 14 years ago
parent
commit
035ba4fea9
1 changed files with 6 additions and 0 deletions
  1. 6 0
      edit-server.el

+ 6 - 0
edit-server.el

@@ -297,6 +297,12 @@ If `edit-server-verbose' is non-nil, then STRING is also echoed to the message l
                                       edit-server-new-frame-alist))))
 	(if (not edit-server-new-frame-mode-line)
             (setq mode-line-format nil))
+	(select-frame new-frame)
+	(if (and (eq window-system 'x)
+		 (fboundp 'x-send-client-message))
+	    (x-send-client-message nil 0 nil
+				   "_NET_ACTIVE_WINDOW" 32
+				   '(1 0 0)))
 	(raise-frame new-frame)
         (set-window-buffer (frame-selected-window new-frame) buffer)
 	new-frame)