From: Alexander Gramiak <agrambot@gmail.com>
Date: Sun, 14 Apr 2019 15:27:50 +0000 (-0600)
Subject: * lisp/frame.el (frame--size-history): Fix infloop. (Bug#35272)
X-Git-Tag: emacs-27.0.90~3258
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e233dedde2e79b72ce158e087f29fb6d2ac8453a;p=emacs.git

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

diff --git a/lisp/frame.el b/lisp/frame.el
index b5c936a51eb..539a0f4dfc7 100644
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1610,14 +1610,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))