* utilities.el (lyskom-current-time): Removed obsolete function.

src/ChangeLog

+2002-03-03  Joel Rosdahl  <joel@lysator.liu.se>
+
+	* utilities.el (lyskom-current-time): Removed obsolete function.
+
 2002-03-02  Joel Rosdahl  <joel@lysator.liu.se>
 
 	* commands2.el: Removed some erroneous indentation.

src/utilities.el

@@ -253,18 +253,6 @@ Returns t if the feature is loaded or can be loaded, and nil otherwise."
   (lyskom-next-apo-timeout)
   (accept-process-output nil 0 lyskom-apo-timeout))
 
-(defun lyskom-current-time (&optional secs)
-  "Return the time in a format that LysKOM understands.
-If optional argument SECS is set, it is used in place of the value
-of \(current-time\)."
-  (let ((time (decode-time (or secs (current-time)))))
-    (setcar (cdr (cdr (cdr (cdr time))))
-            (1- (car (cdr (cdr (cdr (cdr time)))))))
-    (setcar (cdr (cdr (cdr (cdr (cdr time)))))
-            (- (car (cdr (cdr (cdr (cdr (cdr time))))))
-               1900))
-    time))
-
 (defun lyskom-set-alist (alist item value)
   "Modifies (non-destructively) an alist ALIST to set item
 ITEM to the value VALUE."