From 0c5eecf430df9b43a4500e496395385f4820241e Mon Sep 17 00:00:00 2001 From: ueno Date: Thu, 28 Jul 2005 02:35:50 +0000 Subject: [PATCH] * riece-debug.el: Don't bind unused variable; prepend time to debug message. --- lisp/ChangeLog | 5 +++++ lisp/riece-debug.el | 10 +++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 54913c4..6f0101f 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2005-07-28 Daiki Ueno + + * riece-debug.el: Don't bind unused variable; prepend time to + debug message. + 2005-07-19 Daiki Ueno * riece-unread.el (riece-guess-channel-from-unread): Return diff --git a/lisp/riece-debug.el b/lisp/riece-debug.el index f5e8bf9..b08dc28 100644 --- a/lisp/riece-debug.el +++ b/lisp/riece-debug.el @@ -28,14 +28,14 @@ (require 'riece-options) (defun riece-debug-1 (message detail) - (message "riece-debug: %s" message) + (let ((time (format-time-string "%Y-%m-%d:%H:%M:%S"))) + (message "riece-debug:%s: %s" time message) (save-excursion (set-buffer riece-debug-buffer) (goto-char (point-max)) - (let ((point (point))) - (if detail - (insert message "\n" detail "\n") - (insert message "\n"))))) + (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