procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
`recenter' if `current-buffer' is equal to `window-buffer'.
This commit is contained in:
Mario Lang 2014-06-06 02:39:22 +02:00
parent d4e355b45d
commit 4a81602043
2 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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.

3
lisp/emacs-lisp/tabulated-list.el
View file

@ -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)