[elpa] externals/posframe f02770e 22/40: Revert "'posframe-buffer-frame': New function to get a buffer's posframe"

[Feng Shu]

branch: externals/posframe
commit f02770e9b56e9110cc8078638217f40583e9d9d7
Author: Feng Shu <address@hidden>
Commit: Feng Shu <address@hidden>

    Revert "'posframe-buffer-frame': New function to get a buffer's posframe"
    
    This reverts commit 2c5f3905df8c4a6def766196759a00eb249163de.
---
 posframe.el | 13 +++++--------
 1 file changed, 5 insertions(+), 8 deletions(-)

diff --git a/posframe.el b/posframe.el
index cfd6091..5705397 100644
--- a/posframe.el
+++ b/posframe.el
@@ -665,17 +665,14 @@ WIDTH and MIN-WIDTH."
                           frame height min-height width min-width)))
                    posframe height min-height width min-width)))))
 
-(defun posframe-buffer-frame (buffer-or-name)
-  "Return the posframe pertaining to BUFFER-OR-NAME.
-BUFFER-OR-NAME can be a buffer or a buffer name."
-  (when-let ((buffer (get-buffer buffer-or-name)))
-    (with-current-buffer buffer posframe--frame)))
-
 (defun posframe-hide (buffer-or-name)
   "Hide posframe pertaining to BUFFER-OR-NAME.
 BUFFER-OR-NAME can be a buffer or a buffer name."
-  (when-let ((frame (posframe-buffer-frame buffer-or-name)))
-    (posframe--make-frame-invisible frame)))
+  (dolist (frame (frame-list))
+    (let ((buffer-info (frame-parameter frame 'posframe-buffer)))
+      (when (or (equal buffer-or-name (car buffer-info))
+                (equal buffer-or-name (cdr buffer-info)))
+        (posframe--make-frame-invisible frame)))))
 
 (defun posframe-delete (buffer-or-name)
   "Delete posframe pertaining to BUFFER-OR-NAME and kill the buffer.