From: Juri Linkov <juri@jurta.org>
Date: Sat, 24 Dec 2011 19:16:53 +0000 (+0200)
Subject: * lisp/window.el (window--state-get-1): Set `FORCE' arg of `mark' to t.
X-Git-Tag: emacs-pretest-24.0.93~118
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=341cf6ac7ae9d58c4edc6de7b7499a1bcb58ab37;p=emacs.git

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

Fixes: debbugs:10348
---

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)