From 8f22b9e08eb5e4323ea149a2e408ff720935fd1b Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 29 Jan 1994 23:58:07 +0000 Subject: [PATCH] (minor-mode-alist): Don't add "Outl" if already added. --- lisp/textmodes/ooutline.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el index 4f891e125eb..c3f05af00bb 100644 --- a/lisp/textmodes/ooutline.el +++ b/lisp/textmodes/ooutline.el @@ -101,8 +101,9 @@ in the file it applies to.") "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 () -- 2.39.5