diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2013-07-24 01:10:58 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2013-07-24 01:10:58 +0200 |
| commit | da77a2e2ebfd09f70d6b91d868ae9195a9981206 (patch) | |
| tree | 256d45702a7fb9ecf9bc88ee982f9782c534a9ed /lisp/desktop.el | |
| parent | 60967f56e71c1e578cb2f0585a8d64d54394110f (diff) | |
| download | emacs-da77a2e2ebfd09f70d6b91d868ae9195a9981206.tar.gz emacs-da77a2e2ebfd09f70d6b91d868ae9195a9981206.tar.bz2 emacs-da77a2e2ebfd09f70d6b91d868ae9195a9981206.zip | |
lisp/desktop.el (desktop-clear): Fix previous change.
Diffstat (limited to 'lisp/desktop.el')
| -rw-r--r-- | lisp/desktop.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/desktop.el b/lisp/desktop.el index 36e4981b821..0cbe38c29e1 100644 --- a/lisp/desktop.el +++ b/lisp/desktop.el @@ -652,7 +652,7 @@ Furthermore, it clears the variables listed in `desktop-globals-to-clear'." "\\)$"))) (dolist (buffer (buffer-list)) (let ((bufname (buffer-name buffer))) - (unless (or (eq (aref bufname 0) ?s) ;; Don't kill internal buffers + (unless (or (eq (aref bufname 0) ?\s) ;; Don't kill internal buffers (string-match-p preserve-regexp bufname)) (kill-buffer buffer))))) (delete-other-windows)) |