Commit e233dedd authored by Alexander Gramiak's avatar Alexander Gramiak

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

parent 5ee5895f
Pipeline #1287 failed with stage
in 60 minutes and 1 second
...@@ -1610,14 +1610,16 @@ selected frame." ...@@ -1610,14 +1610,16 @@ selected frame."
(with-current-buffer (get-buffer-create "*frame-size-history*") (with-current-buffer (get-buffer-create "*frame-size-history*")
(erase-buffer) (erase-buffer)
(insert (format "Frame size history of %s\n" frame)) (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) (when (eq (car entry) frame)
(pop entry) (pop entry)
(insert (format "%s" (pop entry))) (insert (format "%s" (pop entry)))
(move-to-column 24 t) (move-to-column 24 t)
(while entry (while entry
(insert (format " %s" (pop 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 x-frame-edges "xfns.c" (&optional frame type))
(declare-function w32-frame-edges "w32fns.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