aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/cedet/data-debug.el
diff options
context:
space:
mode:
authorPaul Eggert2011-12-18 22:21:24 -0800
committerPaul Eggert2011-12-18 22:21:24 -0800
commit99d990817cac77ba755b4e31722c44f6f6bbe3b0 (patch)
tree20ede6f28ea8785e182ee29d753a547409dd39c4 /lisp/cedet/data-debug.el
parent3771cb1735b47102e7f94187bcdeb1a4644a557e (diff)
downloademacs-99d990817cac77ba755b4e31722c44f6f6bbe3b0.tar.gz
emacs-99d990817cac77ba755b4e31722c44f6f6bbe3b0.zip
Spelling fixes.
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))))