/[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.75 by teirllm, Fri Jun 17 14:32:46 2005 UTC revision 3.76 by jurta, Tue Jun 21 15:59:51 2005 UTC
# Line 511  the minibuffer." Line 511  the minibuffer."
511             (set-default (nth 1 form) (eval (nth 2 form))))             (set-default (nth 1 form) (eval (nth 2 form))))
512            ((eq (car form) 'defface)            ((eq (car form) 'defface)
513             ;; Reset the face.             ;; Reset the face.
            (put (nth 1 form) 'face-defface-spec nil)  
514             (setq face-new-frame-defaults             (setq face-new-frame-defaults
515                   (assq-delete-all (nth 1 form) face-new-frame-defaults))))                   (assq-delete-all (nth 1 form) face-new-frame-defaults))
516               (put (nth 1 form) 'face-defface-spec nil)
517               ;; See comments in `eval-defun-1' for purpose of code below
518               (setq form (prog1 `(prog1 ,form
519                                    (put ',(nth 1 form) 'saved-face
520                                         ',(get (nth 1 form) 'saved-face))
521                                    (put ',(nth 1 form) 'customized-face
522                                         ',(nth 2 form)))
523                            (put (nth 1 form) 'saved-face nil)))))
524      (setq edebug-result (eval form))      (setq edebug-result (eval form))
525      (if (not edebugging)      (if (not edebugging)
526          (princ edebug-result)          (princ edebug-result)

Legend:
Removed from v.3.75  
changed lines
  Added in v.3.76

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