procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Alexander Gramiak 2019-04-14 09:27:50 -06:00
parent 266c62290f
commit e40f39bec3
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/frame.el
View file

@ -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))