Lines Matching defs:message
50 ;; in the mode line instead, do M-x type-break-mode-line-message-mode
252 (defcustom type-break-mode-line-message-mode nil
261 '(type-break-mode-line-message-mode
263 type-break-mode-line-break-message
267 (defvar type-break-mode-line-break-message
268 '(type-break-mode-line-break-message-p
271 (defvar type-break-mode-line-break-message-p nil)
275 '(type-break-mode-line-break-message-p
367 `type-break-mode-line-message-mode'
396 (message "Type Break mode is already enabled")))
404 (or (assq 'type-break-mode-line-message-mode
440 (message "Type Break mode is enabled and set")))
453 (message "Type Break mode is disabled")))))
456 (defun type-break-mode-line-message-mode (&optional prefix)
469 `type-break-mode-line-break-message'
472 (setq type-break-mode-line-message-mode
475 (if type-break-mode-line-message-mode
476 (message "type-break-mode-line-message-mode is enabled")
477 (message "type-break-mode-line-message-mode is disabled")))
478 type-break-mode-line-message-mode)
497 (message "type-break-query-mode is enabled")
498 (message "type-break-query-mode is disabled")))
624 (message "Press any key to resume from typing break."))
879 (type-break-mode-line-message-mode)
882 (message "%sYou should take a typing break now. Do `M-x type-break'."
905 ((not type-break-mode-line-message-mode)
906 ;; Pause for a moment so any previous message can be seen.
908 (message "%sWarning: typing break due in %s."
930 ((not type-break-mode-line-message-mode)
932 (message "%sWarning: typing break due in %s keystrokes."
945 ((not type-break-mode-line-message-mode))
947 ;(setq type-break-mode-line-break-message-p nil)
952 (setq type-break-mode-line-break-message-p
953 (not type-break-mode-line-break-message-p))
957 (setq type-break-mode-line-break-message-p nil)
984 (if type-break-mode-line-message-mode "enabled" "disabled")
1030 (message "min threshold: %d\tmax threshold: %d" lower upper))
1186 (message "%s" (get 'life-extinct 'error-message))
1248 ((message
1255 (make-string (/ (- (window-width) (length message)) 2)
1262 (insert "\n\n" column-spaces message)
1267 (setq message
1271 (make-string (/ (- (window-width) (length message)) 2)
1273 message))))