[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master e233ded: * lisp/frame.el (frame--size-history): Fix
From: |
Alexander Gramiak |
Subject: |
[Emacs-diffs] master e233ded: * lisp/frame.el (frame--size-history): Fix infloop. (Bug#35272) |
Date: |
Sun, 14 Apr 2019 13:37:03 -0400 (EDT) |
branch: master
commit e233dedde2e79b72ce158e087f29fb6d2ac8453a
Author: Alexander Gramiak <address@hidden>
Commit: Alexander Gramiak <address@hidden>
* lisp/frame.el (frame--size-history): Fix infloop. (Bug#35272)
---
lisp/frame.el | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/lisp/frame.el b/lisp/frame.el
index b5c936a..539a0f4 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))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master e233ded: * lisp/frame.el (frame--size-history): Fix infloop. (Bug#35272),
Alexander Gramiak <=