* emacs-lisp/tabulated-list.el (tabulated-list-print): Only call

`recenter' if `current-buffer' is equal to `window-buffer'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e0d2ff0a584b56dd7081c4eb86b788e67830d685..c445861a972a73a490a01dc1dcf0be7011dcd555 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-06-06  Mario Lang  <mlang@delysid.org>
+
+       * emacs-lisp/tabulated-list.el (tabulated-list-print): Only call
+       `recenter' if `current-buffer' is equal to `window-buffer'.
+
 2014-06-05  Leo Liu  <sdl.web@gmail.com>
 
        * emacs-lisp/cl-macs.el (cl-macrolet): Avoid excessive progn's.

diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el
index d0d71ddb935467327e625270f7da0fb6364ea9ec..3ee261aa06b42ea8bc2e9bb776d46de8cb138ac9 100644 (file)
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -323,7 +323,8 @@ to the entry with the same ID element as the current line."
     (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)