*** empty log message ***

1 files changed, 6 insertions, 2 deletions

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index abf794f1ad0..30f5fa9b2e3 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -626,10 +626,14 @@ This returns ARGS with the arguments that have been processed removed."
 ;;; Do the actual X Windows setup here; the above code just defines
 ;;; functions and variables that we use now.
 
-;; xterm.c depends on using interrupt-driven input.
-(set-input-mode t nil t)
 (x-open-connection (or x-display-name
                        (setq x-display-name (getenv "DISPLAY"))))
+
+;; xterm.c depends on using interrupt-driven input, but we don't want
+;; the fcntls to apply to the terminal, so we do this after opening
+;; the display.
+(set-input-mode t nil t)
+
 (x-read-resources)
 (setq command-line-args (x-handle-args command-line-args))
 (x-pop-initial-window)