mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 22:41:06 -08:00
Code Issues Projects Releases Wiki Activity

Fix previous change in testcover.el

Browse source 
* lisp/emacs-lisp/testcover.el
(testcover-analyze-coverage-edebug-after): The wrapper macro is
called `1value', not `testcover-1value'.
This commit is contained in:
Lars Ingebrigtsen 2021-02-06 15:04:52 +01:00
parent 1e0632e772
commit c4a6f81ca4
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/testcover.el
View file

@ -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))