From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 12 Apr 2002 03:20:46 +0000 (+0000)
Subject: (edebug-eval-defun): Don't use defconst on variables.
X-Git-Tag: ttn-vms-21-2-B4~15675
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=0c4a4faa07fcc94849de914296360d3f8cb8ead1;p=emacs.git

(edebug-eval-defun): Don't use defconst on variables.
---

diff --git a/lisp/emacs-lisp/edebug.el b/lisp/emacs-lisp/edebug.el
index eb06c6128a7..66e40ea3b0a 100644
--- a/lisp/emacs-lisp/edebug.el
+++ b/lisp/emacs-lisp/edebug.el
@@ -511,11 +511,11 @@ the minibuffer."
 		(edebug-all-defs (eq edebug-all-defs (not edebug-it))))
 	    (edebug-read-top-level-form))))
     ;; This should be consistent with `eval-defun-1', but not the
-    ;; same, since that gets a macroexpended form.
+    ;; same, since that gets a macroexpanded form.
     (cond ((and (eq (car form) 'defvar)
 		(cdr-safe (cdr-safe form)))
 	   ;; Force variable to be bound.
-	   (setq form (cons 'defconst (cdr form))))
+	   (makunbound (nth 1 form)))
 	  ((and (eq (car form) 'defcustom)
 		(default-boundp (nth 1 form)))
 	   ;; Force variable to be bound.