diff options
| author | Philipp Stephani <phst@google.com> | 2020-06-14 18:18:13 +0200 |
|---|---|---|
| committer | Philipp Stephani <phst@google.com> | 2020-06-14 18:18:13 +0200 |
| commit | 62cf8f1649468fc2f6c4f8926ab5c4bb184bfbe8 (patch) | |
| tree | 8d5f6bf7b9d21548712f3638ebe895a36424be54 /lisp/emacs-lisp/gv.el | |
| parent | b3e7d046c3a94556fcaf6f9ce72aa2ecb20262a6 (diff) | |
| download | emacs-62cf8f1649468fc2f6c4f8926ab5c4bb184bfbe8.tar.gz emacs-62cf8f1649468fc2f6c4f8926ab5c4bb184bfbe8.tar.bz2 emacs-62cf8f1649468fc2f6c4f8926ab5c4bb184bfbe8.zip | |
Ensure that getters and setters can be edebugged at the same time.
It's necessary to add a name suffix to setters defined with
'gv-define-setter' so that Edebug can distinguish between the getter
and the setter (Bug#41853).
* lisp/emacs-lisp/gv.el (gv-define-setter): Add a name suffix to
setter definitions.
* test/lisp/emacs-lisp/gv-tests.el (gv-setter-edebug): New regression
test.
Diffstat (limited to 'lisp/emacs-lisp/gv.el')
| -rw-r--r-- | lisp/emacs-lisp/gv.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/gv.el b/lisp/emacs-lisp/gv.el index 096036a0ffa..513bd328899 100644 --- a/lisp/emacs-lisp/gv.el +++ b/lisp/emacs-lisp/gv.el @@ -224,7 +224,7 @@ The first arg in ARGLIST (the one that receives VAL) receives an expression which can do arbitrary things, whereas the other arguments are all guaranteed to be pure and copyable. Example use: (gv-define-setter aref (v a i) \\=`(aset ,a ,i ,v))" - (declare (indent 2) (debug (&define name sexp def-body))) + (declare (indent 2) (debug (&define name :name gv-setter sexp def-body))) `(gv-define-expander ,name (lambda (do &rest args) (declare-function |