diff options
| author | Joakim Verona | 2011-12-28 11:34:15 +0100 |
|---|---|---|
| committer | Joakim Verona | 2011-12-28 11:34:15 +0100 |
| commit | 2f74c36bf173b5ad01f99e0d1b31b9b8fa5c8f2f (patch) | |
| tree | 034e65ef002631d0aba8fc1a41e9984fc557e630 /lisp/cedet/data-debug.el | |
| parent | bb29f044aa967831cd664c54eba0de0c701436ce (diff) | |
| parent | d23ab8e8726ecb7e3554644857b4a58e5f7408f1 (diff) | |
| download | emacs-2f74c36bf173b5ad01f99e0d1b31b9b8fa5c8f2f.tar.gz emacs-2f74c36bf173b5ad01f99e0d1b31b9b8fa5c8f2f.zip | |
upstream
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)))) |