aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJérémy Compostella2012-01-25 15:28:01 +0100
committerMartin Rudalics2012-01-25 15:28:01 +0100
commitfa8eafefbe8418f960dc357bfad6655853be21e5 (patch)
tree06fa4410a82da505c5f9201c520f36e69fa074d6
parent40047858c6c270c3a7eb842abcbea042bb2781fd (diff)
downloademacs-fa8eafefbe8418f960dc357bfad6655853be21e5.tar.gz
emacs-fa8eafefbe8418f960dc357bfad6655853be21e5.zip
In window states don't deal with the mark.
* window.el (window--state-get-1, window--state-put-2): Don't save and restore the mark.
-rw-r--r--lisp/ChangeLog5
-rw-r--r--lisp/window.el11
2 files changed, 7 insertions, 9 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6a47a9f0ece..7a31115ac5d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
12012-01-25 Jérémy Compostella <jeremy.compostella@gmail.com>
2
3 * window.el (window--state-get-1, window--state-put-2): Don't
4 save and restore the mark.
5
12012-01-25 Chong Yidong <cyd@gnu.org> 62012-01-25 Chong Yidong <cyd@gnu.org>
2 7
3 * custom.el (custom-variable-p): Doc fix. 8 * custom.el (custom-variable-p): Doc fix.
diff --git a/lisp/window.el b/lisp/window.el
index 9122904b0bb..832a08dbbc7 100644
--- a/lisp/window.el
+++ b/lisp/window.el
@@ -3622,10 +3622,7 @@ specific buffers."
3622 (vscroll . ,(window-vscroll window)) 3622 (vscroll . ,(window-vscroll window))
3623 (dedicated . ,(window-dedicated-p window)) 3623 (dedicated . ,(window-dedicated-p window))
3624 (point . ,(if writable point (copy-marker point))) 3624 (point . ,(if writable point (copy-marker point)))
3625 (start . ,(if writable start (copy-marker start))) 3625 (start . ,(if writable start (copy-marker start))))))))))
3626 ,@(when mark
3627 `((mark . ,(if writable
3628 mark (copy-marker mark))))))))))))
3629 (tail 3626 (tail
3630 (when (memq type '(vc hc)) 3627 (when (memq type '(vc hc))
3631 (let (list) 3628 (let (list)
@@ -3809,11 +3806,7 @@ value can be also stored on disk and read back in a new session."
3809 ;; have been created and sized). 3806 ;; have been created and sized).
3810 (ignore-errors 3807 (ignore-errors
3811 (set-window-start window (cdr (assq 'start state))) 3808 (set-window-start window (cdr (assq 'start state)))
3812 (set-window-point window (cdr (assq 'point state))) 3809 (set-window-point window (cdr (assq 'point state))))
3813 ;; I'm not sure whether we should set the mark here, but maybe
3814 ;; it can be used.
3815 (let ((mark (cdr (assq 'mark state))))
3816 (when mark (set-mark mark))))
3817 ;; Select window if it's the selected one. 3810 ;; Select window if it's the selected one.
3818 (when (cdr (assq 'selected state)) 3811 (when (cdr (assq 'selected state))
3819 (select-window window))))))) 3812 (select-window window)))))))