# HG changeset patch # User Richard M. Stallman # Date 759887887 0 # Node ID e54c2697692b3d4e00daa74d178682fd984e81fd # Parent bb9b20ea092d687deed7f33e06ee571631956e4f (minor-mode-alist): Don't add "Outl" if already added. diff -r bb9b20ea092d -r e54c2697692b lisp/textmodes/ooutline.el --- a/lisp/textmodes/ooutline.el Sat Jan 29 23:56:27 1994 +0000 +++ b/lisp/textmodes/ooutline.el Sat Jan 29 23:58:07 1994 +0000 @@ -101,8 +101,9 @@ "Non-nil if using Outline mode as a minor mode of some other mode.") (make-variable-buffer-local 'outline-minor-mode) (put 'outline-minor-mode 'permanent-local t) -(setq minor-mode-alist (append minor-mode-alist - (list '(outline-minor-mode " Outl")))) +(or (assq 'outline-minor-mode minor-mode-alist) + (setq minor-mode-alist (append minor-mode-alist + (list '(outline-minor-mode " Outl"))))) ;;;###autoload (defun outline-mode ()