New file.

[gnu-emacs] / lisp / type-break.el

diff --git a/lisp/type-break.el b/lisp/type-break.el
index 2e0025ce88852dcc9472c14e7d653ae26bd11d4b..cc52cfbb99b76f276d4ae5d36a3496eef5d99b0c 100644 (file)
--- a/lisp/type-break.el
+++ b/lisp/type-break.el
@@ -2,13 +2,13 @@
 
 ;; Copyright (C) 1994, 1995, 1997 Free Software Foundation, Inc.
 
-;; Author: Noah Friedman <friedman@prep.ai.mit.edu>
-;; Maintainer: friedman@prep.ai.mit.edu
+;; Author: Noah Friedman
+;; Maintainer: Noah Friedman <friedman@splode.com>
 ;; Keywords: extensions, timers
 ;; Status: Works in GNU Emacs 19.25 or later, some versions of XEmacs
 ;; Created: 1994-07-13
 
-;; $Id: type-break.el,v 1.14 1998/03/14 04:47:44 rms Exp done $
+;; $Id: type-break.el,v 1.22 1999/04/27 19:00:42 fx Exp kwzh $
 
 ;; This file is part of GNU Emacs.
 
@@ -60,9 +60,9 @@
 
 ;; This package was inspired by Roland McGrath's hanoi-break.el.
 ;; Several people contributed feedback and ideas, including
-;;      Roland McGrath <roland@gnu.ai.mit.edu>
+;;      Roland McGrath <roland@gnu.org>
 ;;      Kleanthes Koniaris <kgk@martigny.ai.mit.edu>
-;;      Mark Ashton <mpashton@gnu.ai.mit.edu>
+;;      Mark Ashton <mpashton@gnu.org>
 ;;      Matt Wilding <wilding@cli.com>
 ;;      Robert S. Boyer <boyer@cs.utexas.edu>
 
@@ -76,16 +76,16 @@
 
 ;;;###autoload
 (defcustom type-break-mode nil
-  "*Non-`nil' means typing break mode is enabled.
+  "Toggle typing break mode.
 See the docstring for the `type-break-mode' command for more information.
-You must modify via \\[customize] for this variable to have an effect."
+Setting this variable directly does not take effect;
+use either \\[customize] or the function `type-break-mode'."
   :set (lambda (symbol value)
         (type-break-mode (if value 1 -1)))
-  :initialize 'custom-initialize-default  
+  :initialize 'custom-initialize-default
   :type 'boolean
   :group 'type-break
-  :require 'type-break
-  :version "20.3")
+  :require 'type-break)
 
 ;;;###autoload
 (defcustom type-break-interval (* 60 60)
@@ -346,19 +346,19 @@ approximate good values for this.
 There are several variables that affect how or when warning messages about
 imminent typing breaks are displayed.  They include:
 
-        type-break-mode-line-message-mode
-        type-break-time-warning-intervals
-        type-break-keystroke-warning-intervals
-        type-break-warning-repeat
-        type-break-warning-countdown-string
-        type-break-warning-countdown-string-type
+        `type-break-mode-line-message-mode'
+        `type-break-time-warning-intervals'
+        `type-break-keystroke-warning-intervals'
+        `type-break-warning-repeat'
+        `type-break-warning-countdown-string'
+        `type-break-warning-countdown-string-type'
 
 There are several variables that affect if, how, and when queries to begin
 a typing break occur.  They include:
 
-        type-break-query-mode
-        type-break-query-function
-        type-break-query-interval
+        `type-break-query-mode'
+        `type-break-query-function'
+        `type-break-query-interval'
 
 Finally, the command `type-break-statistics' prints interesting things."
   (interactive "P")
@@ -370,26 +370,26 @@ Finally, the command `type-break-statistics' prints interesting things."
     (cond
      ((and already-enabled type-break-mode)
       (and (interactive-p)
-           (message "type-break-mode is already enabled")))
+           (message "Type Break mode is already enabled")))
      (type-break-mode
       (or global-mode-string
           (setq global-mode-string '("")))
-      (or (memq 'type-break-mode-line-format
-                (default-value 'global-mode-string))
-          (setq-default global-mode-string
-                        (nconc (default-value 'global-mode-string)
-                               '(type-break-mode-line-format))))
+      (or (assq 'type-break-mode-line-message-mode
+               minor-mode-alist)
+         (setq minor-mode-alist
+               (cons type-break-mode-line-format
+                     minor-mode-alist)))
       (type-break-keystroke-reset)
       (type-break-mode-line-countdown-or-break nil)
       (type-break-schedule)
       (and (interactive-p)
-           (message "type-break-mode is enabled and reset")))
+           (message "Type Break mode is enabled and reset")))
      (t
       (type-break-keystroke-reset)
       (type-break-mode-line-countdown-or-break nil)
       (type-break-cancel-schedule)
       (and (interactive-p)
-           (message "type-break-mode is disabled")))))
+           (message "Type Break mode is disabled")))))
   type-break-mode)
 
 (defun type-break-mode-line-message-mode (&optional prefix)
@@ -403,10 +403,10 @@ variable of the same name.
 
 Variables controlling the display of messages in the mode line include:
 
-        mode-line-format
-        global-mode-string
-        type-break-mode-line-break-message
-        type-break-mode-line-warning"
+        `mode-line-format'
+        `global-mode-string'
+        `type-break-mode-line-break-message'
+        `type-break-mode-line-warning'"
   (interactive "P")
   (setq type-break-mode-line-message-mode
         (>= (prefix-numeric-value prefix) 0))