diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/desktop.el | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 71e1777ef72..424b175f6f8 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2013-07-23 Juanma Barranquero <lekktu@gmail.com> + + * desktop.el (desktop-clear, desktop-list*): Fix previous change. + 2013-07-23 Michael Albinus <michael.albinus@gmx.de> * net/tramp.el (tramp-handle-file-notify-add-watch): New defun. 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)) |