aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1998-05-13 01:46:28 +0000
committerRichard M. Stallman1998-05-13 01:46:28 +0000
commit2157be68a72da843901b0cc9ebf3aa40eb7debe7 (patch)
treec0a6c712a18da5aeb2044a191db79bcfac033e4f
parent669c6673fc321b34b052f0d1962545d439a4de88 (diff)
downloademacs-2157be68a72da843901b0cc9ebf3aa40eb7debe7.tar.gz
emacs-2157be68a72da843901b0cc9ebf3aa40eb7debe7.zip
(type-break-mode-line-message-mode): Doc fix. Fix some messages.
(type-break-mode): Doc fix.
-rw-r--r--lisp/type-break.el36
1 files changed, 18 insertions, 18 deletions
diff --git a/lisp/type-break.el b/lisp/type-break.el
index 2e0025ce888..0c34b32fc64 100644
--- a/lisp/type-break.el
+++ b/lisp/type-break.el
@@ -8,7 +8,7 @@
8;; Status: Works in GNU Emacs 19.25 or later, some versions of XEmacs 8;; Status: Works in GNU Emacs 19.25 or later, some versions of XEmacs
9;; Created: 1994-07-13 9;; Created: 1994-07-13
10 10
11;; $Id: type-break.el,v 1.14 1998/03/14 04:47:44 rms Exp done $ 11;; $Id: type-break.el,v 1.15 1998/04/20 02:43:44 done Exp rms $
12 12
13;; This file is part of GNU Emacs. 13;; This file is part of GNU Emacs.
14 14
@@ -76,7 +76,7 @@
76 76
77;;;###autoload 77;;;###autoload
78(defcustom type-break-mode nil 78(defcustom type-break-mode nil
79 "*Non-`nil' means typing break mode is enabled. 79 "*Non-nil means typing break mode is enabled.
80See the docstring for the `type-break-mode' command for more information. 80See the docstring for the `type-break-mode' command for more information.
81You must modify via \\[customize] for this variable to have an effect." 81You must modify via \\[customize] for this variable to have an effect."
82 :set (lambda (symbol value) 82 :set (lambda (symbol value)
@@ -346,19 +346,19 @@ approximate good values for this.
346There are several variables that affect how or when warning messages about 346There are several variables that affect how or when warning messages about
347imminent typing breaks are displayed. They include: 347imminent typing breaks are displayed. They include:
348 348
349 type-break-mode-line-message-mode 349 `type-break-mode-line-message-mode'
350 type-break-time-warning-intervals 350 `type-break-time-warning-intervals'
351 type-break-keystroke-warning-intervals 351 `type-break-keystroke-warning-intervals'
352 type-break-warning-repeat 352 `type-break-warning-repeat'
353 type-break-warning-countdown-string 353 `type-break-warning-countdown-string'
354 type-break-warning-countdown-string-type 354 `type-break-warning-countdown-string-type'
355 355
356There are several variables that affect if, how, and when queries to begin 356There are several variables that affect if, how, and when queries to begin
357a typing break occur. They include: 357a typing break occur. They include:
358 358
359 type-break-query-mode 359 `type-break-query-mode'
360 type-break-query-function 360 `type-break-query-function'
361 type-break-query-interval 361 `type-break-query-interval'
362 362
363Finally, the command `type-break-statistics' prints interesting things." 363Finally, the command `type-break-statistics' prints interesting things."
364 (interactive "P") 364 (interactive "P")
@@ -370,7 +370,7 @@ Finally, the command `type-break-statistics' prints interesting things."
370 (cond 370 (cond
371 ((and already-enabled type-break-mode) 371 ((and already-enabled type-break-mode)
372 (and (interactive-p) 372 (and (interactive-p)
373 (message "type-break-mode is already enabled"))) 373 (message "Type Break mode is already enabled")))
374 (type-break-mode 374 (type-break-mode
375 (or global-mode-string 375 (or global-mode-string
376 (setq global-mode-string '(""))) 376 (setq global-mode-string '("")))
@@ -383,13 +383,13 @@ Finally, the command `type-break-statistics' prints interesting things."
383 (type-break-mode-line-countdown-or-break nil) 383 (type-break-mode-line-countdown-or-break nil)
384 (type-break-schedule) 384 (type-break-schedule)
385 (and (interactive-p) 385 (and (interactive-p)
386 (message "type-break-mode is enabled and reset"))) 386 (message "Type Break mode is enabled and reset")))
387 (t 387 (t
388 (type-break-keystroke-reset) 388 (type-break-keystroke-reset)
389 (type-break-mode-line-countdown-or-break nil) 389 (type-break-mode-line-countdown-or-break nil)
390 (type-break-cancel-schedule) 390 (type-break-cancel-schedule)
391 (and (interactive-p) 391 (and (interactive-p)
392 (message "type-break-mode is disabled"))))) 392 (message "Type Break mode is disabled")))))
393 type-break-mode) 393 type-break-mode)
394 394
395(defun type-break-mode-line-message-mode (&optional prefix) 395(defun type-break-mode-line-message-mode (&optional prefix)
@@ -403,10 +403,10 @@ variable of the same name.
403 403
404Variables controlling the display of messages in the mode line include: 404Variables controlling the display of messages in the mode line include:
405 405
406 mode-line-format 406 `mode-line-format'
407 global-mode-string 407 `global-mode-string'
408 type-break-mode-line-break-message 408 `type-break-mode-line-break-message'
409 type-break-mode-line-warning" 409 `type-break-mode-line-warning'"
410 (interactive "P") 410 (interactive "P")
411 (setq type-break-mode-line-message-mode 411 (setq type-break-mode-line-message-mode
412 (>= (prefix-numeric-value prefix) 0)) 412 (>= (prefix-numeric-value prefix) 0))