diff options
| author | Richard M. Stallman | 1998-05-15 05:20:58 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1998-05-15 05:20:58 +0000 |
| commit | 7cd3279a33e9cf5919b5ea9919606b2c39d20dfb (patch) | |
| tree | afb62d5933628ed1e996fd23999b80b1d10cdefc | |
| parent | 4599e8cd590969635cab61db522a5aa9b46be825 (diff) | |
| download | emacs-7cd3279a33e9cf5919b5ea9919606b2c39d20dfb.tar.gz emacs-7cd3279a33e9cf5919b5ea9919606b2c39d20dfb.zip | |
(type-break-mode): Don't alter global-mode-string.
Instead, add an element to minor-mode-alist.
| -rw-r--r-- | lisp/type-break.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/type-break.el b/lisp/type-break.el index 0c34b32fc64..0b2f4a440bf 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.15 1998/04/20 02:43:44 done Exp rms $ | 11 | ;; $Id: type-break.el,v 1.16 1998/05/13 01:46:28 rms Exp rms $ |
| 12 | 12 | ||
| 13 | ;; This file is part of GNU Emacs. | 13 | ;; This file is part of GNU Emacs. |
| 14 | 14 | ||
| @@ -374,11 +374,11 @@ Finally, the command `type-break-statistics' prints interesting things." | |||
| 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 '(""))) |
| 377 | (or (memq 'type-break-mode-line-format | 377 | (or (assq 'type-break-mode-line-message-mode |
| 378 | (default-value 'global-mode-string)) | 378 | minor-mode-alist) |
| 379 | (setq-default global-mode-string | 379 | (setq minor-mode-alist |
| 380 | (nconc (default-value 'global-mode-string) | 380 | (cons type-break-mode-line-format |
| 381 | '(type-break-mode-line-format)))) | 381 | minor-mode-alist))) |
| 382 | (type-break-keystroke-reset) | 382 | (type-break-keystroke-reset) |
| 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) |