[elpa] master 7779b2a 4/4: Merge commit '1070cf02d121a117036a3dbe9f19b4d3d91aa294'

[Feng Shu]

branch: master
commit 7779b2ac4dad009eb42602a79ccd6f782840c281
Merge: eb6623b 1070cf0
Author: Feng Shu <address@hidden>
Commit: Feng Shu <address@hidden>

    Merge commit '1070cf02d121a117036a3dbe9f19b4d3d91aa294'
---
 packages/posframe/posframe.el | 24 +++++++++++++-----------
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/packages/posframe/posframe.el b/packages/posframe/posframe.el
index a30c99a..9a7a73f 100644
--- a/packages/posframe/posframe.el
+++ b/packages/posframe/posframe.el
@@ -5,7 +5,7 @@
 ;; Author: Feng Shu <address@hidden>
 ;; Maintainer: Feng Shu <address@hidden>
 ;; URL: https://github.com/tumashu/posframe
-;; Version: 0.2.0
+;; Version: 0.3.0
 ;; Keywords: tooltip
 ;; Package-Requires: ((emacs "26"))
 
@@ -72,10 +72,14 @@
 ;; #+END_EXAMPLE
 
 ;; *** Delete a posframe
-;; #+BEGIN_EXAMPLE
-;; (posframe-delete " *my-posframe-buffer*")
-;; #+END_EXAMPLE
-
+;; 1. Delete posframe and its buffer
+;;    #+BEGIN_EXAMPLE
+;;    (posframe-delete " *my-posframe-buffer*")
+;;    #+END_EXAMPLE
+;; 2. Only delete posframe's frame
+;;    #+BEGIN_EXAMPLE
+;;    (posframe-delete-frame " *my-posframe-buffer*")
+;;    #+END_EXAMPLE
 ;; *** Delete all posframes
 ;; #+BEGIN_EXAMPLE
 ;; M-x posframe-delete-all
@@ -89,8 +93,6 @@
 ;; * posframe's code                         :CODE:
 (require 'cl-lib)
 
-(defconst posframe-version "0.1.0")
-
 (defgroup posframe nil
   "Pop a posframe (just a frame) at point"
   :group 'lisp
@@ -180,7 +182,7 @@ This posframe's buffer is POSFRAME-BUFFER."
                    ;; user change args, recreating frame
                    ;; is needed.
                    (equal posframe--last-args args))
-        (posframe--delete-frame posframe-buffer)
+        (posframe-delete-frame posframe-buffer)
         (setq-local posframe--last-args args)
         (setq-local posframe--last-position nil)
         (setq-local posframe--last-posframe-size nil)
@@ -492,10 +494,10 @@ WIDTH and MIN-WIDTH."
 
 (defun posframe-delete (posframe-buffer)
   "Delete posframe which buffer POSFRAME-BUFFER."
-  (posframe--delete-frame posframe-buffer)
+  (posframe-delete-frame posframe-buffer)
   (posframe--kill-buffer posframe-buffer))
 
-(defun posframe--delete-frame (posframe-buffer)
+(defun posframe-delete-frame (posframe-buffer)
   "Kill child-frame of posframe.
 This posframe's buffer is POSFRAME-BUFFER."
   (dolist (frame (frame-list))
@@ -540,7 +542,7 @@ This posframe's buffer is POSFRAME-BUFFER."
   "Auto delete posframe when its buffer is killed.
 
 This function is used by `kill-buffer-hook'."
-  (posframe--delete-frame (current-buffer)))
+  (posframe-delete-frame (current-buffer)))
 
 (add-hook 'kill-buffer-hook #'posframe-auto-delete)