(edebug-make-enter-wrapper): Correct

invalid translation of old-style backquote syntax to new syntax.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 979136d53a1c9ab6fe40264bb8c98b21940b7474..1ac7e0072db5a9bb010e0cf84886b926d5967ed0 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+1999-11-29  Gerd Moellmann  <gerd@gnu.org>
+
+       * emacs-lisp/edebug.el (edebug-make-enter-wrapper): Correct
+       invalid translation of old-style backquote syntax to new syntax.
+
 1999-11-28  Eli Zaretskii  <eliz@is.elta.co.il>
 
        * Makefile (DONTCOMPILE): Add term/internal.el.

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index ba53427c1e4b63e83a2d20feb2e9bc90c28900c8..44df428d0686ffca076fb07ef893ee7afa0ce2da 100644 (file)
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -1231,9 +1231,10 @@ This controls how we read comma constructs.")
   `(edebug-enter
     (quote ,edebug-def-name)
     ,(if edebug-inside-func  
-        `(list (;; Doesn't work with more than one def-body!!
-                ;; But the list will just be reversed.
-                ,@(nreverse edebug-def-args)))
+        `(list
+          ;; Doesn't work with more than one def-body!!
+          ;; But the list will just be reversed.
+          ,@(nreverse edebug-def-args))
        'nil)
     (function (lambda () ,@forms))
     ))