Commit e40f39be authored by Alexander Gramiak's avatar Alexander Gramiak

Backport: * lisp/frame.el (frame--size-history): Fix infloop. (Bug#35272)

parent 266c6229
......@@ -1446,14 +1446,16 @@ selected frame."
(with-current-buffer (get-buffer-create "*frame-size-history*")
(erase-buffer)
(insert (format "Frame size history of %s\n" frame))
(while (listp (setq entry (pop history)))
(while (consp (setq entry (pop history)))
(when (eq (car entry) frame)
(pop entry)
(insert (format "%s" (pop entry)))
(move-to-column 24 t)
(while entry
(insert (format " %s" (pop entry))))
(insert "\n"))))))
(insert "\n")))
(unless frame-size-history
(insert "Frame size history is nil.\n")))))
(declare-function x-frame-edges "xfns.c" (&optional frame type))
(declare-function w32-frame-edges "w32fns.c" (&optional frame type))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment