Commit 469520aa authored by Joel Rosdahl's avatar Joel Rosdahl
Browse files

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

parent f99b0e51
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.
......
......@@ -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."
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment