# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 867814647 0
# Node ID bb491744ccd7cf6af67b938b146908f2f7274893
# Parent  e0d1b341124c76b418af3d301584cd82fe2d0e6d
(desktop-clear): Don't kill buffers here.

diff -r e0d1b341124c -r bb491744ccd7 lisp/desktop.el
--- a/lisp/desktop.el	Wed Jul 02 03:14:24 1997 +0000
+++ b/lisp/desktop.el	Wed Jul 02 03:37:27 1997 +0000
@@ -235,7 +235,8 @@
 	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)