* lisp/window.el (window--state-get-1): Set `FORCE' arg of `mark' to t.

Fixes: debbugs:10348

2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4f7d61b9cb1..f8f8e7eb695 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-24  Juri Linkov  <juri@jurta.org>
+
+        * window.el (window--state-get-1): Set `FORCE' arg of `mark' to t.
+        (Bug#10348)
+
 2011-12-23  Michael Albinus  <michael.albinus@gmx.de>
 
         * net/ange-ftp.el (ange-ftp-copy-file-internal): Check for
diff --git a/lisp/window.el b/lisp/window.el
index 16a38ca03c6..0014d85a816 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -3604,7 +3604,7 @@ specific buffers."
                 (with-current-buffer (window-buffer window)
                   (let ((point (window-point-1 window))
                         (start (window-start window))
-                        (mark (mark)))
+                        (mark (mark t)))
                     `((buffer
                        ,(buffer-name buffer)
                        (selected . ,selected)