- (let ((inhibit-read-only t)
- (old-pos (marker-position lurk-prompt-marker))
- (adaptive-fill-regexp (rx (= 6 anychar)))
- (fill-column 80)
- (context-atom (if context (intern context) nil)))
+ (let* ((inhibit-read-only t)
+ (old-pos (marker-position lurk-prompt-marker))
+ (padded-timestamp (concat (format-time-string "%H:%M ")))
+ (padded-prefix (if prefix (concat prefix " ") ""))
+ (adaptive-fill-regexp (rx-to-string
+ `(= ,(+ (length padded-timestamp)
+ (length padded-prefix))
+ anychar)))
+ (fill-column 80)
+ (context-atom (if context (intern context) nil)))