master c4a6f81: Fix previous change in testcover.el

[Lars Ingebrigtsen]

branch: master
commit c4a6f81ca4405a91ba04797ec5aced98c3c6decf
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Fix previous change in testcover.el
    
    * lisp/emacs-lisp/testcover.el
    (testcover-analyze-coverage-edebug-after): The wrapper macro is
    called `1value', not `testcover-1value'.
---
 lisp/emacs-lisp/testcover.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lisp/emacs-lisp/testcover.el b/lisp/emacs-lisp/testcover.el
index 50f2b51..75b27d0 100644
--- a/lisp/emacs-lisp/testcover.el
+++ b/lisp/emacs-lisp/testcover.el
@@ -516,7 +516,7 @@ form to be treated accordingly."
       (aset testcover-vector before-id 'edebug-ok-coverage))
 
     (setq val (testcover-analyze-coverage-wrapped-form wrapped-form))
-    (when (or (eq wrapper 'testcover-1value) val)
+    (when (or (eq wrapper '1value) val)
       ;; The form is 1-valued or potentially 1-valued.
       (aset testcover-vector after-id (or val 'testcover-1value)))
 
@@ -529,7 +529,7 @@ form to be treated accordingly."
       (aset testcover-vector after-id 'testcover-1value)
       (setq val 'testcover-1value))
 
-     ((eq (car-safe wrapped-form) 'testcover-1value)
+     ((eq (car-safe wrapped-form) '1value)
       ;; This function is always supposed to return the same value.
       (setq val 'testcover-1value)
       (aset testcover-vector after-id 'testcover-1value)))
@@ -586,9 +586,9 @@ FORM is treated as if it will be evaluated."
      ;; depending on the symbol.
      (let ((temp-form (cons func args)))
        (testcover-analyze-coverage-wrapped-form temp-form)))
-    (`(,(and func (or 'testcover-1value 'noreturn)) ,inner-form)
+    (`(,(and func (or '1value 'noreturn)) ,inner-form)
      ;; 1value and noreturn change how the edebug-after they wrap is handled.
-     (let ((val (if (eq func 'testcover-1value) 'testcover-1value 'maybe)))
+     (let ((val (if (eq func '1value) '1value 'maybe)))
        (pcase inner-form
          (`(edebug-after ,(and before-form
                                (or `(edebug-before ,before-id) before-id))