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

in non-graphical situations.

Fixes: debbugs:17693

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14ed03e7570bbe3fdc861864e2cd43007ec440d9..0e82c4bbc4601325246dc578bc62e375457236f0 100644 (file)
--- 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 12207f3cdac18599cef5d5c3ae3dd7405563a179..40e6b364e45c42efc1fc32e6a6e9bc171be84e50 100644 (file)
--- 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)