(save-excursion
(set-buffer riece-debug-buffer)
(goto-char (point-max))
- (let ((point (point)))
+ (let ((time (format-time-string "%Y-%m-%d:%H:%M:%S")))
(if detail
- (insert message "\n" detail "\n")
- (insert message "\n")))))
+ (insert "*** " time ": " message "\n" detail "\n")
+ (insert "*** " time ": " message "\n")))))
(defun riece-debug (message &optional detail)
"Print a one-line debug MESSAGE at the bottom of the frame.