diff options
Diffstat (limited to 'lisp/erc')
| -rw-r--r-- | lisp/erc/erc.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index fc510096419..a7e27424f29 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el | |||
| @@ -6040,8 +6040,7 @@ non-nil value is found. | |||
| 6040 | ;; time routines | 6040 | ;; time routines |
| 6041 | 6041 | ||
| 6042 | (defun erc-string-to-emacs-time (string) | 6042 | (defun erc-string-to-emacs-time (string) |
| 6043 | "Convert the long number represented by STRING into an Emacs format. | 6043 | "Convert the long number represented by STRING into an Emacs timestamp." |
| 6044 | Returns a list of the form (HIGH LOW), compatible with Emacs time format." | ||
| 6045 | (let* ((n (string-to-number (concat string ".0")))) | 6044 | (let* ((n (string-to-number (concat string ".0")))) |
| 6046 | (list (truncate (/ n 65536)) | 6045 | (list (truncate (/ n 65536)) |
| 6047 | (truncate (mod n 65536))))) | 6046 | (truncate (mod n 65536))))) |