[elpa] master 0e088fe 08/13: posframe: buffer -> buffer-info

[Feng Shu]

branch: master
commit 0e088fef671b188b2c99d180381509f43af6aad5
Author: Feng Shu <address@hidden>
Commit: Feng Shu <address@hidden>

    posframe: buffer -> buffer-info
    
    * posframe.el (posframe-delete-all, posframe-hide-all)
    (posframe--delete-frame, posframe-hide): buffer -> buffer-info
---
 posframe.el | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/posframe.el b/posframe.el
index 73ff5cb..8669868 100644
--- a/posframe.el
+++ b/posframe.el
@@ -469,9 +469,9 @@ WIDTH and MIN-WIDTH."
 (defun posframe-hide (posframe-buffer)
   "Hide posframe which buffer is POSFRAME-BUFFER."
   (dolist (frame (frame-list))
-    (let ((buffer (frame-parameter frame 'posframe-buffer)))
-      (when (or (equal posframe-buffer (car buffer))
-                (equal posframe-buffer (cdr buffer)))
+    (let ((buffer-info (frame-parameter frame 'posframe-buffer)))
+      (when (or (equal posframe-buffer (car buffer-info))
+                (equal posframe-buffer (cdr buffer-info)))
         (make-frame-invisible frame)))))
 
 (defun posframe-delete (posframe-buffer)
@@ -483,9 +483,9 @@ WIDTH and MIN-WIDTH."
   "Kill child-frame of posframe.
 This posframe's buffer is POSFRAME-BUFFER."
   (dolist (frame (frame-list))
-    (let ((buffer (frame-parameter frame 'posframe-buffer)))
-      (when (or (equal posframe-buffer (car buffer))
-                (equal posframe-buffer (cdr buffer)))
+    (let ((buffer-info (frame-parameter frame 'posframe-buffer)))
+      (when (or (equal posframe-buffer (car buffer-info))
+                (equal posframe-buffer (cdr buffer-info)))
         (with-current-buffer (get-buffer posframe-buffer)
           (dolist (timer '(posframe--refresh-timer
                            posframe--timeout-timer))
@@ -503,16 +503,16 @@ This posframe's buffer is POSFRAME-BUFFER."
   "Hide all posframe's frames."
   (interactive)
   (dolist (frame (frame-list))
-    (let ((buffer (frame-parameter frame 'posframe-buffer)))
-      (when buffer (make-frame-invisible frame)))))
+    (let ((buffer-info (frame-parameter frame 'posframe-buffer)))
+      (when buffer-info (make-frame-invisible frame)))))
 
 ;;;###autoload
 (defun posframe-delete-all ()
   "Delete all posframe's frames and buffers."
   (interactive)
   (dolist (frame (frame-list))
-    (let ((buffer (frame-parameter frame 'posframe-buffer)))
-      (when buffer (delete-frame frame))))
+    (let ((buffer-info (frame-parameter frame 'posframe-buffer)))
+      (when buffer-info (delete-frame frame))))
   (dolist (buffer (buffer-list))
     (with-current-buffer buffer
       (when posframe--frame