From: Juanma Barranquero <lekktu@gmail.com>
Date: Tue, 23 Jul 2013 23:10:58 +0000 (+0200)
Subject: lisp/desktop.el (desktop-clear): Fix previous change.
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~1715
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=da77a2e2ebfd09f70d6b91d868ae9195a9981206;p=emacs.git

lisp/desktop.el (desktop-clear): Fix previous change.
---

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))