X-Git-Url: http://git.hcoop.net/bpt/emacs.git/blobdiff_plain/795b1482a9e314cda32d62ac2988f573d359366e..36a305a723c63fd345be65c536c52fe9765c14be:/lisp/startup.el?ds=sidebyside

diff --git a/lisp/startup.el b/lisp/startup.el
index 6658e16683..bd75abe5b3 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -890,7 +890,8 @@ Amongst another things, it parses the command-line arguments."
       ;; Initialize the window system. (Open connection, etc.)
       (funcall
        (or (cdr (assq initial-window-system window-system-initialization-alist))
-	   (error "Unsupported window system `%s'" initial-window-system))))
+	   (error "Unsupported window system `%s'" initial-window-system)))
+      (put initial-window-system 'window-system-initialized t))
     ;; If there was an error, print the error message and exit.
     (error
      (princ