Mercurial > emacs
comparison lisp/emacs-lisp/edebug.el @ 32227:d22ae991ac5f
Comment.
author | Dave Love <fx@gnu.org> |
---|---|
date | Fri, 06 Oct 2000 18:37:50 +0000 |
parents | 3cfd3dc474b8 |
children | bfee926318b1 |
comparison
equal
deleted
inserted
replaced
32226:2af46c6c8bde | 32227:d22ae991ac5f |
---|---|
538 (edebug-result) | 538 (edebug-result) |
539 (form | 539 (form |
540 (let ((edebug-all-forms edebugging) | 540 (let ((edebug-all-forms edebugging) |
541 (edebug-all-defs (eq edebug-all-defs (not edebug-it)))) | 541 (edebug-all-defs (eq edebug-all-defs (not edebug-it)))) |
542 (edebug-read-top-level-form)))) | 542 (edebug-read-top-level-form)))) |
543 ;; This should be consistent with `eval-defun-1', but not the | |
544 ;; same, since that gets a macroexpended form. | |
543 (cond ((and (eq (car form) 'defvar) | 545 (cond ((and (eq (car form) 'defvar) |
544 (cdr-safe (cdr-safe form))) | 546 (cdr-safe (cdr-safe form))) |
545 ;; Force variable to be bound. | 547 ;; Force variable to be bound. |
546 (setq form (cons 'defconst (cdr form)))) | 548 (setq form (cons 'defconst (cdr form)))) |
547 ((and (eq (car form) 'defcustom) | 549 ((and (eq (car form) 'defcustom) |