[elpa] externals/dismal caf876e: Simplify/port log-timer-filter args

[Paul Eggert]

branch: externals/dismal
commit caf876e479df7d98efe702cacd90c1b637c90144
Author: Paul Eggert <eggert@cs.ucla.edu>
Commit: Paul Eggert <eggert@cs.ucla.edu>

    Simplify/port log-timer-filter args
    
    * packages/dismal/log.el (log-keystroke, log-stamp-date):
    Simplify and remove dependency on Emacs timestamp format,
    which is planned to change in future Emacs versions.
---
 log.el | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

diff --git a/log.el b/log.el
index e0bfaaa..fd2c5c6 100644
--- a/log.el
+++ b/log.el
@@ -337,12 +337,7 @@ already wrapped.  PREFIX is an optional string, usually 
the command prefix."
         (indent-to-column 11 2)         ; whitespace
         (insert the-command)            ; command name
         (indent-to-column 40 1))       ; effects column, prior to timestamp
-      (log-timer-filter (let ((time (current-time)))
-                          (format "%05d.%03d"
-                                  (mod (+ (* 65536 (car time))
-                                          (nth 1 time))
-                                       100000)
-                                  (/ (nth 2 time) 1000))))))
+      (log-timer-filter (format "%09.3f" (mod (float-time) 100000)))))
   nil)
 
 (defun log-stamp-date ()
@@ -364,12 +359,7 @@ already wrapped.  PREFIX is an optional string, usually 
the command prefix."
                (t (format "%s" last-input-event))))
         ;;(indent-to-column 11 2)
         )
-      (log-timer-filter (let ((time (current-time)))
-                          (format "%05d.%03d"
-                                  (mod (+ (* 65536 (car time))
-                                          (nth 1 time))
-                                       100000)
-                                  (/ (nth 2 time) 1000)))))))
+      (log-timer-filter (format "%09.3f" (mod (float-time time) 100000))))))
 
 ;; 10-1-93 - use a filter rather than an output buffer:
 (defvar log-timestamp nil)