/[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.62.4.1 by handa, Fri Apr 16 12:50:13 2004 UTC revision 3.62.4.2 by miles, Mon Jun 28 07:29:45 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)
# Line 3692  Return the result of the last expression Line 3698  Return the result of the last expression
3698    (setq edebug-previous-result    (setq edebug-previous-result
3699          (concat "Result: "          (concat "Result: "
3700                  (edebug-safe-prin1-to-string edebug-previous-value)                  (edebug-safe-prin1-to-string edebug-previous-value)
3701                  (let ((name (prin1-char edebug-previous-value)))                  (eval-expression-print-format edebug-previous-value))))
                   (if name (concat " = " name))))))  
3702    
3703  (defun edebug-previous-result ()  (defun edebug-previous-result ()
3704    "Print the previous result."    "Print the previous result."
# Line 3712  Print result in minibuffer." Line 3717  Print result in minibuffer."
3717    (princ    (princ
3718     (edebug-outside-excursion     (edebug-outside-excursion
3719      (setq values (cons (edebug-eval edebug-expr) values))      (setq values (cons (edebug-eval edebug-expr) values))
3720      (edebug-safe-prin1-to-string (car values)))))      (concat (edebug-safe-prin1-to-string (car values))
3721                (eval-expression-print-format (car values))))))
3722    
3723  (defun edebug-eval-last-sexp ()  (defun edebug-eval-last-sexp ()
3724    "Evaluate sexp before point in the outside environment; value in minibuffer."    "Evaluate sexp before point in the outside environment; value in minibuffer."

Legend:
Removed from v.3.62.4.1  
changed lines
  Added in v.3.62.4.2

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