From fa8eafefbe8418f960dc357bfad6655853be21e5 Mon Sep 17 00:00:00 2001 From: =?utf8?q?J=C3=A9r=C3=A9my=20Compostella?= Date: Wed, 25 Jan 2012 15:28:01 +0100 Subject: [PATCH] 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. --- lisp/ChangeLog | 5 +++++ lisp/window.el | 11 ++--------- 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 @@ +2012-01-25 Jérémy Compostella + + * window.el (window--state-get-1, window--state-put-2): Don't + save and restore the mark. + 2012-01-25 Chong Yidong * 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." (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))))))) -- 2.39.2