[Emacs-diffs] /srv/bzr/emacs/trunk r105956: In display-buffer-record-window call point for selected window. (Bug#9626)

[martin rudalics]

------------------------------------------------------------
revno: 105956
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Thu 2011-09-29 11:20:45 +0200
message:
  In display-buffer-record-window call point for selected window.  (Bug#9626)
  
  * window.el (display-buffer-record-window): When WINDOW is the
  selected window use `point' instead of `window-point'.  (Bug#9626)
modified:
  lisp/ChangeLog
  lisp/window.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-09-29 08:16:15 +0000
+++ b/lisp/ChangeLog    2011-09-29 09:20:45 +0000
@@ -1,7 +1,11 @@
 2011-09-29  Martin Rudalics  <address@hidden>
 
+       * window.el (display-buffer-record-window): When WINDOW is the
+       selected window use `point' instead of `window-point'.  (Bug#9626)
+
        * startup.el (command-line-1): Use insert-before-markers when
        inserting initial-scratch-message.  (Bug#9605)
+
        * help.el (help-window): Remove variable.
 
 2011-09-29  Glenn Morris  <address@hidden>

=== modified file 'lisp/window.el'
--- a/lisp/window.el    2011-09-24 22:51:36 +0000
+++ b/lisp/window.el    2011-09-29 09:20:45 +0000
@@ -3833,7 +3833,14 @@
        (list 'other
             ;; A quadruple of WINDOW's buffer, start, point and height.
             (list (window-buffer window) (window-start window)
-                  (window-point window) (window-total-size window))
+                  (if (eq window (selected-window))
+                      ;; When WINDOW is the selected window use its
+                      ;; buffer's `point' instead of `window-point'
+                      ;; (Bug#9626).
+                      (with-current-buffer (window-buffer window)
+                        (point))
+                    (window-point window))
+                  (window-total-size window))
             (selected-window) buffer))))
    ((eq type 'window)
     ;; WINDOW has been created on an existing frame.