3 (defvar current-time-string "")
7 (let ((message-log-max nil))
8 (unless (minibuffer-window-active-p (minibuffer-window))
9 (when (member (current-message)
10 (list current-time-string nil))
11 (message "%s" (setq current-time-string
12 (current-time-string)))))))))
13 [nil 21872 33554 386400 1 (lambda nil (let (...) (if ... nil ...))) nil nil 0]
18 (with-current-buffer " *Minibuf-0*"
19 (insert (format-time-string "%H:%M")))
24 (with-current-buffer " *Minibuf-0*"
26 (dotimes (spaces (- (frame-width) 8))
28 (insert (format-time-string "%H:%M")))))