aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/cedet/data-debug.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/cedet/data-debug.el')
-rw-r--r--lisp/cedet/data-debug.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/cedet/data-debug.el b/lisp/cedet/data-debug.el
index 329d1c608c2..d553c433fc4 100644
--- a/lisp/cedet/data-debug.el
+++ b/lisp/cedet/data-debug.el
@@ -1060,11 +1060,11 @@ If the result is a list or vector, then use the data debugger to display it."
1060 (setq values (cons (eval expr) values)) 1060 (setq values (cons (eval expr) values))
1061 (let ((old-value (make-symbol "t")) new-value) 1061 (let ((old-value (make-symbol "t")) new-value)
1062 ;; Bind debug-on-error to something unique so that we can 1062 ;; Bind debug-on-error to something unique so that we can
1063 ;; detect when evaled code changes it. 1063 ;; detect when evalled code changes it.
1064 (let ((debug-on-error old-value)) 1064 (let ((debug-on-error old-value))
1065 (setq values (cons (eval expr) values)) 1065 (setq values (cons (eval expr) values))
1066 (setq new-value debug-on-error)) 1066 (setq new-value debug-on-error))
1067 ;; If evaled code has changed the value of debug-on-error, 1067 ;; If evalled code has changed the value of debug-on-error,
1068 ;; propagate that change to the global binding. 1068 ;; propagate that change to the global binding.
1069 (unless (eq old-value new-value) 1069 (unless (eq old-value new-value)
1070 (setq debug-on-error new-value)))) 1070 (setq debug-on-error new-value))))