dbo/.emacs.d
dbo
/
.emacs.d
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

[Utils] Swapping lines for better readability

This commit is contained in:
Daniel - 2017-11-18 15:14:09 +01:00
parent 5377524830
commit a1c29009ac
Signed by: dbo
GPG Key ID: 4F63DB96D45AA9C6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
site-lisp/db-utils.el
View File

@ -186,8 +186,8 @@ If not given, FORMAT-STRING defaults to some ISO 8601-like format."
(list (string-to-number (read-string "High (hex): ") 16)
(string-to-number (read-string "Log (hex): ") 16)))
(let* ((high-seconds (- high 2208992400)) ; subtract seconds between 1900-01-01 and the epoch
(l (% high-seconds 65536))
(h (lsh high-seconds -16))
(l (% high-seconds 65536))
(u (floor (* (/ low 4294967296.0) 1e6)))
(p (- low (floor (/ (* u 4294967296) 1e6)))))
(message