diff options
author | Mario Lang <mlang@delysid.org> | 2014-06-06 02:39:22 +0200 |
---|---|---|
committer | Eli Zaretskii <eliz@gnu.org> | 2015-03-21 12:01:27 +0200 |
commit | 17ad6f839e1c435ea944a0cda0b682687f194c7a (patch) | |
tree | b1c8770d6024956a171a1158052ee88080c7617b | |
parent | 1c4900d953f11a09a9cbac6509ae659b27590a89 (diff) | |
download | emacs-17ad6f839e1c435ea944a0cda0b682687f194c7a.tar.gz |
Fix problems caused by calling 'recenter' in auto-revert (Bug#20122)
lisp/emacs-lisp/tabulated-list.el (tabulated-list-print): Only call
`recenter' if `current-buffer' is equal to `window-buffer'.
(cherry picked from commit 4a8160204325c4b955647fe9e0a944c1f8c705dd)
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/emacs-lisp/tabulated-list.el | 3 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 5c72fbdf291..301c52d410d 100644 --- 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'. + 2015-03-20 Dmitry Gutov <dgutov@yandex.ru> * progmodes/ruby-mode.el (ruby-syntax-before-regexp-re): Detect diff --git a/lisp/emacs-lisp/tabulated-list.el b/lisp/emacs-lisp/tabulated-list.el index 933567db993..15a0914cb17 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) |