]> code.delx.au - gnu-emacs/blobdiff - lisp/erc/erc.el
Simplify now that float-time etc. are built-in
[gnu-emacs] / lisp / erc / erc.el
index b20a6c9e9664313c80cd97e059e79553c6162b8f..8501e2cba7d21dcf8e23d09f0c332d16891697e6 100644 (file)
@@ -6007,10 +6007,8 @@ Returns a list of the form (HIGH LOW), compatible with Emacs time format."
     (list (truncate (/ n 65536))
           (truncate (mod n 65536)))))
 
-(defalias 'erc-emacs-time-to-erc-time
-  (if (featurep 'xemacs) 'time-to-seconds 'float-time))
-
-(defalias 'erc-current-time 'erc-emacs-time-to-erc-time)
+(defalias 'erc-emacs-time-to-erc-time 'float-time)
+(defalias 'erc-current-time 'float-time)
 
 (defun erc-time-diff (t1 t2)
   "Return the time difference in seconds between T1 and T2."