/[emacs]/emacs/lisp/emacs-lisp/edebug.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/edebug.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3.53.2.6 by miles, Tue Jul 6 09:31:50 2004 UTC revision 3.53.2.7 by miles, Tue Jul 6 10:00:20 2004 UTC
# Line 477  also dependent on the values of `edebug- Line 477  also dependent on the values of `edebug-
477  If the current defun is actually a call to `defvar', then reset the  If the current defun is actually a call to `defvar', then reset the
478  variable using its initial value expression even if the variable  variable using its initial value expression even if the variable
479  already has some other value.  (Normally `defvar' does not change the  already has some other value.  (Normally `defvar' does not change the
480  variable's value if it already has a value.)  variable's value if it already has a value.)  Treat `defcustom'
481    similarly.  Reinitialize the face according to `defface' specification.
482    
483  With a prefix argument, instrument the code for Edebug.  With a prefix argument, instrument the code for Edebug.
484    
# Line 507  the minibuffer." Line 508  the minibuffer."
508            ((and (eq (car form) 'defcustom)            ((and (eq (car form) 'defcustom)
509                  (default-boundp (nth 1 form)))                  (default-boundp (nth 1 form)))
510             ;; Force variable to be bound.             ;; Force variable to be bound.
511             (set-default (nth 1 form) (eval (nth 2 form)))))             (set-default (nth 1 form) (eval (nth 2 form))))
512              ((eq (car form) 'defface)
513               ;; Reset the face.
514               (put (nth 1 form) 'face-defface-spec nil)
515               (setq face-new-frame-defaults
516                     (assq-delete-all (nth 1 form) face-new-frame-defaults))))
517      (setq edebug-result (eval form))      (setq edebug-result (eval form))
518      (if (not edebugging)      (if (not edebugging)
519          (princ edebug-result)          (princ edebug-result)

Legend:
Removed from v.3.53.2.6  
changed lines
  Added in v.3.53.2.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26