Simplified.
authorDaiki Ueno <ueno@unixuser.org>
Sun, 13 Mar 2005 00:10:42 +0000 (00:10 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Sun, 13 Mar 2005 00:10:42 +0000 (00:10 +0000)
lisp/riece-debug.el

index eaa1b9e..def5997 100644 (file)
@@ -38,12 +38,7 @@ If the optional 2nd argument DETAIL is specified, it is stored into
     (let ((point (point)))
       (if detail
          (insert message "\n" detail "\n")
     (let ((point (point)))
       (if detail
          (insert message "\n" detail "\n")
-       (insert message "\n"))
-      (goto-char point)
-      (beginning-of-line)
-      (while (not (eobp))
-       (insert "riece-debug: ")
-       (forward-line)))))
+       (insert message "\n")))))
 
 (defun riece-debug-reset-standard-output ()
   "Reset `riece-temp-buffer' to be used as `standard-output'."
 
 (defun riece-debug-reset-standard-output ()
   "Reset `riece-temp-buffer' to be used as `standard-output'."