diff options
| author | Paul Eggert | 2011-12-18 22:21:24 -0800 |
|---|---|---|
| committer | Paul Eggert | 2011-12-18 22:21:24 -0800 |
| commit | 99d990817cac77ba755b4e31722c44f6f6bbe3b0 (patch) | |
| tree | 20ede6f28ea8785e182ee29d753a547409dd39c4 /lisp/cedet/data-debug.el | |
| parent | 3771cb1735b47102e7f94187bcdeb1a4644a557e (diff) | |
| download | emacs-99d990817cac77ba755b4e31722c44f6f6bbe3b0.tar.gz emacs-99d990817cac77ba755b4e31722c44f6f6bbe3b0.zip | |
Spelling fixes.
Diffstat (limited to 'lisp/cedet/data-debug.el')
| -rw-r--r-- | lisp/cedet/data-debug.el | 4 |
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)))) |