Commit fa8eafef authored by Jérémy Compostella's avatar Jérémy Compostella Committed by Martin Rudalics
Browse files

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.
parent 40047858
2012-01-25 Jérémy Compostella <jeremy.compostella@gmail.com>
* window.el (window--state-get-1, window--state-put-2): Don't
save and restore the mark.
2012-01-25 Chong Yidong <cyd@gnu.org>
* custom.el (custom-variable-p): Doc fix.
......
......@@ -3622,10 +3622,7 @@ specific buffers."
(vscroll . ,(window-vscroll window))
(dedicated . ,(window-dedicated-p window))
(point . ,(if writable point (copy-marker point)))
(start . ,(if writable start (copy-marker start)))
,@(when mark
`((mark . ,(if writable
mark (copy-marker mark))))))))))))
(start . ,(if writable start (copy-marker start))))))))))
(tail
(when (memq type '(vc hc))
(let (list)
......@@ -3809,11 +3806,7 @@ value can be also stored on disk and read back in a new session."
;; have been created and sized).
(ignore-errors
(set-window-start window (cdr (assq 'start state)))
(set-window-point window (cdr (assq 'point state)))
;; I'm not sure whether we should set the mark here, but maybe
;; it can be used.
(let ((mark (cdr (assq 'mark state))))
(when mark (set-mark mark))))
(set-window-point window (cdr (assq 'point state))))
;; Select window if it's the selected one.
(when (cdr (assq 'selected state))
(select-window window)))))))
......
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