;;; nxml-outln.el --- outline support for nXML mode
-;; Copyright (C) 2004, 2007, 2008, 2009, 2010, 2011, 2012 Free Software Foundation, Inc.
+;; Copyright (C) 2004, 2007-2013 Free Software Foundation, Inc.
;; Author: James Clark
;; Keywords: XML
;; form. Single-line form is used when the outline state is hide-children
;; or there are no child sections; multi-line form is used otherwise.
;; There are two flavors of single-line form: with children and without.
-;; The with-childen flavor is used when there are child sections.
+;; The with-children flavor is used when there are child sections.
;; Single line with children looks like
;; <+section>A section title...</>
;; Single line without children looks like
(defcustom nxml-section-element-name-regexp
"article\\|\\(sub\\)*section\\|chapter\\|div\\|appendix\\|part\\|preface\\|reference\\|simplesect\\|bibliography\\|bibliodiv\\|glossary\\|glossdiv"
- "*Regular expression matching the name of elements used as sections.
+ "Regular expression matching the name of elements used as sections.
An XML element is treated as a section if:
- its local name (that is, the name without the prefix) matches
:type 'regexp)
(defcustom nxml-heading-element-name-regexp "title\\|head"
- "*Regular expression matching the name of elements used as headings.
+ "Regular expression matching the name of elements used as headings.
An XML element is only recognized as a heading if it occurs as or
within the first child of an element that is recognized as a section.
See the variable `nxml-section-element-name-regexp' for more details."
:type 'regexp)
(defcustom nxml-outline-child-indent 2
- "*Indentation in an outline for child element relative to parent element."
+ "Indentation in an outline for child element relative to parent element."
:group 'nxml
:type 'integer)
-(defface nxml-heading
- '((t (:weight bold)))
- "Face used for the contents of abbreviated heading elements."
+(defface nxml-heading '((t :weight bold))
+ "Face for the contents of abbreviated heading elements."
:group 'nxml-faces)
-(defface nxml-outline-indicator
- '((t (:inherit default)))
- "Face used for `+' or `-' before element names in outlines."
+(defface nxml-outline-indicator '((t))
+ "Face for `+' or `-' before element names in outlines."
:group 'nxml-faces)
(defface nxml-outline-active-indicator
- '((t (:box t :inherit nxml-outline-indicator)))
- "Face used for clickable `+' or `-' before element names in outlines."
+ '((t :box t :inherit nxml-outline-indicator))
+ "Face for clickable `+' or `-' before element names in outlines."
:group 'nxml-faces)
-(defface nxml-outline-ellipsis
- '((t (:bold t :inherit default)))
+(defface nxml-outline-ellipsis '((t :weight bold))
"Face used for `...' in outlines."
:group 'nxml-faces)
(provide 'nxml-outln)
-;; arch-tag: 1f1b7454-e573-4cd7-a505-d9dc64eef828
;;; nxml-outln.el ends here