* lisp/emacs-lisp/gv.el (edebug-after): Don't run the getter in the setter
This fixes bug#46573 which was introduced by commit
d79cf638f2.
The new code is a middle ground, which makes sure the instrumentation
point is used (so the coverage checker won't have ghost unreachable
instrumentation points) yet without artificially running the getter
when we only need to run the setter.
This commit is contained in:
@@ -306,8 +306,7 @@ The return value is the last VAL in the list.
|
||||
(gv-letplace (getter setter) place
|
||||
(funcall do `(edebug-after ,before ,index ,getter)
|
||||
(lambda (store)
|
||||
`(progn (edebug-after ,before ,index ,getter)
|
||||
,(funcall setter store)))))))
|
||||
`(edebug-after ,before ,index ,(funcall setter store)))))))
|
||||
|
||||
;;; The common generalized variables.
|
||||
|
||||
|
||||
Reference in New Issue
Block a user