diff options
| author | Richard M. Stallman | 1998-01-26 03:09:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-01-26 03:09:01 +0000 |
| commit | 2f348ca38c7dae2e987875b2f02bd801608755df (patch) | |
| tree | 7fe8b0e6994b8cf9e7242cc9ccfc9d2224ecedbe | |
| parent | cef926f31852ed1f17079e6f5f35651fd064aa31 (diff) | |
| download | emacs-2f348ca38c7dae2e987875b2f02bd801608755df.tar.gz emacs-2f348ca38c7dae2e987875b2f02bd801608755df.zip | |
(desktop-clear): Don't kill dead buffers.
| -rw-r--r-- | lisp/desktop.el | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/lisp/desktop.el b/lisp/desktop.el index e2a90dd9e40..b31f17353da 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el | |||
| @@ -258,6 +258,7 @@ and those listed in `desktop-clear-preserve-buffers'." | |||
| 258 | (let ((buffers (buffer-list))) | 258 | (let ((buffers (buffer-list))) |
| 259 | (while buffers | 259 | (while buffers |
| 260 | (or (member (buffer-name (car buffers)) desktop-clear-preserve-buffers) | 260 | (or (member (buffer-name (car buffers)) desktop-clear-preserve-buffers) |
| 261 | (null (buffer-name (car buffers))) | ||
| 261 | ;; Don't kill buffers made for internal purposes. | 262 | ;; Don't kill buffers made for internal purposes. |
| 262 | (and (not (equal (buffer-name (car buffers)) "")) | 263 | (and (not (equal (buffer-name (car buffers)) "")) |
| 263 | (eq (aref (buffer-name (car buffers)) 0) ?\ )) | 264 | (eq (aref (buffer-name (car buffers)) 0) ?\ )) |