branch: externals/posframe
commit f02770e9b56e9110cc8078638217f40583e9d9d7
Author: Feng Shu <[email protected]>
Commit: Feng Shu <[email protected]>
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.
