[Emacs-diffs] /srv/bzr/emacs/trunk r112236: Do not set x-display-name until X connection is established.

[Dmitry Antipov]

------------------------------------------------------------
revno: 112236
committer: Dmitry Antipov <address@hidden>
branch nick: trunk
timestamp: Sat 2013-04-06 18:06:39 +0400
message:
  Do not set x-display-name until X connection is established.
  This is needed to prevent from weird situation described at
  <http://lists.gnu.org/archive/html/emacs-devel/2013-04/msg00212.html>.
  * frame.el (make-frame): Set x-display-name after call to
  window system initialization function, not before.
  * term/x-win.el (x-initialize-window-system): Add optional
  display argument and use it.
  * term/w32-win.el (w32-initialize-window-system):
  * term/ns-win.el (ns-initialize-window-system):
  * term/pc-win.el (msdos-initialize-window-system):
  Add compatible optional display argument.
modified:
  lisp/ChangeLog
  lisp/frame.el
  lisp/term/ns-win.el
  lisp/term/pc-win.el
  lisp/term/w32-win.el
  lisp/term/x-win.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-04-06 07:41:09 +0000
+++ b/lisp/ChangeLog    2013-04-06 14:06:39 +0000
@@ -1,3 +1,17 @@
+2013-04-06  Dmitry Antipov  <address@hidden>
+
+       Do not set x-display-name until X connection is established.
+       This is needed to prevent from weird situation described at
+       <http://lists.gnu.org/archive/html/emacs-devel/2013-04/msg00212.html>.
+       * frame.el (make-frame): Set x-display-name after call to
+       window system initialization function, not before.
+       * term/x-win.el (x-initialize-window-system): Add optional
+       display argument and use it.
+       * term/w32-win.el (w32-initialize-window-system):
+       * term/ns-win.el (ns-initialize-window-system):
+       * term/pc-win.el (msdos-initialize-window-system):
+       Add compatible optional display argument.
+
 2013-04-06  Eli Zaretskii  <address@hidden>
 
        * files.el (normal-backup-enable-predicate): On MS-Windows and

=== modified file 'lisp/frame.el'
--- a/lisp/frame.el     2013-01-30 23:50:11 +0000
+++ b/lisp/frame.el     2013-04-06 14:06:39 +0000
@@ -655,9 +655,8 @@
       (error "Don't know how to create a frame on window system %s" w))
 
     (unless (get w 'window-system-initialized)
-      (unless x-display-name
-        (setq x-display-name display))
-      (funcall (cdr (assq w window-system-initialization-alist)))
+      (funcall (cdr (assq w window-system-initialization-alist)) display)
+      (setq x-display-name display)
       (put w 'window-system-initialized t))
 
     ;; Add parameters from `window-system-default-frame-alist'.

=== modified file 'lisp/term/ns-win.el'
--- a/lisp/term/ns-win.el       2013-01-02 16:13:04 +0000
+++ b/lisp/term/ns-win.el       2013-04-06 14:06:39 +0000
@@ -895,7 +895,7 @@
 
 ;; Do the actual Nextstep Windows setup here; the above code just
 ;; defines functions and variables that we use now.
-(defun ns-initialize-window-system ()
+(defun ns-initialize-window-system (&optional display)
   "Initialize Emacs for Nextstep (Cocoa / GNUstep) windowing."
   (cl-assert (not ns-initialized))
 

=== modified file 'lisp/term/pc-win.el'
--- a/lisp/term/pc-win.el       2013-01-01 09:11:05 +0000
+++ b/lisp/term/pc-win.el       2013-04-06 14:06:39 +0000
@@ -403,7 +403,7 @@
   (error "terminal-init-internal called for window-system `%s'"
         (window-system)))
 
-(defun msdos-initialize-window-system ()
+(defun msdos-initialize-window-system (&optional display)
   "Initialization function for the `pc' \"window system\"."
   (or (eq (window-system) 'pc)
       (error

=== modified file 'lisp/term/w32-win.el'
--- a/lisp/term/w32-win.el      2013-01-02 16:13:04 +0000
+++ b/lisp/term/w32-win.el      2013-04-06 14:06:39 +0000
@@ -246,7 +246,7 @@
 (declare-function x-parse-geometry "frame.c" (string))
 (defvar x-command-line-resources)
 
-(defun w32-initialize-window-system ()
+(defun w32-initialize-window-system (&optional display)
   "Initialize Emacs for W32 GUI frames."
   (cl-assert (not w32-initialized))
 

=== modified file 'lisp/term/x-win.el'
--- a/lisp/term/x-win.el        2013-03-18 19:44:15 +0000
+++ b/lisp/term/x-win.el        2013-04-06 14:06:39 +0000
@@ -1343,7 +1343,7 @@
 (defvar x-display-name)
 (defvar x-command-line-resources)
 
-(defun x-initialize-window-system ()
+(defun x-initialize-window-system (&optional display)
   "Initialize Emacs for X frames and open the first connection to an X server."
   (cl-assert (not x-initialized))
 
@@ -1357,7 +1357,7 @@
        (while (setq i (string-match "[.*]" x-resource-name))
          (aset x-resource-name i ?-))))
 
-  (x-open-connection (or x-display-name
+  (x-open-connection (or display
                         (setq x-display-name (or (getenv "DISPLAY" 
(selected-frame))
                                                  (getenv "DISPLAY"))))
                     x-command-line-resources