changeset 6274:ec7e22ebd6b3

(outline-regexp): Initialize outside the defvar.
author Karl Heuer <kwzh@gnu.org>
date Wed, 09 Mar 1994 06:52:12 +0000
parents e645df5b5148
children 132464faeaf4
files lisp/textmodes/ooutline.el
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/textmodes/ooutline.el	Wed Mar 09 06:42:46 1994 +0000
+++ b/lisp/textmodes/ooutline.el	Wed Mar 09 06:52:12 1994 +0000
@@ -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.