branch: externals/dismal
commit caf876e479df7d98efe702cacd90c1b637c90144
Author: Paul Eggert <egg...@cs.ucla.edu>
Commit: Paul Eggert <egg...@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)
