diff options
| author | Jens Uwe Schmidt | 2016-05-29 20:09:41 +0200 |
|---|---|---|
| committer | Noam Postavsky | 2017-03-25 14:38:29 -0400 |
| commit | 5f6ef7cba8200d19198e42a9a76fef1618b5f233 (patch) | |
| tree | d81af0ce40f1e65a2a2380ee2d19e699bb512d1b | |
| parent | 0a911b68eae3e295139609b1ad94b70a4d421f9b (diff) | |
| download | emacs-5f6ef7cba8200d19198e42a9a76fef1618b5f233.tar.gz emacs-5f6ef7cba8200d19198e42a9a76fef1618b5f233.zip | |
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
| -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?" | |||
| 733 | ((eq class 'string) (read (current-buffer))) | 733 | ((eq class 'string) (read (current-buffer))) |
| 734 | ((eq class 'quote) (forward-char 1) | 734 | ((eq class 'quote) (forward-char 1) |
| 735 | (list 'quote (edebug-read-sexp))) | 735 | (list 'quote (edebug-read-sexp))) |
| 736 | ((eq class 'backquote) | 736 | ((eq class 'backquote) (forward-char 1) |
| 737 | (list '\` (edebug-read-sexp))) | 737 | (list '\` (edebug-read-sexp))) |
| 738 | ((eq class 'comma) | 738 | ((eq class 'comma) (forward-char 1) |
| 739 | (list '\, (edebug-read-sexp))) | 739 | (list '\, (edebug-read-sexp))) |
| 740 | (t ; anything else, just read it. | 740 | (t ; anything else, just read it. |
| 741 | (read (current-buffer)))))) | 741 | (read (current-buffer)))))) |