[Emacs-diffs] /srv/bzr/emacs/trunk r106932: Ignore fixed-sizeness when getting a window's state.

[martin rudalics]

------------------------------------------------------------
revno: 106932
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Wed 2012-01-25 15:52:10 +0100
message:
  Ignore fixed-sizeness when getting a window's state.
  
  * window.el (window-state-get, window--state-get-1): Don't deal
  with fixed-sizeness of windows.  Simplify code.
modified:
  lisp/ChangeLog
  lisp/window.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-01-25 14:28:01 +0000
+++ b/lisp/ChangeLog    2012-01-25 14:52:10 +0000
@@ -1,3 +1,8 @@
+2012-01-25  Martin Rudalics  <address@hidden>
+
+       * window.el (window-state-get, window--state-get-1): Don't deal
+       with fixed-sizeness of windows.  Simplify code.
+
 2012-01-25  Jérémy Compostella  <address@hidden>
 
        * window.el (window--state-get-1, window--state-put-2): Don't

=== modified file 'lisp/window.el'
--- a/lisp/window.el    2012-01-25 14:28:01 +0000
+++ b/lisp/window.el    2012-01-25 14:52:10 +0000
@@ -3604,25 +3604,20 @@
                 (when list
                   `((parameters . ,list))))
             ,@(when buffer
-                ;; All buffer related things go in here - make the buffer
-                ;; current when retrieving `point' and `mark'.
-                (with-current-buffer (window-buffer window)
-                  (let ((point (window-point-1 window))
-                        (start (window-start window))
-                        (mark (mark t)))
-                    `((buffer
-                       ,(buffer-name buffer)
-                       (selected . ,selected)
-                       ,@(when window-size-fixed
-                           `((size-fixed . ,window-size-fixed)))
-                       (hscroll . ,(window-hscroll window))
-                       (fringes . ,(window-fringes window))
-                       (margins . ,(window-margins window))
-                       (scroll-bars . ,(window-scroll-bars window))
-                       (vscroll . ,(window-vscroll window))
-                       (dedicated . ,(window-dedicated-p window))
-                       (point . ,(if writable point (copy-marker point)))
-                       (start . ,(if writable start (copy-marker 
start))))))))))
+                ;; All buffer related things go in here.
+               (let ((point (window-point-1 window))
+                     (start (window-start window)))
+                 `((buffer
+                    ,(buffer-name buffer)
+                    (selected . ,selected)
+                    (hscroll . ,(window-hscroll window))
+                    (fringes . ,(window-fringes window))
+                    (margins . ,(window-margins window))
+                    (scroll-bars . ,(window-scroll-bars window))
+                    (vscroll . ,(window-vscroll window))
+                    (dedicated . ,(window-dedicated-p window))
+                    (point . ,(if writable point (copy-marker point)))
+                    (start . ,(if writable start (copy-marker start)))))))))
         (tail
          (when (memq type '(vc hc))
            (let (list)
@@ -3667,10 +3662,7 @@
      (min-height-ignore . ,(window-min-size window nil t))
      (min-width-ignore  . ,(window-min-size window t t))
      (min-height-safe   . ,(window-min-size window nil 'safe))
-     (min-width-safe    . ,(window-min-size window t 'safe))
-     ;; These are probably not needed.
-     ,@(when (window-size-fixed-p window) `((fixed-height . t)))
-     ,@(when (window-size-fixed-p window t) `((fixed-width . t))))
+     (min-width-safe    . ,(window-min-size window t 'safe)))
    (window--state-get-1 window writable)))
 
 (defvar window-state-put-list nil