[elpa] master 90c5514 02/13: posframe: Add posframe-auto-delete

[Feng Shu]

branch: master
commit 90c55149c83bbef30a2fc023d19e03aa4429919f
Author: Feng Shu <address@hidden>
Commit: Feng Shu <address@hidden>

    posframe: Add posframe-auto-delete
    
    * posframe.el (posframe-auto-delete): New function.
    (kill-buffer-hook): Add posframe-auto-delete
---
 posframe.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/posframe.el b/posframe.el
index 818a4a9..3bc0799 100644
--- a/posframe.el
+++ b/posframe.el
@@ -515,6 +515,17 @@ This posframe's buffer is POSFRAME-BUFFER."
       (when posframe--frame
         (posframe--kill-buffer buffer)))))
 
+(defun posframe-auto-delete ()
+  "Auto delete posframe when its buffer is killed.
+
+This function is used by `kill-buffer-hook'."
+  (dolist (frame (frame-list))
+    (let ((buffer (frame-parameter frame 'posframe-buffer)))
+      (when (eq buffer (current-buffer))
+        (delete-frame frame)))))
+
+(add-hook 'kill-buffer-hook #'posframe-auto-delete)
+
 ;; Posframe's position handler
 (defun posframe-run-poshandler (info)
   "Run posframe's position handler.