(type-break-mode-line-message-mode)
(t
(beep t)
- (message "%sYou should take a typing break now. Do `M-x type-break'."
- (type-break-time-stamp))
+ (message "%sYou should take a typing break now. Do ā%sā."
+ (type-break-time-stamp)
+ (substitute-command-keys "\\[type-break]"))
(sit-for 1)
(beep t)
;; return nil so query caller knows to reset reminder, as if user