diff options
| author | Philipp Stephani | 2020-06-14 18:18:13 +0200 |
|---|---|---|
| committer | Philipp Stephani | 2020-06-14 18:18:13 +0200 |
| commit | 62cf8f1649468fc2f6c4f8926ab5c4bb184bfbe8 (patch) | |
| tree | 8d5f6bf7b9d21548712f3638ebe895a36424be54 /lisp | |
| parent | b3e7d046c3a94556fcaf6f9ce72aa2ecb20262a6 (diff) | |
| download | emacs-62cf8f1649468fc2f6c4f8926ab5c4bb184bfbe8.tar.gz 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')
| -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 | |||
| 224 | which can do arbitrary things, whereas the other arguments are all guaranteed | 224 | which can do arbitrary things, whereas the other arguments are all guaranteed |
| 225 | to be pure and copyable. Example use: | 225 | to be pure and copyable. Example use: |
| 226 | (gv-define-setter aref (v a i) \\=`(aset ,a ,i ,v))" | 226 | (gv-define-setter aref (v a i) \\=`(aset ,a ,i ,v))" |
| 227 | (declare (indent 2) (debug (&define name sexp def-body))) | 227 | (declare (indent 2) (debug (&define name :name gv-setter sexp def-body))) |
| 228 | `(gv-define-expander ,name | 228 | `(gv-define-expander ,name |
| 229 | (lambda (do &rest args) | 229 | (lambda (do &rest args) |
| 230 | (declare-function | 230 | (declare-function |