projects
/
riece
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
f4afafd
)
Fixed.
author
Daiki Ueno
<ueno@unixuser.org>
Thu, 28 Jul 2005 02:36:19 +0000
(
02:36
+0000)
committer
Daiki Ueno
<ueno@unixuser.org>
Thu, 28 Jul 2005 02:36:19 +0000
(
02:36
+0000)
lisp/riece-debug.el
patch
|
blob
|
history
diff --git
a/lisp/riece-debug.el
b/lisp/riece-debug.el
index
b08dc28
..
cddd944
100644
(file)
--- a/
lisp/riece-debug.el
+++ b/
lisp/riece-debug.el
@@
-28,14
+28,14
@@
(require 'riece-options)
(defun riece-debug-1 (message detail)
(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))
(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.
(defun riece-debug (message &optional detail)
"Print a one-line debug MESSAGE at the bottom of the frame.