(desktop-clear): Don't kill buffers here.

diff --git a/lisp/desktop.el b/lisp/desktop.el
index 56ac600dbc4f3400ab2b871947252af5bfdbaa56..cd44f47467c64f49b430c3b0f9a02f94c5af738f 100644 (file)
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -235,7 +235,8 @@ the like shorter."
        search-ring-yank-pointer nil
        regexp-search-ring nil
        regexp-search-ring-yank-pointer nil)
-  (mapcar (function kill-buffer) (buffer-list))
+;;;  What a screw!
+;;;  (mapcar (function kill-buffer) (buffer-list))
   (delete-other-windows))
 ;; ----------------------------------------------------------------------------
 (add-hook 'kill-emacs-hook 'desktop-kill)