Commit da77a2e2 authored by Juanma Barranquero's avatar Juanma Barranquero

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

parent 60967f56
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> 2013-07-23 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-handle-file-notify-add-watch): New defun. * net/tramp.el (tramp-handle-file-notify-add-watch): New defun.
......
...@@ -652,7 +652,7 @@ Furthermore, it clears the variables listed in `desktop-globals-to-clear'." ...@@ -652,7 +652,7 @@ Furthermore, it clears the variables listed in `desktop-globals-to-clear'."
"\\)$"))) "\\)$")))
(dolist (buffer (buffer-list)) (dolist (buffer (buffer-list))
(let ((bufname (buffer-name buffer))) (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)) (string-match-p preserve-regexp bufname))
(kill-buffer buffer))))) (kill-buffer buffer)))))
(delete-other-windows)) (delete-other-windows))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment