projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
4bd1f79
)
Fixed.
author
Daiki Ueno
<ueno@unixuser.org>
Wed, 2 Feb 2005 08:23:56 +0000
(08:23 +0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Wed, 2 Feb 2005 08:23:56 +0000
(08:23 +0000)
lisp/riece-debug.el
patch
|
blob
|
history
diff --git
a/lisp/riece-debug.el
b/lisp/riece-debug.el
index
d11253a
..
9209bd9
100644
(file)
--- a/
lisp/riece-debug.el
+++ b/
lisp/riece-debug.el
@@
-26,11
+26,9
@@
(require 'riece-globals)
(require 'riece-globals)
-(defvar riece-debug-standard-output-buffer riece-temp-buffer)
-
(defun riece-debug-reset-standard-output ()
(save-excursion
(defun riece-debug-reset-standard-output ()
(save-excursion
- (set-buffer riece-
debug-standard-output
-buffer)
+ (set-buffer riece-
temp
-buffer)
(buffer-disable-undo)
(erase-buffer)))
(buffer-disable-undo)
(erase-buffer)))
@@
-38,7
+36,7
@@
`(unwind-protect
(progn ,@body)
(riece-debug-reset-standard-output)
`(unwind-protect
(progn ,@body)
(riece-debug-reset-standard-output)
- (let ((standard-output riece-
debug-standard-output
-buffer))
+ (let ((standard-output riece-
temp
-buffer))
(backtrace))))
(put 'riece-debug-with-backtrace 'lisp-indent-function 0)
(backtrace))))
(put 'riece-debug-with-backtrace 'lisp-indent-function 0)
@@
-52,7
+50,7
@@
(error
(if riece-debug
(save-excursion
(error
(if riece-debug
(save-excursion
- (set-buffer riece-
debug-standard-output
-buffer)
+ (set-buffer riece-
temp
-buffer)
(if (re-search-forward "^ signal(" nil t)
(delete-region (point-min) (match-beginning 0)))
(message "Error in `%s': %S\n%s" ,location error (buffer-string))))
(if (re-search-forward "^ signal(" nil t)
(delete-region (point-min) (match-beginning 0)))
(message "Error in `%s': %S\n%s" ,location error (buffer-string))))