From 1e0e725437c5f04e95d7d1cedc69cbc22b90d7a8 Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 28 Jul 2005 02:36:19 +0000 Subject: [PATCH] Fixed. --- lisp/riece-debug.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/lisp/riece-debug.el b/lisp/riece-debug.el index b08dc28..cddd944 100644 --- a/lisp/riece-debug.el +++ b/lisp/riece-debug.el @@ -28,14 +28,14 @@ (require 'riece-options) (defun riece-debug-1 (message detail) - (let ((time (format-time-string "%Y-%m-%d:%H:%M:%S"))) - (message "riece-debug:%s: %s" time message) + (message "riece-debug: %s" message) (save-excursion (set-buffer riece-debug-buffer) (goto-char (point-max)) - (if detail - (insert "*** " time ": " message "\n" detail "\n") - (insert "*** " time ": " message "\n")))) + (let ((time (format-time-string "%Y-%m-%d:%H:%M:%S"))) + (if detail + (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. -- 1.7.10.4