[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/edebug.el

[Stefan Monnier]

Index: emacs/lisp/emacs-lisp/edebug.el
diff -c emacs/lisp/emacs-lisp/edebug.el:3.52 
emacs/lisp/emacs-lisp/edebug.el:3.53
*** emacs/lisp/emacs-lisp/edebug.el:3.52        Fri Nov 16 19:51:55 2001
--- emacs/lisp/emacs-lisp/edebug.el     Thu Apr 11 23:20:46 2002
***************
*** 511,521 ****
                (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.
      (cond ((and (eq (car form) 'defvar)
                (cdr-safe (cdr-safe form)))
           ;; Force variable to be bound.
!          (setq form (cons 'defconst (cdr form))))
          ((and (eq (car form) 'defcustom)
                (default-boundp (nth 1 form)))
           ;; Force variable to be bound.
--- 511,521 ----
                (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 macroexpanded form.
      (cond ((and (eq (car form) 'defvar)
                (cdr-safe (cdr-safe form)))
           ;; Force variable to be bound.
!          (makunbound (nth 1 form)))
          ((and (eq (car form) 'defcustom)
                (default-boundp (nth 1 form)))
           ;; Force variable to be bound.