diff options
| author | Gerd Moellmann | 1999-11-29 15:34:47 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 1999-11-29 15:34:47 +0000 |
| commit | ebb4159cf0f320a0ba847b5f74f9ffcb40982ea7 (patch) | |
| tree | d739cbbbdf9554b38a01ae9e4d3afb8c00303dd4 /lisp | |
| parent | e8fe7d390d032b1b6ceaffacdb4ed5234907dd56 (diff) | |
| download | emacs-ebb4159cf0f320a0ba847b5f74f9ffcb40982ea7.tar.gz emacs-ebb4159cf0f320a0ba847b5f74f9ffcb40982ea7.zip | |
(edebug-make-enter-wrapper): Correct
invalid translation of old-style backquote syntax to new syntax.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/edebug.el | 7 |
2 files changed, 9 insertions, 3 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 979136d53a1..1ac7e0072db 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 1999-11-29 Gerd Moellmann <gerd@gnu.org> | ||
| 2 | |||
| 3 | * emacs-lisp/edebug.el (edebug-make-enter-wrapper): Correct | ||
| 4 | invalid translation of old-style backquote syntax to new syntax. | ||
| 5 | |||
| 1 | 1999-11-28 Eli Zaretskii <eliz@is.elta.co.il> | 6 | 1999-11-28 Eli Zaretskii <eliz@is.elta.co.il> |
| 2 | 7 | ||
| 3 | * Makefile (DONTCOMPILE): Add term/internal.el. | 8 | * Makefile (DONTCOMPILE): Add term/internal.el. |
diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el index ba53427c1e4..44df428d068 100644 --- a/lisp/emacs-lisp/edebug.el +++ b/lisp/emacs-lisp/edebug.el | |||
| @@ -1231,9 +1231,10 @@ This controls how we read comma constructs.") | |||
| 1231 | `(edebug-enter | 1231 | `(edebug-enter |
| 1232 | (quote ,edebug-def-name) | 1232 | (quote ,edebug-def-name) |
| 1233 | ,(if edebug-inside-func | 1233 | ,(if edebug-inside-func |
| 1234 | `(list (;; Doesn't work with more than one def-body!! | 1234 | `(list |
| 1235 | ;; But the list will just be reversed. | 1235 | ;; Doesn't work with more than one def-body!! |
| 1236 | ,@(nreverse edebug-def-args))) | 1236 | ;; But the list will just be reversed. |
| 1237 | ,@(nreverse edebug-def-args)) | ||
| 1237 | 'nil) | 1238 | 'nil) |
| 1238 | (function (lambda () ,@forms)) | 1239 | (function (lambda () ,@forms)) |
| 1239 | )) | 1240 | )) |