From e517319ee1d5fbb8789fdced96dde8d212efd1b2 Mon Sep 17 00:00:00 2001 From: Jeremy Compostella Date: Thu, 19 Jan 2012 14:33:32 +0100 Subject: [PATCH] window.el: Remove mark save and restore As long as I know mark is related to a buffer and not to a window. It should be saved by buffer functions and not window functions. Moreover, when I call window-state-put on a window-state-get previously stored the mark is changed and activated which does not look like the desired behavior. Signed-off-by: Jeremy Compostella --- lisp/window.el | 11 ++--------- 1 files changed, 2 insertions(+), 9 deletions(-) diff --git a/lisp/window.el b/lisp/window.el index 9122904..832a08d 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -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))))))) -- 1.7.2.5