-(defun riece-debug-standard-output (character)
- (let ((length (length riece-debug-standard-output)))
- (if (= riece-debug-standard-output-index length)
- (setq riece-debug-standard-output
- (concat riece-debug-standard-output
- (make-string length ?\x0))))
- (aset riece-debug-standard-output
- riece-debug-standard-output-index
- character)
- (setq riece-debug-standard-output-index
- (1+ riece-debug-standard-output-index))))
+(defun riece-debug-reset-standard-output ()
+ (unless riece-debug-standard-output-buffer
+ (setq riece-debug-standard-output-buffer
+ (generate-new-buffer " *riece-debug-standard-output*")
+ riece-buffer-list
+ (cons riece-debug-standard-output-buffer
+ riece-buffer-list)))
+ (save-excursion
+ (set-buffer riece-debug-standard-output-buffer)
+ (buffer-disable-undo)
+ (erase-buffer)))