From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 9 Mar 1994 06:52:12 +0000 (+0000)
Subject: (outline-regexp): Initialize outside the defvar.
X-Git-Tag: emacs-19.34~9578
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9f9d894124232c4028e0724abdffd01c1fb8cda7;p=emacs.git

(outline-regexp): Initialize outside the defvar.
---

diff --git a/lisp/textmodes/ooutline.el b/lisp/textmodes/ooutline.el
index 3d35c224665..a9a6c959a24 100644
--- a/lisp/textmodes/ooutline.el
+++ b/lisp/textmodes/ooutline.el
@@ -34,11 +34,16 @@
 
 ;; Jan '86, Some new features added by Peter Desnoyers and rewritten by RMS.
   
-(defvar outline-regexp "[*\^l]+"
+(defvar outline-regexp nil
   "*Regular expression to match the beginning of a heading.
 Any line whose beginning matches this regexp is considered to start a heading.
 The recommended way to set this is with a Local Variables: list
 in the file it applies to.  See also outline-heading-end-regexp.")
+
+;; Can't initialize this in the defvar above -- some major modes have
+;; already assigned a local value to it.
+(or (default-value 'outline-regexp)
+    (setq-default outline-regexp "[*\^L]+"))
   
 (defvar outline-heading-end-regexp "[\n\^M]"
   "*Regular expression to match the end of a heading line.