[elpa] master 9121b6a 04/13: posframe: posframe parameter: posframe-buffer is a cons now

[Feng Shu]

branch: master
commit 9121b6ad204190f198caa0b174a21ddc5a5c627f
Author: Feng Shu <address@hidden>
Commit: Feng Shu <address@hidden>

    posframe: posframe parameter: posframe-buffer is a cons now
    
    * posframe.el (posframe--create-posframe): frame parameter: posframe-buffer 
is a cons
    which is like: (buffer . buffer-name).
    (posframe--delete-frame): handle frame parameter: posframe-buffer, which is 
cons now.
---
 posframe.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/posframe.el b/posframe.el
index 3bc0799..72a67d0 100644
--- a/posframe.el
+++ b/posframe.el
@@ -189,7 +189,8 @@ This posframe's buffer is POSFRAME-BUFFER."
                           (cons 'font font))
                        (parent-frame . ,(or parent-frame (window-frame)))
                        (keep-ratio ,keep-ratio)
-                       (posframe-buffer . ,posframe-buffer)
+                       (posframe-buffer . ,(cons (buffer-name posframe-buffer)
+                                                 posframe-buffer))
                        (no-accept-focus . t)
                        (min-width  . 0)
                        (min-height . 0)
@@ -481,8 +482,9 @@ WIDTH and MIN-WIDTH."
 This posframe's buffer is POSFRAME-BUFFER."
   (dolist (frame (frame-list))
     (let ((buffer (frame-parameter frame 'posframe-buffer)))
-      (when (equal posframe-buffer buffer)
-        (with-current-buffer posframe-buffer
+      (when (or (equal posframe-buffer (car buffer))
+                (equal posframe-buffer (cdr buffer)))
+        (with-current-buffer (get-buffer posframe-buffer)
           (dolist (timer '(posframe--refresh-timer
                            posframe--timeout-timer))
             (when (timerp timer)