# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 885784141 0
# Node ID a75bd4b8183d2f989a469c67dd7474cfde1dd077
# Parent  c6d9f48bd2f8da2ad061527710a1ca903ecbd5c8
(desktop-clear): Don't kill dead buffers.

diff -r c6d9f48bd2f8 -r a75bd4b8183d lisp/desktop.el
--- a/lisp/desktop.el	Mon Jan 26 02:33:48 1998 +0000
+++ b/lisp/desktop.el	Mon Jan 26 03:09:01 1998 +0000
@@ -258,6 +258,7 @@
   (let ((buffers (buffer-list)))
     (while buffers
       (or (member (buffer-name (car buffers)) desktop-clear-preserve-buffers)
+	  (null (buffer-name (car buffers)))
 	  ;; Don't kill buffers made for internal purposes.
 	  (and (not (equal (buffer-name (car buffers)) ""))
 	       (eq (aref (buffer-name (car buffers)) 0) ?\ ))