[Emacs-diffs] /srv/bzr/emacs/trunk r106727: * lisp/window.el (window--state-get-1): Set `FORCE' arg of `mark' to t.

[Juri Linkov]

------------------------------------------------------------
revno: 106727
fixes bug(s): http://debbugs.gnu.org/10348
committer: Juri Linkov <address@hidden>
branch nick: trunk
timestamp: Sat 2011-12-24 21:16:53 +0200
message:
  * lisp/window.el (window--state-get-1): Set `FORCE' arg of `mark' to t.
modified:
  lisp/ChangeLog
  lisp/window.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-12-23 14:31:35 +0000
+++ b/lisp/ChangeLog    2011-12-24 19:16:53 +0000
@@ -1,3 +1,8 @@
+2011-12-24  Juri Linkov  <address@hidden>
+
+       * window.el (window--state-get-1): Set `FORCE' arg of `mark' to t.
+       (Bug#10348)
+
 2011-12-23  Michael Albinus  <address@hidden>
 
        * net/ange-ftp.el (ange-ftp-copy-file-internal): Check for

=== modified file 'lisp/window.el'
--- a/lisp/window.el    2011-12-20 07:45:20 +0000
+++ b/lisp/window.el    2011-12-24 19:16:53 +0000
@@ -3604,7 +3604,7 @@
                 (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)