Sort open popups by display time.

karthink · Jan 20, 2023 · cc48e01 · cc48e01
1 parent 50568b8
commit cc48e01
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/popper.el b/popper.el
@@ -348,7 +348,12 @@ Each element of the alist is a cons cell of the form (window . buffer)."
                                               'suppressed
                                             'popup))))
           (push (cons (get-buffer-window b) b)
-                open-popups))))))
+                open-popups))))
+    (cl-sort open-popups
+             (lambda (a b) (time-less-p b a))
+             :key (lambda (p)
+                    (buffer-local-value 'buffer-display-time
+                                        (cdr p))))))
 
 (defun popper--update-popups ()
   "Update the list of currently open popups.