[Emacs-diffs] trunk r117278: * emacs-lisp/tabulated-list.el (tabulated-list-print): Only call

[Mario Lang]

------------------------------------------------------------
revno: 117278
revision-id: address@hidden
parent: address@hidden
committer: Mario Lang <address@hidden>
branch nick: trunk
timestamp: Fri 2014-06-06 02:39:22 +0200
message:
  * emacs-lisp/tabulated-list.el (tabulated-list-print): Only call
  `recenter' if `current-buffer' is equal to `window-buffer'.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/tabulated-list.el 
tabulatedlist.el-20110406172122-j9szk2wsofzcear8-1

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-06-05 17:08:18 +0000
+++ b/lisp/ChangeLog    2014-06-06 00:39:22 +0000
@@ -1,3 +1,8 @@
+2014-06-06  Mario Lang  <address@hidden>
+
+       * emacs-lisp/tabulated-list.el (tabulated-list-print): Only call
+       `recenter' if `current-buffer' is equal to `window-buffer'.
+
 2014-06-05  Leo Liu  <address@hidden>
 
        * emacs-lisp/cl-macs.el (cl-macrolet): Avoid excessive progn's.

=== modified file 'lisp/emacs-lisp/tabulated-list.el'
--- a/lisp/emacs-lisp/tabulated-list.el 2014-01-01 07:43:34 +0000
+++ b/lisp/emacs-lisp/tabulated-list.el 2014-06-06 00:39:22 +0000
@@ -323,7 +323,8 @@
     (if saved-pt
        (progn (goto-char saved-pt)
               (move-to-column saved-col)
-              (recenter))
+              (when (eq (window-buffer) (current-buffer))
+                (recenter)))
       (goto-char (point-min)))))
 
 (defun tabulated-list-print-entry (id cols)