[elpa] master 28a475d 07/13: * posframe.el (posframe-hide-all): Simplify code

[Feng Shu]

branch: master
commit 28a475d8b63c0e6691d0f4968b4015912215dac1
Author: Feng Shu <address@hidden>
Commit: Feng Shu <address@hidden>

    * posframe.el (posframe-hide-all): Simplify code
---
 posframe.el | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/posframe.el b/posframe.el
index 6f67828..73ff5cb 100644
--- a/posframe.el
+++ b/posframe.el
@@ -502,10 +502,9 @@ This posframe's buffer is POSFRAME-BUFFER."
 (defun posframe-hide-all ()
   "Hide all posframe's frames."
   (interactive)
-  (dolist (buffer (buffer-list))
-    (with-current-buffer buffer
-      (when (frame-live-p posframe--frame)
-        (make-frame-invisible posframe--frame)))))
+  (dolist (frame (frame-list))
+    (let ((buffer (frame-parameter frame 'posframe-buffer)))
+      (when buffer (make-frame-invisible frame)))))
 
 ;;;###autoload
 (defun posframe-delete-all ()