aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2002-04-12 03:20:46 +0000
committerStefan Monnier2002-04-12 03:20:46 +0000
commit0c4a4faa07fcc94849de914296360d3f8cb8ead1 (patch)
tree667f3b2692ec2849ea53b3b95bc5e3b41d093c8e
parent6836bb6931b740770c3afb72f08228657df4c961 (diff)
downloademacs-0c4a4faa07fcc94849de914296360d3f8cb8ead1.tar.gz
emacs-0c4a4faa07fcc94849de914296360d3f8cb8ead1.zip
(edebug-eval-defun): Don't use defconst on variables.
-rw-r--r--lisp/emacs-lisp/edebug.el4
1 files changed, 2 insertions, 2 deletions
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."
511 (edebug-all-defs (eq edebug-all-defs (not edebug-it)))) 511 (edebug-all-defs (eq edebug-all-defs (not edebug-it))))
512 (edebug-read-top-level-form)))) 512 (edebug-read-top-level-form))))
513 ;; This should be consistent with `eval-defun-1', but not the 513 ;; This should be consistent with `eval-defun-1', but not the
514 ;; same, since that gets a macroexpended form. 514 ;; same, since that gets a macroexpanded form.
515 (cond ((and (eq (car form) 'defvar) 515 (cond ((and (eq (car form) 'defvar)
516 (cdr-safe (cdr-safe form))) 516 (cdr-safe (cdr-safe form)))
517 ;; Force variable to be bound. 517 ;; Force variable to be bound.
518 (setq form (cons 'defconst (cdr form)))) 518 (makunbound (nth 1 form)))
519 ((and (eq (car form) 'defcustom) 519 ((and (eq (car form) 'defcustom)
520 (default-boundp (nth 1 form))) 520 (default-boundp (nth 1 form)))
521 ;; Force variable to be bound. 521 ;; Force variable to be bound.