# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1086841084 0
# Node ID 397f87132b7081beecf7f94e0a5abf0ff591acc4
# Parent  9650d55ad73df284124ee463be38b78462f06588
(edebug-eval-defun): Add `defface'. Fix docstring.

diff -r 9650d55ad73d -r 397f87132b70 lisp/emacs-lisp/edebug.el
--- a/lisp/emacs-lisp/edebug.el	Thu Jun 10 04:16:05 2004 +0000
+++ b/lisp/emacs-lisp/edebug.el	Thu Jun 10 04:18:04 2004 +0000
@@ -477,7 +477,8 @@
 If the current defun is actually a call to `defvar', then reset the
 variable using its initial value expression even if the variable
 already has some other value.  (Normally `defvar' does not change the
-variable's value if it already has a value.)
+variable's value if it already has a value.)  Treat `defcustom'
+similarly.  Reinitialize the face according to `defface' specification.
 
 With a prefix argument, instrument the code for Edebug.
 
@@ -507,7 +508,12 @@
 	  ((and (eq (car form) 'defcustom)
 		(default-boundp (nth 1 form)))
 	   ;; Force variable to be bound.
-	   (set-default (nth 1 form) (eval (nth 2 form)))))
+	   (set-default (nth 1 form) (eval (nth 2 form))))
+          ((eq (car form) 'defface)
+           ;; Reset the face.
+           (put (nth 1 form) 'face-defface-spec nil)
+           (setq face-new-frame-defaults
+                 (assq-delete-all (nth 1 form) face-new-frame-defaults))))
     (setq edebug-result (eval form))
     (if (not edebugging)
 	(princ edebug-result)