*** empty log message ***

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

diff --git a/lisp/type-break.el b/lisp/type-break.el
index 0c34b32fc648453dc175104669f3d0e9622b13fd..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.15 1998/04/20 02:43:44 done Exp rms $
+;; $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)
@@ -374,11 +374,11 @@ Finally, the command `type-break-statistics' prints interesting things."
      (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)