emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] master 23d00d4: * lisp/emacs-lisp/tabulated-list.el (tabul


From: Artur Malabarba
Subject: [Emacs-diffs] master 23d00d4: * lisp/emacs-lisp/tabulated-list.el (tabulated-list-print):
Date: Mon, 29 Jun 2015 09:11:52 +0000

branch: master
commit 23d00d4cddc4526483248f8886ab26310a280ed3
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>

    * lisp/emacs-lisp/tabulated-list.el (tabulated-list-print):
    
    Don't block remember-pos if buffer isn't displayed.  (Bug#20921)
---
 lisp/emacs-lisp/tabulated-list.el |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/emacs-lisp/tabulated-list.el 
b/lisp/emacs-lisp/tabulated-list.el
index 4bf714b..9119c3a 100644
--- a/lisp/emacs-lisp/tabulated-list.el
+++ b/lisp/emacs-lisp/tabulated-list.el
@@ -321,11 +321,11 @@ changing `tabulated-list-sort-key'."
         (sorter (tabulated-list--get-sorter))
        entry-id saved-pt saved-col window-line)
     (and remember-pos
+        (setq entry-id (tabulated-list-get-id))
+        (setq saved-col (current-column))
          (when (eq (window-buffer) (current-buffer))
            (setq window-line
-                 (count-screen-lines (window-start) (point))))
-        (setq entry-id (tabulated-list-get-id))
-        (setq saved-col (current-column)))
+                 (count-screen-lines (window-start) (point)))))
     ;; Sort the entries, if necessary.
     (when sorter
       (setq entries (sort entries sorter)))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]