[nongnu] elpa/subed bf3e832 382/389: Check if subed--cps-overlay exists before trying to update it

[ELPA Syncer]

branch: elpa/subed
commit bf3e832fbb29582c9bbddebea6582bc635b7f752
Author: Sacha Chua <sacha@sachachua.com>
Commit: Random User <rndusr@posteo.de>

    Check if subed--cps-overlay exists before trying to update it
    
    * subed/subed-common.el (subed--update-cps-overlay): Do this only if
      the overlay exists. This makes code work even if the overlay has not
      been created, as in the case of non-interactive use.
---
 subed/subed-common.el | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/subed/subed-common.el b/subed/subed-common.el
index ebe6795..e53d98e 100644
--- a/subed/subed-common.el
+++ b/subed/subed-common.el
@@ -1286,12 +1286,13 @@ attribute(s)."
   "Update the CPS overlay.
 This accepts and ignores any number of arguments so that it can
 be run in `after-change-functions'."
-  (let ((cps (subed-calculate-cps)))
-    (when (numberp cps)
-      (overlay-put
-       subed--cps-overlay
-       'after-string
-       (propertize (format " %.1f CPS" cps) 'face 'shadow 'display '(height 
0.9))))))
+  (when (overlayp subed--cps-overlay)
+    (let ((cps (subed-calculate-cps)))
+      (when (numberp cps)
+        (overlay-put
+         subed--cps-overlay
+         'after-string
+         (propertize (format " %.1f CPS" cps) 'face 'shadow 'display '(height 
0.9)))))))
 
 (provide 'subed-common)
 ;;; subed-common.el ends here