[Emacs-diffs] trunk r113765: * lisp/emacs-lisp/edebug.el (edebug-debugger): Use edebug-eval to run the

[Stefan Monnier]

------------------------------------------------------------
revno: 113765
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=12685
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Thu 2013-08-08 19:14:20 -0400
message:
  * lisp/emacs-lisp/edebug.el (edebug-debugger): Use edebug-eval to run the
  break-condition in the context of the debugged code.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/edebug.el      edebug.el-20091113204419-o5vbwnq5f7feedwu-483

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-08 19:22:58 +0000
+++ b/lisp/ChangeLog    2013-08-08 23:14:20 +0000
@@ -1,3 +1,8 @@
+2013-08-08  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/edebug.el (edebug-debugger): Use edebug-eval to run the
+       break-condition in the context of the debugged code (bug#12685).
+
 2013-08-08  Christopher Schmidt  <address@hidden>
 
        * comint.el:
@@ -6,8 +11,8 @@
        (comint-last-prompt): New variable.
        (comint-last-prompt-overlay): Remove.  Superseded by
        comint-last-prompt.
-       (comint-snapshot-last-prompt, comint-output-filter): Use
-       comint-last-prompt.
+       (comint-snapshot-last-prompt, comint-output-filter):
+       Use comint-last-prompt.
 
 2013-08-08  Juanma Barranquero  <address@hidden>
 
@@ -164,8 +169,8 @@
 
 2013-08-06  Dmitry Antipov  <address@hidden>
 
-       * files.el (cache-long-line-scans): Make
-       obsolete alias to `cache-long-scans'.
+       * files.el (cache-long-line-scans):
+       Make obsolete alias to `cache-long-scans'.
 
 2013-08-06  Juanma Barranquero  <address@hidden>
 

=== modified file 'lisp/emacs-lisp/edebug.el'
--- a/lisp/emacs-lisp/edebug.el 2013-08-05 14:26:57 +0000
+++ b/lisp/emacs-lisp/edebug.el 2013-08-08 23:14:20 +0000
@@ -2314,8 +2314,7 @@
            (if edebug-global-break-condition
                (condition-case nil
                    (setq edebug-global-break-result
-                          ;; FIXME: lexbind.
-                         (eval edebug-global-break-condition))
+                         (edebug-eval edebug-global-break-condition))
                  (error nil))))
           (edebug-break))
 
@@ -2326,8 +2325,7 @@
                (and edebug-break-data
                     (or (not edebug-break-condition)
                         (setq edebug-break-result
-                               ;; FIXME: lexbind.
-                              (eval edebug-break-condition))))))
+                              (edebug-eval edebug-break-condition))))))
       (if (and edebug-break
               (nth 2 edebug-break-data)) ; is it temporary?
          ;; Delete the breakpoint.