[Emacs-diffs] emacs/lisp/emacs-lisp edebug.el

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/07/21 04:42:16

Modified files:
        lisp/emacs-lisp: edebug.el 

Log message:
        (cl-debug-env): Only define for compiler.
        (edebug-eval): Check cl-debug-env is bound.
        (print-level, print-circle): Don't redefine built-in variables.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emacs-lisp/edebug.el?cvsroot=emacs&r1=3.111&r2=3.112

Patches:
Index: edebug.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emacs-lisp/edebug.el,v
retrieving revision 3.111
retrieving revision 3.112
diff -u -b -r3.111 -r3.112
--- edebug.el   14 Jul 2009 08:01:53 -0000      3.111
+++ edebug.el   21 Jul 2009 04:42:16 -0000      3.112
@@ -3653,11 +3653,11 @@
         ))                             ; let
      ))
 
-(defvar cl-debug-env nil) ;; defined in cl; non-nil when lexical env used.
+(defvar cl-debug-env)  ; defined in cl; non-nil when lexical env used.
 
 (defun edebug-eval (edebug-expr)
   ;; Are there cl lexical variables active?
-  (if cl-debug-env
+  (if (bound-and-true-p cl-debug-env)
       (eval (cl-macroexpand-all edebug-expr cl-debug-env))
     (eval edebug-expr)))
 
@@ -3685,10 +3685,7 @@
                                  (prin1-to-string edebug-arg)))
                      (cdr edebug-value) ", ")))
 
-;; Define here in case they are not already defined.
-(defvar print-level nil)
-(defvar print-circle nil)
-(defvar print-readably) ;; defined by lemacs
+(defvar print-readably) ; defined by lemacs
 ;; Alternatively, we could change the definition of
 ;; edebug-safe-prin1-to-string to only use these if defined.
 
@@ -3697,7 +3694,7 @@
        (print-length (or edebug-print-length print-length))
        (print-level (or edebug-print-level print-level))
        (print-circle (or edebug-print-circle print-circle))
-       (print-readably nil)) ;; lemacs uses this.
+       (print-readably nil)) ; lemacs uses this.
     (condition-case nil
        (edebug-prin1-to-string value)
       (error "#Apparently circular structure#"))))
@@ -3760,6 +3757,7 @@
 
 ;;; Edebug Minor Mode
 
+;; FIXME eh?
 (defvar gud-inhibit-global-bindings
   "*Non-nil means don't do global rebindings of C-x C-a subcommands.")