* lisp/desktop.el (after-init-hook): Disable startup frame restoration

in non-graphical situations.

Fixes: debbugs:17693

2 files changed, 14 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14ed03e7570..0e82c4bbc46 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-16  Glenn Morris  <rgm@gnu.org>
+
+        * desktop.el (after-init-hook): Disable startup frame restoration
+        in non-graphical situations.  (Bug#17693)
+
 2014-07-14  Glenn Morris  <rgm@gnu.org>
 
         * vc/vc-dispatcher.el (vc-log-edit): Do set up the log buffer
diff --git a/lisp/desktop.el b/lisp/desktop.el
index 12207f3cdac..40e6b364e45 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -1516,8 +1516,15 @@ If there are no buffers left to create, kill the timer."
         (setq command-line-args (delete key command-line-args))
         (desktop-save-mode 0)))
     (when desktop-save-mode
-      (desktop-read)
-      (setq inhibit-startup-screen t))))
+      ;; People don't expect emacs -nw, or --daemon,
+      ;; to create graphical frames (bug#17693).
+      ;; TODO perhaps there should be a separate value
+      ;; for desktop-restore-frames to control this startup behavior?
+      (let ((desktop-restore-frames (and desktop-restore-frames
+                                         initial-window-system
+                                         (not (daemonp)))))
+        (desktop-read)
+        (setq inhibit-startup-screen t)))))
 
 ;; So we can restore vc-dir buffers.
 (autoload 'vc-dir-mode "vc-dir" nil t)