diff options
| author | Jens Uwe Schmidt <ju.schmidt@gmx.de> | 2016-05-29 20:09:41 +0200 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2017-03-25 14:38:29 -0400 |
| commit | 5f6ef7cba8200d19198e42a9a76fef1618b5f233 (patch) | |
| tree | d81af0ce40f1e65a2a2380ee2d19e699bb512d1b /lisp/emacs-lisp/edebug.el | |
| parent | 0a911b68eae3e295139609b1ad94b70a4d421f9b (diff) | |
| download | emacs-5f6ef7cba8200d19198e42a9a76fef1618b5f233.tar.gz | |
Stop edebug getting stuck on backquote (Bug#23651)
* lisp/emacs-lisp/edebug.el (edebug-read-sexp): Move forward after
reading backquote or comma.
Copyright-paperwork-exempt: yes
Diffstat (limited to 'lisp/emacs-lisp/edebug.el')
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index 60133055623..4116e31d0a9 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el @@ -733,9 +733,9 @@ Maybe clear the markers and delete the symbol's edebug property?" ((eq class 'string) (read (current-buffer))) ((eq class 'quote) (forward-char 1) (list 'quote (edebug-read-sexp))) - ((eq class 'backquote) + ((eq class 'backquote) (forward-char 1) (list '\` (edebug-read-sexp))) - ((eq class 'comma) + ((eq class 'comma) (forward-char 1) (list '\, (edebug-read-sexp))) (t ; anything else, just read it. (read (current-buffer)))))) |