* liece-misc.el (liece-insert-timestamp): Abolish.

(liece-own-frozen): Abolish.
(liece-own-message): Abolish.
(liece-scroll-if-visible): Abolish.
(liece-generate-hex-timestamp): Abolish.
(liece-hex-timestamp-valid): Abolish.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8eada22..dc1834c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2003-05-23  Daiki Ueno  <ueno@unixuser.org>
+
+       * liece-misc.el (liece-insert-timestamp): Abolish.
+       (liece-own-frozen): Abolish.
+       (liece-own-message): Abolish.
+       (liece-scroll-if-visible): Abolish.
+       (liece-generate-hex-timestamp): Abolish.
+       (liece-hex-timestamp-valid): Abolish.
+
 2003-05-22  Daiki Ueno  <ueno@unixuser.org>
 
        * liece-commands.el (liece-command-tag-region): Simplify.

diff --git a/lisp/liece-misc.el b/lisp/liece-misc.el
index fcf7006..96c86ee 100644 (file)
--- a/lisp/liece-misc.el
+++ b/lisp/liece-misc.el
@@ -55,9 +55,6 @@
 (defmacro liece-insert-info (buffer msg)
   `(liece-insert ,buffer (concat liece-info-prefix ,msg)))
 
-(defmacro liece-insert-timestamp (buffer msg)
-  `(liece-insert ,buffer (concat liece-timestamp-prefix ,msg)))
-
 (defmacro liece-insert-dcc (buffer msg)
   `(liece-insert ,buffer (concat liece-dcc-prefix ,msg)))
 
@@ -173,9 +170,6 @@
          liece-own-freeze-indicator (if liece-own-freeze "M" "-"))
     (force-mode-line-update)))
 
-(defun liece-own-frozen (buffer)
-  (with-current-buffer buffer liece-own-freeze))
-
 (defun liece-ignore-this-p (nick user-at-host)
   ;; Remove entries which are expired.
   (let ((time (current-time)) expire-time)
@@ -243,11 +237,6 @@
          (liece-message-direction 'outgoing))
      (liece-display-message ,message)))
 
-(defmacro liece-own-message (message)
-  `(if (eq liece-command-buffer-mode 'channel)
-       (liece-own-channel-message ,message)
-     (liece-own-channel-message ,message)))
-
 (defvar liece-idle-point nil "Timestamp of last idle reset.")
 
 (defmacro liece-reset-idle ()
@@ -328,9 +317,6 @@
         (concat "[" ,hostname "]")
        ,hostname)))
 
-(defmacro liece-scroll-if-visible (window)
-  `(if ,window (set-window-point ,window (point-max))))
-
 (defmacro liece-pick-buffer-1 (chnl)
   `(cdr (string-assoc-ignore-case ,chnl liece-channel-buffer-alist)))
 
@@ -451,13 +437,6 @@
        (floor (mod seconds 65536))
        (floor (* (- seconds (ffloor seconds)) 1000000))))
 
-(defun liece-generate-hex-timestamp (&optional time)
-  "Generate timestamp string as hexadecimal.
-If optional argument TIME is nil, calculate timestamp using current time."
-  (or time
-      (setq time (current-time)))
-  (format "%04x%04x" (car time) (cadr time)))
-
 (defmacro liece-hex-char-to-integer (character)
   "Convert single hex digit CHARACTER to integer."
   `(if (and (>= ,character ?0) (<= ,character ?9))
@@ -477,20 +456,6 @@ If optional argument TIME is nil, calculate timestamp using current time."
        (setq hex-string (substring hex-string 1)))
      hex-num))
 
-(defmacro liece-hex-timestamp-valid (timestamp limit)
-  "Is TIMESTAMP valid within LIMIT?"
-  `(let (t1 t2 diff (timestamp ,timestamp))
-     (if (not (and (stringp timestamp)
-                  (string-match
-                   "^[0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f][0-9a-f]$" timestamp)))
-        nil
-       (setq t1 (liece-hex-string-to-integer (substring timestamp 0 4))
-            t2 (liece-hex-string-to-integer (substring timestamp 4 8))
-            diff (liece-time-difference
-                  (list t1 t2 0) (current-time)))
-       (or (>= ,limit 0)
-          (and (< diff ,limit) (> diff (- 0 ,limit)))))))
-
 (provide 'liece-misc)
 
 ;;; liece-misc.el ends here