]> git.eshelyaron.com Git - emacs.git/commitdiff
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-print):
authorArtur Malabarba <bruce.connor.am@gmail.com>
Mon, 29 Jun 2015 09:07:24 +0000 (10:07 +0100)
committerArtur Malabarba <bruce.connor.am@gmail.com>
Mon, 29 Jun 2015 09:11:16 +0000 (10:11 +0100)
Don't block remember-pos if buffer isn't displayed.  (Bug#20921)

lisp/emacs-lisp/tabulated-list.el

index 4bf714baa18b28b365218499230acb05cc5dd875..9119c3a5adeb4e7fdd3c9ec668b79d3ee8d91151 100644 (file)
@@ -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)))