diff options
author | Magnus Henoch <mange@freemail.hu> | 2004-12-21 06:06:56 +0000 |
---|---|---|
committer | Kirill A. Korinskiy <catap@catap.ru> | 2004-12-21 06:06:56 +0000 |
commit | e5fdb0a68428a778fe5137ba33e219017f01b9fb (patch) | |
tree | 2c6bff0357e1bf88232817403f4edd0f6fa5d287 /jabber-history.el | |
parent | afc00dd208a15486f7036e6f424b43a695aa907a (diff) |
Revision: mange@freemail.hu--2004/emacs-jabber--cvs-head--0--patch-150
Creator: Magnus Henoch <mange@freemail.hu>
XEmacs compatibility for float-time
Diffstat (limited to 'jabber-history.el')
-rw-r--r-- | jabber-history.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/jabber-history.el b/jabber-history.el index 3790858..2a618f9 100644 --- a/jabber-history.el +++ b/jabber-history.el @@ -100,8 +100,8 @@ JID-REGEXP is a regexp which must match the JID." (forward-sexp) (point)))))) (and (funcall time-compare-function - (float-time (jabber-parse-time - (aref current-line 0))) + (jabber-float-time (jabber-parse-time + (aref current-line 0))) time) (if from-beginning (not (eobp)) (not (bobp))) @@ -134,7 +134,7 @@ JID-REGEXP is a regexp which must match the JID." This function is to be called from a chat buffer." (interactive) (dolist (msg (jabber-history-query - '> (- (float-time) (* jabber-backlog-days 86400.0)) + '> (- (jabber-float-time) (* jabber-backlog-days 86400.0)) jabber-backlog-number t ; both incoming and outgoing (concat "^" (regexp-quote jabber-chatting-with) "\\(/.*\\)?$"))) |