Commit 2f348ca3 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

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

parent cef926f3
......@@ -258,6 +258,7 @@ and those listed in `desktop-clear-preserve-buffers'."
(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) ?\ ))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment