[elpa] externals/ampc 8e34ab9150 082/111: * ampc.el (ampc-update-playlist, ampc-fill-status, ampc-configure-frame)

[Stefan Monnier]

branch: externals/ampc
commit 8e34ab91508b2ce10a60d0ff6c04246fa3c064d4
Author: Christopher Schmidt <christopher@ch.ristopher.com>
Commit: Christopher Schmidt <christopher@ch.ristopher.com>

    * ampc.el (ampc-update-playlist, ampc-fill-status, ampc-configure-frame)
    (ampc): Use erase-buffer rather than delete-region.
---
 ampc.el | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/ampc.el b/ampc.el
index ef3ec1bfdb..e6df1ee92b 100644
--- a/ampc.el
+++ b/ampc.el
@@ -983,7 +983,7 @@ all the time!"
                            nil
                            (get-text-property (point) 'data))
       (ampc-with-buffer 'playlist
-        (delete-region (point-min) (point-max))
+        (erase-buffer)
         (ampc-set-dirty nil)))))
 
 (defun ampc-send-command-impl (command)
@@ -1279,7 +1279,7 @@ all the time!"
 
 (defun ampc-fill-status ()
   (ampc-with-buffer 'status
-    (delete-region (point-min) (point-max))
+    (erase-buffer)
     (funcall (or (plist-get (cadr ampc-type) :filler)
                  (lambda (_)
                    (insert (ampc-status t) "\n")))
@@ -1625,11 +1625,11 @@ all the time!"
   ;; fill the song, current-playlist and outputs buffers again as the tab
   ;; offsets might have changed
   (ampc-with-buffer 'song
-    (delete-region (point-min) (point-max)))
+    (erase-buffer))
   (ampc-with-buffer 'current-playlist
-    (delete-region (point-min) (point-max)))
+    (erase-buffer))
   (ampc-with-buffer 'outputs
-    (delete-region (point-min) (point-max)))
+    (erase-buffer))
   (ampc-update))
 
 (defun ampc-mouse-play-this (event)
@@ -2136,8 +2136,7 @@ default to the ones specified in `ampc-default-server'."
     (let ((connection (open-network-stream "ampc"
                                            (with-current-buffer
                                                (get-buffer-create " *ampc*")
-                                             (delete-region (point-min)
-                                                            (point-max))
+                                             (erase-buffer)
                                              (current-buffer))
                                            host
                                            port