From 7cd3279a33e9cf5919b5ea9919606b2c39d20dfb Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 15 May 1998 05:20:58 +0000 Subject: [PATCH] (type-break-mode): Don't alter global-mode-string. Instead, add an element to minor-mode-alist. --- lisp/type-break.el | 12 ++++++------ 1 file 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 @@ ;; 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.16 1998/05/13 01:46:28 rms Exp rms $ ;; This file is part of GNU Emacs. @@ -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) -- 2.39.2