[elpa] externals/posframe 11c2fa2 2/2: * posframe.el (posframe--insert-string): simplify.

[Feng Shu]

branch: externals/posframe
commit 11c2fa2d6e0236f20c83da86c37b005c64b8c5cb
Author: Feng Shu <address@hidden>
Commit: Feng Shu <address@hidden>

    * posframe.el (posframe--insert-string): simplify.
    
    Thanks @conao3  
https://github.com/tumashu/posframe/pull/25/commits/d52e2b0e093c79b24fc245286ff094dbe830dde9
---
 posframe.el | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/posframe.el b/posframe.el
index a531210..3eb28ec 100644
--- a/posframe.el
+++ b/posframe.el
@@ -549,13 +549,11 @@ will be removed."
   (when (and string (stringp string))
     (remove-text-properties
      0 (length string) '(read-only t) string)
-    ;; Does inserting string then deleting the before
-    ;; contents reduce flicking? Maybe :-)
-    (goto-char (point-min))
-    (if no-properties
-        (insert (substring-no-properties string))
-      (insert string))
-    (delete-region (point) (point-max))))
+    (let ((str (if no-properties
+                   (substring-no-properties string)
+                 string)))
+      (erase-buffer)
+      (insert str))))
 
 (defun posframe--set-frame-size (posframe height min-height width min-width)
   "Set POSFRAME's size.