From 4a8160204325c4b955647fe9e0a944c1f8c705dd Mon Sep 17 00:00:00 2001 From: Mario Lang Date: Fri, 6 Jun 2014 02:39:22 +0200 Subject: [PATCH] * emacs-lisp/tabulated-list.el (tabulated-list-print): Only call `recenter' if `current-buffer' is equal to `window-buffer'. --- lisp/ChangeLog | 5 +++++ lisp/emacs-lisp/tabulated-list.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e0d2ff0a584..c445861a972 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-06-06 Mario Lang + + * emacs-lisp/tabulated-list.el (tabulated-list-print): Only call + `recenter' if `current-buffer' is equal to `window-buffer'. + 2014-06-05 Leo Liu * 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 d0d71ddb935..3ee261aa06b 100644 --- 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) -- 2.39.2