[nongnu] elpa/subed 74793f0653: Delete subed cps overlays when disabling it

[ELPA Syncer]

branch: elpa/subed
commit 74793f06532d15ea5e1008b5d227dab17ab8f27a
Author: Sacha Chua <sacha@sachachua.com>
Commit: Sacha Chua <sacha@sachachua.com>

    Delete subed cps overlays when disabling it
    
    * subed/subed-common.el (subed-disable-show-cps): Delete all subed cps
    overlays.
    (subed--move-cps-overlay-to-current-subtitle): Add subed cps property.
---
 NEWS.org              | 4 ++++
 subed/subed-common.el | 6 +++++-
 subed/subed.el        | 2 +-
 3 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/NEWS.org b/NEWS.org
index 589438e135..e28bbd0faa 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -1,4 +1,8 @@
 * subed news
+** Version 1.0.14 - 2022-10-25 - Sacha Chua
+
+Delete the CPS overlay when disabling it
+
 ** Version 1.0.13 - 2022-10-25 - Sacha Chua
 
 Fixed TSV fontlocking.
diff --git a/subed/subed-common.el b/subed/subed-common.el
index 869e2bc144..6bdd8c4b32 100644
--- a/subed/subed-common.el
+++ b/subed/subed-common.el
@@ -1591,6 +1591,9 @@ attribute(s)."
   (remove-hook 'post-command-hook #'subed--update-cps-overlay t)
   (remove-hook 'subed-subtitle-motion-hook 
#'subed--move-cps-overlay-to-current-subtitle t)
   (remove-hook 'after-save-hook #'subed--move-cps-overlay-to-current-subtitle 
t)
+  (when subed--cps-overlay
+         (remove-overlays (point-min) (point-max) 'subed 'cps)
+    (setq subed--cps-overlay nil))
   (unless quiet
     (message "Disabled showing characters per second")))
 
@@ -1641,7 +1644,8 @@ attribute(s)."
                              (line-end-position))))
       (if subed--cps-overlay
                (move-overlay subed--cps-overlay begin end (current-buffer))
-        (setq subed--cps-overlay (make-overlay begin end)))
+        (setq subed--cps-overlay (make-overlay begin end))
+        (overlay-put subed--cps-overlay 'subed 'cps))
       (subed--update-cps-overlay))))
 
 (defun subed--update-cps-overlay (&rest _rest)
diff --git a/subed/subed.el b/subed/subed.el
index c8ac304a6d..2191eba02b 100644
--- a/subed/subed.el
+++ b/subed/subed.el
@@ -1,6 +1,6 @@
 ;;; subed.el --- A major mode for editing subtitles  -*- lexical-binding: t; 
-*-
 
-;; Version: 1.0.13
+;; Version: 1.0.14
 ;; Maintainer: Sacha Chua <sacha@sachachua.com>
 ;; Author: Random User
 ;; Keywords: convenience, files, hypermedia, multimedia