From da77a2e2ebfd09f70d6b91d868ae9195a9981206 Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Wed, 24 Jul 2013 01:10:58 +0200 Subject: [PATCH] lisp/desktop.el (desktop-clear): Fix previous change. --- lisp/ChangeLog | 4 ++++ lisp/desktop.el | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + + * desktop.el (desktop-clear, desktop-list*): Fix previous change. + 2013-07-23 Michael Albinus * 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)) -- 2.11.4.GIT