Gecko [ 122.154.134.11 ]

Name	Size	Permission
artist.elc	156.01 KB	-rw-r--r--
bib-mode.elc	7.43 KB	-rw-r--r--
bibtex-style.elc	5.39 KB	-rw-r--r--
bibtex.elc	157.5 KB	-rw-r--r--
conf-mode.elc	28.99 KB	-rw-r--r--
css-mode.elc	13.28 KB	-rw-r--r--
dns-mode.elc	6.9 KB	-rw-r--r--
enriched.elc	13.78 KB	-rw-r--r--
fill.elc	34.12 KB	-rw-r--r--
flyspell.elc	52.56 KB	-rw-r--r--
ispell.elc	97.58 KB	-rw-r--r--
makeinfo.elc	6.2 KB	-rw-r--r--
nroff-mode.elc	10.21 KB	-rw-r--r--
page-ext.elc	15.45 KB	-rw-r--r--
page.elc	3.19 KB	-rw-r--r--
paragraphs.elc	15.18 KB	-rw-r--r--
picture.elc	26.27 KB	-rw-r--r--
po.elc	2.84 KB	-rw-r--r--
refbib.elc	18.08 KB	-rw-r--r--
refer.elc	9.21 KB	-rw-r--r--
refill.elc	6.17 KB	-rw-r--r--
reftex-auc.elc	6 KB	-rw-r--r--
reftex-cite.elc	26.53 KB	-rw-r--r--
reftex-dcr.elc	12.53 KB	-rw-r--r--
reftex-global.elc	12.67 KB	-rw-r--r--
reftex-index.elc	61.35 KB	-rw-r--r--
reftex-parse.elc	21.31 KB	-rw-r--r--
reftex-ref.elc	19.57 KB	-rw-r--r--
reftex-sel.elc	16.58 KB	-rw-r--r--
reftex-toc.elc	30.88 KB	-rw-r--r--
reftex-vars.elc	80.53 KB	-rw-r--r--
reftex.elc	56.79 KB	-rw-r--r--
remember.elc	12.73 KB	-rw-r--r--
rst.elc	72.23 KB	-rw-r--r--
sgml-mode.elc	80.43 KB	-rw-r--r--
spell.elc	4.04 KB	-rw-r--r--
table.elc	161.74 KB	-rw-r--r--
tex-mode.elc	87.19 KB	-rw-r--r--
texinfmt.elc	83.84 KB	-rw-r--r--
texinfo.elc	35.12 KB	-rw-r--r--
texnfo-upd.elc	45.86 KB	-rw-r--r--
text-mode.elc	7.39 KB	-rw-r--r--
tildify.elc	8.47 KB	-rw-r--r--
two-column.elc	12.86 KB	-rw-r--r--
underline.elc	1.4 KB	-rw-r--r--

Code Editor : rst.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:05:20 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/textmodes/rst.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`rst.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\313!\204�\314\313\315\"\210\302\207" [custom-declare-group rst nil "Support for reStructuredText documents." :group wp :version "23.1" :link (url-link "http://docutils.sourceforge.net/rst.html") fboundp line-number-at-pos defalias #[(&optional pos) "\206�`\303\212eb\210`\nb\210\304y\210\305	`\"T+\207" [pos start opoint nil 0 count-lines] 3 "Return (narrowed) buffer line number at position POS.\n    If POS is nil, use current buffer location."]] 10)
#@74 Keymap for reStructuredText mode commands.
This inherits from Text mode.
(defvar rst-mode-map (byte-code "\301 \302\303\304#\210\302\305\304#\210\302\306\304#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352#\210\302\353\354#\210\302\355\356#\210\302\357\360#\210\302\361\362#\210)\207" [map make-sparse-keymap define-key [(control c) (control a)] rst-adjust [(control c) (control 61)] [(control 61)] [(control c) (control h)] rst-display-decorations-hierarchy [(control c) (control s)] rst-straighten-decorations [(control c) (control m)] rst-mark-section [(control c) (control n)] rst-forward-section [(control c) (control p)] rst-backward-section [(control c) (control b)] rst-bullet-list-region [(control c) (control e)] rst-enumerate-region [(control c) (control v)] rst-convert-bullets-to-enumeration [(control c) (control d)] rst-line-block-region [(control c) (control w)] rst-straighten-bullets-region [(control c) (control l)] rst-shift-region-left [(control c) (control r)] rst-shift-region-right [(control c) (control c)] comment-region [(control c) (control t)] rst-toc [(control c) (control i)] rst-toc-insert [(control c) (control u)] rst-toc-update [(control c) (control f)] rst-goto-section [(control c) (49)] rst-compile [(control c) (50)] rst-compile-alt-toolset [(control c) (51)] rst-compile-pseudo-region [(control c) (52)] rst-compile-pdf-preview [(control c) (53)] rst-compile-slides-preview] 4) (#$ . 1129))
#@38 Abbrev table used while in Rst mode.
(defvar rst-mode-abbrev-table nil (#$ . 2851))
(byte-code "\300\301\302\303\304\"\"\207" [define-abbrev-table rst-mode-abbrev-table mapcar #[(x) "\301\302\"\207" [x append (nil 0 system)] 3] (("contents" ".. contents::\n..\n   ") ("con" ".. contents::\n..\n   ") ("cont" "[...]") ("skip" "\n\n[...]\n\n  ") ("seq" "\n\n[...]\n\n  "))] 5)
#@40 Syntax table used while in `rst-mode'.
(defvar rst-mode-syntax-table (byte-code "\302!\303\304\305	#\210\303\306\305	#\210\303\307\305	#\210\303\310\305	#\210\303\311\305	#\210\303\312\305	#\210\303\313\314	#\210\303\315\305	#\210\303\316\305	#\210\303\317\305	#\210\303\320\305	#\210\303\321\322	#\210\303\323\305	#\210\303\324\305	#\210	)\207" [text-mode-syntax-table st copy-syntax-table modify-syntax-entry 36 "." 37 38 39 42 43 46 "_" 47 60 61 62 92 "\\" 124 95] 4) (#$ . 3233))
#@85 Hook run when Rst mode is turned on.
The hook for Text mode is run before this one.
(custom-declare-variable 'rst-mode-hook 'nil '(#$ . 3725) :group 'rst :type '(hook))
#@332 If non-nil Rst mode tries to font-lock multi-line elements correctly.
Because this is really slow it should be set to nil if neither `jit-lock-mode'
not `lazy-lock-mode' and activated.

If nil, comments and literal blocks are font-locked only on the line they start.

The value of this variable is used when Rst mode is turned on.
(custom-declare-variable 'rst-mode-lazy 't '(#$ . 3901) :group 'rst :type '(boolean))
(byte-code "\301\302N\204\f�\303\301\302\304#\210\305\306!\204�\303\306\307\310#\210\306B\311\306!\204(�\312\306\313 \"\210\303\310\314\315#\210\303\310\316\317#\207" [current-load-list rst-mode-hook variable-documentation put "Hook run when entering ReST mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp rst-mode-map definition-name rst-mode default-boundp set-default make-sparse-keymap derived-mode-parent text-mode custom-mode-group rst] 4)
#@577 Major mode for editing reStructuredText documents.
\<rst-mode-map>
There are a number of convenient keybindings provided by
Rst mode.  The main one is \[rst-adjust], it updates or rotates
the section title around point or promotes/demotes the
decorations within the region (see full details below).
Use negative prefix arg to rotate in the other direction.

Turning on `rst-mode' calls the normal hooks `text-mode-hook'
and `rst-mode-hook'.  This mode also supports font-lock
highlighting.  You may customize `rst-mode-lazy' to toggle
font-locking of blocks.

\{rst-mode-map}
(defalias 'rst-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203�\314\311\313\310\313N#\210\315!\204'�\316\317 \"\210\320!\210\321\f!\210
#\306\322!\210\306\323!\210\324\306\325!\210\326\306\327!\210\307\306\330!\210\331\306\332!\210\333\306\334!\210\335\306\336!\210\306\337!\210\340)\341\342!\207" [delay-mode-hooks major-mode mode-name rst-mode-map rst-mode-syntax-table rst-mode-abbrev-table make-local-variable t text-mode rst-mode "ReST" mode-class put keymap-parent set-keymap-parent current-local-map use-local-map set-syntax-table paragraph-separate indent-line-function indent-relative-maybe paragraph-start "\f\\|>*[ 	]*$\\|>*[ 	]*[-+*] \\|>*[ 	]*[0-9#]+\\. " adaptive-fill-mode comment-start ".. " comment-start-skip "^\\.\\. " comment-multi-line nil rst-adornment-level-alist font-lock-defaults (rst-font-lock-keywords-function t nil nil nil (font-lock-mark-block-function . mark-paragraph)) run-mode-hooks rst-mode-hook local-abbrev-table] 5 (#$ . 4865) nil])
#@97 Non-nil if Rst minor mode is enabled.
Use the command `rst-minor-mode' to change this variable.
(defvar rst-minor-mode nil (#$ . 6457))
(make-variable-buffer-local 'rst-minor-mode)
#@345 ReST Minor Mode.
Toggle ReST minor mode.
With no argument, this command toggles the mode.
Non-null prefix argument turns on the mode.
Null prefix argument turns off the mode.

When ReST minor mode is enabled, the ReST mode keybindings
are installed on top of the major mode bindings.  Use this
for modes derived from Text mode, like Mail mode.
(defalias 'rst-minor-mode #[(&optional arg) "\303 	\304=\203�\n?\202(�	\203�\305	!\306V\202(�\n\204\"�\307\202(�\310\311\302\"\210\312\313\314\n\2033�\315\2024�\316\"\210\317 \203T�\303 \203G�\303 \232\203T�\310\320\n\203Q�\321\202R�\322\"\210)\323 \210\n\207" [#1=#:last-message arg rst-minor-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil run-hooks rst-minor-mode-hook rst-minor-mode-on-hook rst-minor-mode-off-hook called-interactively-p "Rst minor mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 6645) (list (or current-prefix-arg 'toggle))])
(add-minor-mode 'rst-minor-mode " ReST" rst-mode-map)
#@60 List of all possible bullet characters for bulleted lists.
(custom-declare-variable 'rst-bullets ''(45 42 43) '(#$ . 7681) :group 'rst)
(custom-declare-group 'rst-adjust nil "Settings for adjustment and cycling of section title decorations." :group 'rst :version "21.1")
#@253 Preferred ordering of section title decorations.

This sequence is consulted to offer a new decoration suggestion
when we rotate the underlines at the end of the existing
hierarchy of characters, or when there is no existing section
title in the file.
(custom-declare-variable 'rst-preferred-decorations ''((61 over-and-under 1) (61 simple 0) (45 simple 0) (126 simple 0) (43 simple 0) (96 simple 0) (35 simple 0) (64 simple 0)) '(#$ . 7959) :group 'rst-adjust)
#@186 Number of characters to indent the section title.

This is used for when toggling decoration styles, when switching
from a simple decoration style to a over-and-under decoration
style.
(custom-declare-variable 'rst-default-indent '1 '(#$ . 8428) :group 'rst-adjust)
#@50 Regular expression for valid section title text.
(defvar rst-section-text-regexp "^[ 	]*\\S-*\\w\\S-*" (#$ . 8700))
#@506 Return true if the line is homogeneous.

Predicate that returns the unique char if the current line is
composed only of a single repeated non-whitespace character.
This returns the char even if there is whitespace at the
beginning of the line.

If ACCEPT-SPECIAL is specified we do not ignore special sequences
which normally we would ignore when doing a search on many lines.
For example, normally we have cases to ignore commonly occurring
patterns, such as :: or ...; with the flag do not ignore them.
(defalias 'rst-line-homogeneous-p #[(&optional accept-special) "\212\302 \210\303\304!?\2055�\305\306!\303\307\310\"!\2054�	\2041�\303\311!?\2054�\303\312!?\2054�\303\313!?\2054�\314!))\207" [c accept-special back-to-indentation looking-at "\n" thing-at-point char format "[%s]+[ 	]*$" "::[ 	]*$" "\\.\\.\\.[ 	]*$" ".[ 	]*$" string-to-char] 4 (#$ . 8823)])
#@107 Return true if the line is homogeneous with no indent.
See `rst-line-homogeneous-p' about ACCEPT-SPECIAL.
(defalias 'rst-line-homogeneous-nodent-p #[(&optional accept-special) "\212\301 \210\302\303!?\205�\304!)\207" [accept-special beginning-of-line looking-at "^[ 	]+" rst-line-homogeneous-p] 2 (#$ . 9695)])
#@204 Compare decorations.
Return true if both DECO1 and DECO2 decorations are equal,
according to restructured text semantics (only the character and
the style are compared, the indentation does not matter).
(defalias 'rst-compare-decorations #[(deco1 deco2) "@	@=\205�\211A@)	\211A@)=\207" [deco1 deco2 x] 3 (#$ . 10015)])
#@200 Return the index (level) in hierarchy HIER of decoration DECO.
This basically just searches for the item using the appropriate
comparison and returns the index.  Return nil if the item is
not found.
(defalias 'rst-get-decoration-match #[(hier deco) "\211\203�\303	@\n\"\204�	A\211\204�	)\207" [hier cur deco rst-compare-decorations] 4 (#$ . 10346)])
#@214 Suggest a new, different decoration from all that have been seen.

ALLDECOS is the set of all decorations, including the line numbers.
PREV is the optional previous decoration, in order to suggest a
better match.
(defalias 'rst-suggest-new-decoration #[(alldecos &optional prev) "\306	\"A\307\n\"\f\310\2032�
\2042�\311@@\"\203)�@\202�A\211\204�
*\203=�A\202�\312@!*\207" [rst-preferred-decorations prev fplist curpotential alldecos found rst-get-decoration-match append nil rst-compare-decorations copy-sequence cur] 4 (#$ . 10709)])
#@63 Delete the entire current line without using the `kill-ring'.
(defalias 'rst-delete-entire-line #[nil "\300 \300\301!|\207" [line-beginning-position 2] 3 (#$ . 11274)])
#@400 Unconditionally update the style of a section decoration.

Do this using the given character CHAR, with STYLE 'simple
or 'over-and-under, and with indent INDENT.  If the STYLE
is 'simple, whitespace before the title is removed (indent
is always assumed to be 0).

If there are existing overline and/or underline from the
existing decoration, they are removed before adding the
requested decoration.
(defalias 'rst-update-section #[(char style &optional indent) "\306\211\306\210\307 \n\203�\310=\203�\311\312 \210\313 \210\314\n\315\"c\210\306\210\313 \210i\n\\\212\316y\210\317\320!\203D�\212\316y\210\321\f!)\204D�\322 \210)\212\320y\210\317\320!\203R�\322 \210`\323\320!U\203^�\324\320!\210)\325=\203t�\212\312 \210\326\320!\210\314
\"c\210)\320y\210\326\320!\210\314
\"c\210\320y\210	b*\207" [len marker indent style rst-section-text-regexp char nil point-marker simple 0 beginning-of-line delete-horizontal-space make-string 32 -1 rst-line-homogeneous-p 1 looking-at rst-delete-entire-line buffer-end newline over-and-under open-line] 3 (#$ . 11450) nil])
#@233 Normalize the cursor position.
If the cursor is on a decoration line or an empty line , place it
on the section title line (at the end).  Returns the line offset
by which the cursor was moved.  This works both over or under a
line.
(defalias 'rst-normalize-cursor-position #[nil "\212\301 \210\302\303!\206
�\304\305!)\203J�\301 \210\212\306y\210\301 \210\304!\205%�\302\303!?)\203.�\306y\210\306\207\212\303y\210\301 \210\304!\205?�\302\303!?)\203H�\303y\210\303\207\307\207\307\207" [rst-section-text-regexp beginning-of-line rst-line-homogeneous-p 1 looking-at "^[ 	]*$" -1 0] 2 (#$ . 12531)])
#@323 Find all the decorations in the file.
Return a list of (line, decoration) pairs.  Each decoration
consists in a (char, style, indent) triple.

This function does not detect the hierarchy of decorations, it
just finds all of them in a file.  You can then invoke another
function to remove redundancies and inconsistencies.
(defalias 'rst-find-all-decorations #[nil "\304\305\212eb\210`\306\305!W\203<�\307 \2033�\310 \\\311 \211\211A@)\2032�\nB	B\305y\210T)\305y\210T\202�)\312	!*\207" [curline positions deco x nil 1 buffer-end rst-line-homogeneous-nodent-p rst-normalize-cursor-position rst-get-decoration reverse] 4 (#$ . 13137)])
#@464 Build a hierarchy of decorations using the list of given DECORATIONS.

This function expects a list of (char, style, indent) decoration
specifications, in order that they appear in a file, and will
infer a hierarchy of section levels by removing decorations that
have already been seen in a forward traversal of the decorations,
comparing just the character and style.

Similarly returns a list of (char, style, indent), where each
list element should be unique.
(defalias 'rst-infer-hierarchy #[(decorations) "\306	\306\211\2030�@\211@\n\211A@)\307
\fB\"\204(�
\fB\nBB*A\211\204\n�*\310\311\237\")\207" [hierarchy-alist decorations x #1=#:--cl-dolist-temp-- style char nil assoc mapcar cdr] 4 (#$ . 13790)])
#@367 Return the hierarchy of section titles in the file.

Return a list of decorations that represents the hierarchy of
section titles in the file.  Reuse the list of decorations
already computed in ALLDECOS if present.  If the line number in
IGNORE is specified, the decoration found on that line (if there
is one) is not taken into account when building the hierarchy.
(defalias 'rst-get-hierarchy #[(&optional alldecos ignore) "\206�\303 \304\n	\"\305\306\307	\"!)\207" [alldecos all ignore rst-find-all-decorations assq-delete-all rst-infer-hierarchy mapcar cdr] 4 (#$ . 14520)])
#@548 Get the decoration at POINT.

Looks around point and finds the characteristics of the
decoration that is found there.  Assumes that the cursor is
already placed on the title line (and not on the overline or
underline).

This function returns a (char, style, indent) triple.  If the
characters of overline and underline are different, return
the underline character.  The indent is always calculated.
A decoration can be said to exist if the style is not nil.

A point can be specified to go to the given location before
extracting the decoration.
(defalias 'rst-get-decoration #[(&optional point) "\306\211\211\212\203�b\210\307 \210\310\f!\203n�\212\311y\210\312 )\212\313y\210\312 )
\203=�\212\314y\315\232\2057�\310\f!)\203=�\306
\306=\203J�\306=\204m�
\203U�\306=\204m�\203h�
\306=\203h�\316\202m�\317*\212\320 \210i))\n	E+\207" [indent style char point rst-section-text-regexp over nil beginning-of-line looking-at -1 rst-line-homogeneous-nodent-p 1 -2 0 simple over-and-under back-to-indentation under] 3 (#$ . 15110)])
#@212 Return the decorations around point.

Given the list of all decorations ALLDECOS (with positions),
find the decorations before and after the given point.
A list of the previous and next decorations is returned.
(defalias 'rst-get-decorations-around #[(&optional alldecos) "\206�\306 \307 \310\211	\211\203)�
\211@@)\nW\203)�

A\211\204�
\203J�
\211@@)\203J�\n
\211@@)U\203H�
A\202I�
\311\312\fD\"-\207" [alldecos all curline prev next cur rst-find-all-decorations line-number-at-pos nil mapcar cdar x] 5 (#$ . 16169)])
#@62 Return true if the decoration DECO around point is complete.
(defalias 'rst-decoration-complete-p #[(deco) "@\211A@)\211AA)@\212\306\210i)	\205M�\307\310\311
\f\\	\"!\312Q\212\313y\210\314 \210\315!)\205L�\316=?\206L�\212\317y\210\314 \210\315!)),\207" [deco char x style indent endcol nil "^" regexp-quote make-string "$" 1 beginning-of-line looking-at over-and-under -1 exps] 6 (#$ . 16712)])
#@173 Get the next decoration for CURDECO, in given hierarchy HIER.
If suggesting, suggest for new decoration SUGGESTION.
REVERSE-DIRECTION is used to reverse the cycling order.
(defalias 'rst-get-next-decoration #[(curdeco hier &optional suggestion reverse-direction) "@\211A@)\306\f
\f@D\"	\203�\202!�\307!\211\n\203I�	\n\211@@)=\203@�\n\211@A)@=\204I�\nA\211\n\204'�\n)\211A@)\206U�
+\207" [curdeco char x style hier suggestion append reverse rotdecos reverse-direction cur] 5 (#$ . 17131)])
#@1168 Auto-adjust the decoration around point.

Adjust/rotate the section decoration for the section title
around point or promote/demote the decorations inside the region,
depending on if the region is active.  This function is meant to
be invoked possibly multiple times, and can vary its behavior
with a positive prefix argument (toggle style), or with a
negative prefix argument (alternate behavior).

This function is the main focus of this module and is a bit of a
swiss knife.  It is meant as the single most essential function
to be bound to invoke to adjust the decorations of a section
title in restructuredtext.  It tries to deal with all the
possible cases gracefully and to do `the right thing' in all
cases.

See the documentations of `rst-adjust-decoration' and
`rst-promote-region' for full details.

Prefix Arguments
================

The method can take either (but not both) of

a. a (non-negative) prefix argument, which means to toggle the
   decoration style.  Invoke with a prefix arg for example;

b. a negative numerical argument, which generally inverts the
   direction of search in the file or hierarchy.  Invoke with C--
   prefix for example.
(defalias 'rst-adjust #[nil "\304 `\305\223	\205�\306	!\307W	\205�\n?\310 \203#�\311	!\210\202(�\312\n\"\210\313\314!\210b+\207" [origpt current-prefix-arg reverse-direction toggle-style make-marker nil prefix-numeric-value 0 rst-portable-mark-active-p rst-promote-region rst-adjust-decoration run-hooks rst-adjust-hook] 3 (#$ . 17651) nil])
#@45 Hooks to be run after running `rst-adjust'.
(defvar rst-adjust-hook nil (#$ . 19173))
#@237 Non-nil if new decoration is added deeper.
If non-nil, a new decoration being added will be initialized to
be one level down from the previous decoration.  If nil, a new
decoration will be equal to the level of the previous
decoration.
(defvar rst-new-decoration-down nil (#$ . 19266))
#@5283 Adjust/rotate the section decoration for the section title around point.

This function is meant to be invoked possibly multiple times, and
can vary its behavior with a true TOGGLE-STYLE argument, or with
a REVERSE-DIRECTION argument.

General Behavior
================

The next action it takes depends on context around the point, and
it is meant to be invoked possibly more than once to rotate among
the various possibilities.  Basically, this function deals with:

- adding a decoration if the title does not have one;

- adjusting the length of the underline characters to fit a
  modified title;

- rotating the decoration in the set of already existing
  sectioning decorations used in the file;

- switching between simple and over-and-under styles.

You should normally not have to read all the following, just
invoke the method and it will do the most obvious thing that you
would expect.

Decoration Definitions
======================

The decorations consist in

1. a CHARACTER

2. a STYLE which can be either of 'simple' or 'over-and-under'.

3. an INDENT (meaningful for the over-and-under style only)
   which determines how many characters and over-and-under
   style is hanging outside of the title at the beginning and
   ending.

See source code for mode details.

Detailed Behavior Description
=============================

Here are the gory details of the algorithm (it seems quite
complicated, but really, it does the most obvious thing in all
the particular cases):

Before applying the decoration change, the cursor is placed on
the closest line that could contain a section title.

Case 1: No Decoration
---------------------

If the current line has no decoration around it,

- search backwards for the last previous decoration, and apply
  the decoration one level lower to the current line.  If there
  is no defined level below this previous decoration, we suggest
  the most appropriate of the `rst-preferred-decorations'.

If REVERSE-DIRECTION is true, we simply use the previous
  decoration found directly.

- if there is no decoration found in the given direction, we use
  the first of `rst-preferred-decorations'.

The prefix argument forces a toggle of the prescribed decoration
style.

Case 2: Incomplete Decoration
-----------------------------

If the current line does have an existing decoration, but the
decoration is incomplete, that is, the underline/overline does
not extend to exactly the end of the title line (it is either too
short or too long), we simply extend the length of the
underlines/overlines to fit exactly the section title.

If the prefix argument is given, we toggle the style of the
decoration as well.

REVERSE-DIRECTION has no effect in this case.

Case 3: Complete Existing Decoration
------------------------------------

If the decoration is complete (i.e. the underline (overline)
length is already adjusted to the end of the title line), we
search/parse the file to establish the hierarchy of all the
decorations (making sure not to include the decoration around
point), and we rotate the current title's decoration from within
that list (by default, going *down* the hierarchy that is present
in the file, i.e. to a lower section level).  This is meant to be
used potentially multiple times, until the desired decoration is
found around the title.

If we hit the boundary of the hierarchy, exactly one choice from
the list of preferred decorations is suggested/chosen, the first
of those decoration that has not been seen in the file yet (and
not including the decoration around point), and the next
invocation rolls over to the other end of the hierarchy (i.e. it
cycles).  This allows you to avoid having to set which character
to use.

If REVERSE-DIRECTION is true, the effect is to change the
direction of rotation in the hierarchy of decorations, thus
instead going *up* the hierarchy.

However, if there is a non-negative prefix argument, we do not
rotate the decoration, but instead simply toggle the style of the
current decoration (this should be the most common way to toggle
the style of an existing complete decoration).

Point Location
==============

The invocation of this function can be carried out anywhere
within the section title line, on an existing underline or
overline, as well as on an empty line following a section title.
This is meant to be as convenient as possible.

Indented Sections
=================

Indented section titles such as ::

My Title
   --------

are invalid in restructuredtext and thus not recognized by the
parser.  This code will thus not work in a way that would support
indented sections (it would be ambiguous anyway).

Joint Sections
==============

Section titles that are right next to each other may not be
treated well.  More work might be needed to support those, and
special conditions on the completeness of existing decorations
might be required to make it non-ambiguous.

For now we assume that the decorations are disjoint, that is,
there is at least a single line between the titles/decoration
lines.

Suggested Binding
=================

We suggest that you bind this function on C-=.  It is close to
C-- so a negative argument can be easily specified with a flick
of the right hand fingers and the binding is unused in `text-mode'.
(defalias 'rst-adjust-decoration #[(&optional toggle-style reverse-direction) "\203�\205
�\306!\307W\205�	?\310 \311 \211@\f\211A@)\f\211AA)@\312\211\312 \212\313 \210\314!!)\203u
\312=\203\325�\312=\203\325�\315 \"\316\"!\211#@$\312%\317\"!&$\203\225�	\204\220�'\203|�\320\202}�\321\322&$\"!\206\232�\323&$\"\202\232�$\202\232�\324(@!%\n\203\267�%A%\211A@)\325=\203\264�\326\202\265�\325\240\210%@%\211A@)%\211AA)@ -\202R\327\f!\204\373�\n\203\355�\325=\203\352�\326\202\353�\325
 \202R\n\203
\325=\203
\326\202\325) \202R\315 \"\317\"\330 \"&\323&\316\"!@\"*\331\f&*	$\211+@+\211A@)+\211AA)@ ,\307V\203^\202`  \203u\203u\332 #\210\307U?\205\202[y\210\312.\207" [current-prefix-arg reverse-direction toggle-style moved curdeco char prefix-numeric-value 0 rst-normalize-cursor-position rst-get-decoration nil beginning-of-line looking-at rst-find-all-decorations rst-get-decorations-around rst-get-hierarchy cadr car rst-get-decoration-match rst-suggest-new-decoration copy-sequence simple over-and-under rst-decoration-complete-p line-number-at-pos rst-get-next-decoration rst-update-section x style indent char-new style-new indent-new rst-section-text-regexp alldecos around prev cur hier rst-new-decoration-down rst-preferred-decorations rst-default-indent suggestion nextdeco] 6 (#$ . 19560) nil])
(defalias 'rst-adjust-section-title 'rst-adjust)
#@233 Promote the section titles within the region.

With argument DEMOTE or a prefix argument, demote the section
titles instead.  The algorithm used at the boundaries of the
hierarchy is similar to that used by `rst-adjust-decoration'.
(defalias 'rst-promote-region #[(&optional demote) "\206�	\306 \211\307\n!\310\f!\311\312 !\311\313 !\314\203:�\211@@)W\203:�A\211\204&�\212\314\211\203w�\211@@)\211W\203w�\315 \316!\210`\314\223\211@A)DBA\211\204E�*\314\314\211\203\264�@\211@b\210\317\211A@)\f
	$\320\321\"\210@\314\211\223\210A\211\204\206�+\314\211.	\207" [current-prefix-arg demote alldecos cur hier suggestion rst-find-all-decorations rst-get-hierarchy rst-suggest-new-decoration line-number-at-pos region-beginning region-end nil make-marker goto-line rst-get-next-decoration apply rst-update-section region-begin-line region-end-line marker-list x line m nextdeco p #1=#:--cl-dolist-temp-- deactivate-mark] 7 (#$ . 26334) nil])
#@143 Display the current file's section title decorations hierarchy.
This function expects a list of (char, style, indent) triples in
DECORATIONS.
(defalias 'rst-display-decorations-hierarchy #[(&optional decorations) "\204�\305 \306\220\307r\nq\210\310\211\2035�\f@\311\312	\"c\210\313\314\"\210db\210\315c\210	T\fA\211\204�,\310\221\207" [decorations level standard-output x #1=#:--cl-dolist-temp-- rst-get-hierarchy "*rest section hierarchy*" 1 nil format "\nSection Level %d" apply rst-update-section "\n"] 5 (#$ . 27351) nil])
#@41 Return position of ELEM in LIST or nil.
(defalias 'rst-position #[(elem list) "	\235\211\205
�	G\nGZ)\207" [elem list tail] 3 (#$ . 27896)])
#@226 Redo all the decorations in the current buffer.
This is done using our preferred set of decorations.  This can be
used, for example, when using somebody else's copy of a document,
in order to adapt it to our preferred style.
(defalias 'rst-straighten-decorations #[nil "\212\306 \307!\310\311\"\211\312\211\2031�\f@\211Ab\210\313\314@
8\"\210A\312\211\223\210\fA\211\204�.\312\207" [alldecos hier levels-and-markers lm #1=#:--cl-dolist-temp-- rst-preferred-decorations rst-find-all-decorations rst-get-hierarchy mapcar #[(deco) "\303A	\"\304 \305@!\210\n`\306\223\210\n)B\207" [deco hier m rst-position make-marker goto-line nil] 4] nil apply rst-update-section] 6 (#$ . 28046) nil])
#@212 Adjust the spacing before and after decorations in the entire document.
The spacing will be set to two blank lines before the first two
section levels, and one blank line before any of the other
section levels.
(defalias 'rst-straighten-deco-spacing #[nil "\212\303 \211\237\304\211\203�\n@\305	@!\210\306c\210\nA\211\204
�,\304\207" [alldecos deco #1=#:--cl-dolist-temp-- rst-find-all-decorations nil goto-line "@\n"] 4 (#$ . 28753) nil])
#@190 Find all the positions of prefixes in region between BEG and END.
This is used to find bullets and enumerated list items.  PFX-RE
is a regular expression for matching the lines with items.
(defalias 'rst-find-pfx-in-region #[(beg end pfx-re) "\305\212	b\210`\nW\203C�\306 \210\307!\203=�i\212\310y\210\306 \210\307\311!\2063�i\fV\2063�i\fU\2053�\307!*\203=�`iBB\312y\210\202�)\237)\207" [pfx beg end pfx-re pfx-col nil back-to-indentation looking-at -1 "^[ 	]*$" 1] 2 (#$ . 29206)])
#@29 Regexp for finding bullets.
(defvar rst-re-bullets (byte-code "\301\302\303\260!\"\207" [rst-bullets format "\$[%s][ 	]\$[^ 	]" regexp-quote] 4) (#$ . 29703))
#@29 Regexp for finding bullets.
(defvar rst-re-items (byte-code "\301\302\301\303\304\260!\"\305#\207" [rst-bullets format "\$%s\\|%s\$[^ 	]" "[%s][ 	]" regexp-quote "\$#\\|[0-9]+\$\\.[ 	]"] 6) (#$ . 29872))
#@61 List of favourite bullets to set for straightening bullets.
(defvar rst-preferred-bullets '(45 42 43) (#$ . 30088))
#@402 Make all the bulleted list items in the region consistent.
The region is specified between BEG and END.  You can use this
after you have merged multiple bulleted lists to make them use
the same/correct/consistent bullet characters.

See variable `rst-preferred-bullets' for the list of bullets to
adjust.  If bullets are found on levels beyond the
`rst-preferred-bullets' list, they are not modified.
(defalias 'rst-straighten-bullets-region #[(beg end) "\306	\n#\307\310\311\"\211\312\211\2037�@\211A\313\314\315\312#
@C\"#\210)A\211\204�*\312\316\317\"\210\320\321\"\312\211\203\213�@\f\203\202�
A\312\211\203~�@\211b\210\322\323!\210\324\f@!c\210A\211\204c�*\fAA\211\204P�.\312\207" [beg end rst-re-bullets levtable bullets x rst-find-pfx-in-region make-hash-table :size 4 nil puthash append gethash maphash #[(x y) "	B\nB\211\207" [x y poslist] 2] sort car-less-than-car delete-char 1 string #1=#:--cl-dolist-temp-- key poslist rst-preferred-bullets #2=#:--cl-dolist-temp-- pos #3=#:--cl-dolist-temp--] 9 (#$ . 30211) "r"])
#@49 Strips the whitespace at the end of string STR.
(defalias 'rst-rstrip #[(str) "\301\302\"\210\303\211\224O\207" [str string-match "[ 	\n]*\\'" 0] 3 (#$ . 31301)])
#@54 Return the line at cursor, stripped from whitespace.
(defalias 'rst-get-stripped-line #[nil "\300\301\302 \"\210\303\304\224\304\225\"\207" [re-search-forward "\\S-.*\\S-" line-end-position buffer-substring-no-properties 0] 3 (#$ . 31472)])
#@822 Get the hierarchical tree of section titles.

Returns a hierarchical tree of the sections titles in the
document, for decorations ALLDECOS.  This can be used to generate
a table of contents for the document.  The top node will always
be a nil node, with the top level titles as children (there may
potentially be more than one).

Each section title consists in a cons of the stripped title
string and a marker to the section in the original text document.

If there are missing section levels, the section titles are
inserted automatically, and the title string is set to nil, and
the marker set to the first non-nil child of itself.
Conceptually, the nil nodes--i.e. those which have no title--are
to be considered as being the same line as their first non-nil
child.  This has advantages later in processing the graph.
(defalias 'rst-section-tree #[(alldecos) "\306!\307\310\311\312\313$\314\315	\314\211\2037�@\316
@
\211A@)B\f\n#\210\fTA\211\204�+\212\317\320\")\314B\321\322\",\207" [alldecos hier levels lines lev deco rst-get-hierarchy make-hash-table :test equal :size 10 nil 0 puthash mapcar #[(deco) "\304@!\210\305\211A@)\211AA)@B\n\"\306 \307 \310\311!\210`\312\223)E\207" [deco x levels m goto-line gethash rst-get-stripped-line make-marker beginning-of-line 1 nil] 6] rst-section-tree-rec -1 #1=#:--cl-dolist-temp-- x lcontnr] 5 (#$ . 31720)])
#@300 Recursive guts of the section tree construction.
DECOS is a cons cell whose cdr is the remaining list of
decorations, and we change it as we consume them.  LEV is
the current level of that node.  This function returns a
pair of the subtree that was built.  This treats the DECOS
list destructively.
(defalias 'rst-section-tree-rec #[(decos lev) "\211A@)\306\211\211\203\"�\f@
U\203\"�\211\211AA)\241\210\fAA\203>�\211A@)@
V\203>�\307
T\"\nB\202\"�\310\n!\306=\203R�\306\n\211@@)AB\n+B\207" [decos x children node ndeco lev nil rst-section-tree-rec reverse] 4 (#$ . 33118)])
#@378 Find tree node at point.
Given a computed and valid section tree in NODE and a point
POINT (default being the current point in the current buffer),
find and return the node within the sectree where the cursor
lives.

Return values: a pair of (parent path, container subtree).
The parent path is simply a list of the nodes above the
container subtree node that we're returning.
(defalias 'rst-section-tree-point #[(node &optional point) "\306\211\n\206	�`\f\211@A)@\203a�\f\211@A)@Y\203a�\fA\306\211	\203F�	\211@@)A@Y\203F�		A\211	\204+�\203^�\307@\"\211\n@\nA)\202`�\f*)\f@	B*B\207" [outtree path point curpoint node x nil rst-section-tree-point last curnode sub] 4 (#$ . 33717)])
(custom-declare-group 'rst-toc nil "Settings for reStructuredText table of contents." :group 'rst :version "21.1")
#@108 Indentation for table-of-contents display.
Also used for formatting insertion, when numbering is disabled.
(custom-declare-variable 'rst-toc-indent '2 '(#$ . 34548) :group 'rst-toc)
#@328 Insertion style for table-of-contents.
Set this to one of the following values to determine numbering and
indentation style:
- plain: no numbering (fixed indentation)
- fixed: numbering, but fixed indentation
- aligned: numbering, titles aligned under each other
- listed: numbering, with dashes like list items (EXPERIMENTAL)
(custom-declare-variable 'rst-toc-insert-style ''fixed '(#$ . 34737) :group 'rst-toc)
#@59 Separator that goes between the TOC number and the title.
(custom-declare-variable 'rst-toc-insert-number-separator '"  " '(#$ . 35156) :group 'rst-toc)
#@72 (Internal) What happens when you click on propertized text in the TOC.
(defvar rst-toc-insert-click-keymap (byte-code "\301 \302\303\304#\210)\207" [map make-sparse-keymap define-key [mouse-1] rst-toc-mode-mouse-goto] 4) (#$ . 35315))
#@48 If non-nil, maximum depth of the inserted TOC.
(custom-declare-variable 'rst-toc-insert-max-level 'nil '(#$ . 35559) :group 'rst-toc)
#@320 Insert a simple text rendering of the table of contents.
By default the top level is ignored if there is only one, because
we assume that the document will have a single title.

If a numeric prefix argument PFXARG is given, insert the TOC up
to the specified level.

The TOC is inserted indented at the current column.
(defalias 'rst-toc-insert #[(&optional pfxarg) "\250\203�\306!\307V\203�\306!\202�	\310\311\312 !!\313i\314\"`\n\211AA)\205>�\315\nA\307\316$\210\f\211G\\|\210\317\320!,\207" [pfxarg rst-toc-insert-max-level sectree-pair initial-indent init-point x prefix-numeric-value 0 rst-section-tree-point rst-section-tree rst-find-all-decorations make-string 32 rst-toc-insert-node "" delete-backward-char 1] 6 (#$ . 35700) "P"])
#@300 Insert tree node NODE in table-of-contents.
Recursive function that does printing of the inserted toc.
LEVEL is the depth level of the sections in the tree.
INDENT is the indentation string.  PFX is the prefix numbering,
that includes the alignment necessary for all the children of
level to align.
(defalias 'rst-toc-insert-node #[(node level indent pfx) "\306V\307\211\203\225�c\210`
\310\232\204� !\261\210\"\211#@@)\206(�\311c\210\312\f`\313\314$\210\312\f`\315\"\211#@A)@$\210\312\f`\316$$\210)\317c\210
\310=\203\\�\320%\321\"P\202\224�
\322=\203l�\320%\321\"P\202\224�
\323=\203�\320 G\324\\\321\"P\202\224�
\325=\205\224�\306\326O\320 G\324\\\321\"\327PP&\330=\204\243�&W\205\f\306Y\330'\211(\203\323� G\306V\203\277�\331 !\332P \"A\203\323�\333\334\335\336\"AG!!T\"'\"A\330)\211*\203\n*@)\337)T(\203\372� \333'	\"P\202\374� $\210	T*A\211*\204\337�,\330*\207" [level count do-print indent b rst-toc-insert-style 0 1 plain "[missing node]" put-text-property mouse-face highlight rst-toc-target keymap "\n" make-string 32 fixed aligned 2 listed -3 " - " nil rst-rstrip "." format "%%-%dd" floor log10 rst-toc-insert-node pfx rst-toc-insert-number-separator node x rst-toc-insert-click-keymap rst-toc-indent rst-toc-insert-max-level fmt do-child-numbering child #1=#:--cl-dolist-temp--] 10 (#$ . 36459)])
#@154 Find and delete an existing comment after the first contents directive.
Delete that region.  Return t if found and the cursor is left after the comment.
(defalias 'rst-toc-insert-find-delete-contents #[nil "eb\210\302\303\304\305#\304\211\205H�\306y\210\307 \210`dW\2033�\310\311!\203'�`\211\204-�\310\312!\2033�\306y\210\202�\203D�b\210\304\210	`|\210\202G�	b\210\305*\207" [last-real beg re-search-forward "^\\.\\. contents[ 	]*::\$.*\$\n\\.\\." nil t 1 beginning-of-line looking-at "[ 	]+[^ 	]" "[ 	]*$"] 5 (#$ . 37829)])
#@190 Automatically find the contents section of a document and update.
Updates the inserted TOC if present.  You can use this in your
file-write hook to always make it up-to-date automatically.
(defalias 'rst-toc-update #[nil "`\212\301 \203�\302c\210\303 \210)b)\207" [p rst-toc-insert-find-delete-contents "\n    " rst-toc-insert] 1 (#$ . 38370) nil])
(defalias 'rst-toc-insert-update 'rst-toc-update)
#@77 Recursive function that does insert NODE at LEVEL in the table-of-contents.
(defalias 'rst-toc-node #[(node level) "\306V\2035�`\307\nS_\310\"c\210\211@@)\206�\311c\210\312	`\313\314$\210\312	`\315\211@A)@$\210\316c\210)A\317\211\203R�@\320
T\"\210A\211\204?�*\317\207" [level b rst-toc-indent node x child 0 make-string 32 "[missing node]" put-text-property mouse-face highlight rst-toc-target "\n" nil rst-toc-node #1=#:--cl-dolist-temp--] 6 (#$ . 38778)])
#@219 Count the number of lines from NODE to the TARGET-NODE node.
This recursive function returns a cons of the number of
additional lines that have been counted for its node and
children, and t if the node has been found.
(defalias 'rst-toc-count-lines #[(node target-node) "\306\307\n=\203�\310\2020�\nA\f\203/�\204/�\311\f@\"	
@\\
A\fA)\202�)	*B\207" [found count node target-node child cl 1 nil t rst-toc-count-lines] 3 (#$ . 39264)])
#@39 Name of the Table of Contents buffer.
(defvar rst-toc-buffer-name "*Table of Contents*" (#$ . 39718))
#@49 Buffer to which to return when leaving the TOC.
(defvar rst-toc-return-buffer nil (#$ . 39826))
#@307 Display a table-of-contents.
Finds all the section titles and their decorations in the
file, and displays a hierarchically-organized list of the
titles, which is essentially a table-of-contents of the
document.

The Emacs buffer can be navigated, and selecting a section
brings the cursor in that section.
(defalias 'rst-toc #[nil "p\306 \307	!\310\n!A\311\312
!rq\210\313\314 \210ed|\210\315\316\n\211@@)\2061�\317\"c\210\320e`\321\322C$\210\323\n\324\"\210\325\n\"\211A\203R�@\202S�\324+\326!\210\327!\210\330\331!\210\332\f!.\207" [curbuf alldecos sectree our-node line rst-toc-buffer-name rst-find-all-decorations rst-section-tree rst-section-tree-point nil get-buffer-create t rst-toc-mode format "Table of Contents: %s\n" "" put-text-property face (background-color . "gray") rst-toc-node 0 rst-toc-count-lines display-buffer pop-to-buffer make-local-variable rst-toc-return-buffer goto-line buf inhibit-read-only x linefound] 6 (#$ . 39929) nil])
#@46 Get the section from text property at point.
(defalias 'rst-toc-mode-find-section #[nil "\301`\302\"\211\204
�\303\304!\210\305\306!!\204�\303\307!\210)\207" [pos get-text-property rst-toc-target error "No section on this line" buffer-live-p marker-buffer "Buffer for this section was killed"] 4 (#$ . 40916)])
#@47 Go to the section the current line describes.
(defalias 'rst-goto-section #[(&optional kill) "\303 	\203
�\304\305\n!!\210\306\307!!\210b\210\310\311!)\207" [pos kill rst-toc-buffer-name rst-toc-mode-find-section kill-buffer get-buffer pop-to-buffer marker-buffer recenter 5] 3 (#$ . 41237) nil])
#@71 Go to the section the current line describes and kill the TOC buffer.
(defalias 'rst-toc-mode-goto-section #[nil "\300\301!\207" [rst-goto-section t] 2 (#$ . 41543) nil])
#@92 In `rst-toc' mode, go to the occurrence whose line you click on.
EVENT is the input event.
(defalias 'rst-toc-mode-mouse-goto #[(event) "\303r\304	\211:\203�\305	8:\203�\305\202�\306	8\202\"�\307 `\310\311F)\211@)!q\210\212	\211:\203C�\305	8:\203=�\305\202>�\306	8\202I�\307 `\310\311F)\312\n8\206b�\nA@:\203_�\nA@@\202b�\nA@)b\210\313 *\314\315!!\210b\210\316\312!)\207" [pos event position nil window-buffer 2 1 selected-window (0 . 0) 0 5 rst-toc-mode-find-section pop-to-buffer marker-buffer recenter] 6 (#$ . 41720) "e"])
#@65 Same as `rst-toc-mode-mouse-goto', but kill TOC buffer as well.
(defalias 'rst-toc-mode-mouse-goto-kill #[(event) "\302\303\"\210\304\305	!!\207" [event rst-toc-buffer-name call-interactively rst-toc-mode-mouse-goto kill-buffer get-buffer] 3 (#$ . 42264) "e"])
#@31 Leave the current TOC buffer.
(defalias 'rst-toc-quit-window #[nil "\301 \210\302!\207" [rst-toc-return-buffer quit-window pop-to-buffer] 2 (#$ . 42532) nil])
#@28 Keymap for `rst-toc-mode'.
(defvar rst-toc-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\310#\210\302\312\313#\210\302\314\315#\210)\207" [map make-sparse-keymap define-key [mouse-1] rst-toc-mode-mouse-goto-kill [mouse-2] rst-toc-mode-mouse-goto "
" rst-toc-mode-goto-section "f" "q" rst-toc-quit-window "z" kill-this-buffer] 4) (#$ . 42698))
(byte-code "\302\303\304\305#\210\306\307N\204�\302\306\307\310#\210\311\312!\204�\302\312\313\303#\210\312B\314\312!\204.�\315\312\316 \"\210\311\317!\204:�\302\317\313\303#\210\317B\314\317!\204J�\315\317\320 \"\210\302\301\313\303#\210\301B\314\301!\204d�\315\301\321\301\322\"\210	\"\210\302\303\323\322#\207" [current-load-list rst-toc-mode-abbrev-table put rst-toc-mode mode-class special rst-toc-mode-hook variable-documentation "Hook run when entering ReST-TOC mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" boundp rst-toc-mode-map definition-name default-boundp set-default make-sparse-keymap rst-toc-mode-syntax-table make-syntax-table define-abbrev-table nil derived-mode-parent] 5)
#@167 Major mode for output from \[rst-toc], the table-of-contents for the document.

This mode runs the hook `rst-toc-mode-hook', as the final step
during initialization.
(defalias 'rst-toc-mode #[nil "\306\300!\210\307\310 \210\311\312\313!\210\314\f!\210
\307)\315\316!\207" [delay-mode-hooks major-mode mode-name rst-toc-mode-map rst-toc-mode-syntax-table rst-toc-mode-abbrev-table make-local-variable t kill-all-local-variables rst-toc-mode "ReST-TOC" use-local-map set-syntax-table run-mode-hooks rst-toc-mode-hook local-abbrev-table buffer-read-only] 2 (#$ . 43885) nil])
#@169 Skip to the next restructured text section title.
OFFSET specifies how many titles to skip.  Use a negative OFFSET to move
backwards in the file (default is to use 1).
(defalias 'rst-forward-section #[(&optional offset) "\206�\306\307 \310 	\311\203(�\211@@)\nW\203(�A\fT\202�\311V\203@�\203@�\211@@)\nU\203@�\fT\f\311V\203L�S\202M�\\\211	8\211\203d�\f\311Y\203d�\312@!\202q�\311V\203o�db\202q�eb-\207" [offset alldecos curline cur idx x 1 rst-find-all-decorations line-number-at-pos 0 goto-line] 4 (#$ . 44473) nil])
#@57 Like `rst-forward-section', except move back one title.
(defalias 'rst-backward-section #[nil "\300\301!\207" [rst-forward-section -1] 2 (#$ . 45023) nil])
#@48 Select the section that point is currently in.
(defalias 'rst-mark-section #[(&optional arg allow-extend) "\204�\304\305!\203�\306\307!\210	\2033�\n=\203 �\310\311!\204%�\312 \2033�\313\212\310 b\210\314!\210`)!\207\314!\210\315\316\311\211#\210\314[!\207" [arg allow-extend last-command this-command 1 zerop error "Cannot mark zero sections" mark t rst-portable-mark-active-p set-mark rst-forward-section push-mark nil] 4 (#$ . 45185) "p\np"])
#@69 If non-nil, automatically re-fill the region that is being shifted.
(defvar rst-shift-fill-region nil (#$ . 45645))
#@41 Find the leftmost column in the region.
(defalias 'rst-find-leftmost-column #[(beg end) "\303\212	b\210`\nW\203�\304 \210\305\306!\204�i^\307y\210\202�))\207" [mincol beg end 1000 back-to-indentation looking-at "[ 	]*$" 1] 2 (#$ . 45767)])
#@322 Build the list of possible horizontal alignment points.
Search backwards from point (or point PT if specified) to
build the list of possible horizontal alignment points that
includes the beginning and contents of a restructuredtext
bulleted or enumerated list item.  Return a sorted list
of (COLUMN-NUMBER . LINE) pairs.
(defalias 'rst-compute-bullet-tabs #[(&optional pt) "\212\203�b\210\306\307\310\311!\210`eV\203\211�\n\311V\203\211�\312\313!\204\202�\314 \210i\211\nW\203\201�\315\316	\">\204<�`B	B\312\317\320\321\322\323\324\325\326!!\324\325\326!!#\327\260!\203�\330\331!\206]�\330\332!G\f\\\211\nY\204~�\f\\\315\316	\">\204~�\f\\`\f\\B	B*)\310\311!\210\202�\333	\334\"+\207" [pt tablist leftcol col matchlen newcol 100000 nil beginning-of-line 0 looking-at "^[ 	]*$" back-to-indentation mapcar car "\$?:" "\\(\\(?:[0-9a-zA-Z#]\\{1,3\\}[.):-]\\|[*+-]\$[ 	]+\\)[^ 	\n]" "\\|" format "\$%s%s+[ 	]+\$[^ 	\n]" regexp-quote thing-at-point char "\\)" match-string 1 2 sort #[(x y) "@	@X\207" [x y] 2]] 11 (#$ . 46021)])
#@74 Insert a line and place special characters at the tab points in TABLIST.
(defalias 'rst-debug-print-tabs #[(tablist) "\303 \210\304\305\306\307\"\304Qc\210\303\310!\210\311\211\2030�\n@\303 \210	@u\210\312\313!\210\314c\210\nA\211\204�*\311\207" [tablist col #1=#:--cl-dolist-temp-- beginning-of-line "\n" make-string 1000 32 0 nil delete-char 1 "@"] 4 (#$ . 47074)])
#@74 Insert a line and place special characters at the tab points in TABLIST.
(defalias 'rst-debug-mark-found #[(tablist) "\303\211\203�\n@\211A\203�	Ab\210\304c\210\nA\211\204�*\303\207" [tablist col #1=#:--cl-dolist-temp-- nil "@"] 3 (#$ . 47454)])
#@76 Basic horizontal shift distance when there is no preceding alignment tabs.
(defvar rst-shift-basic-offset 2 (#$ . 47714))
#@51 (See `rst-shift-region-right' for a description).
(defalias 'rst-shift-region-guts #[(find-next-fun offset-fun) "\306 \307 \310\223\306 \311 \310\223\312!\313\307 \311 \"\314\n\315\316\317\320\321\322!\211\205,�\322K\323\216\322\324M\210\322\325\n!\211 @@)\206B�\326!-\"\"\327	!\n\"\211\"\203\203�\"\211 @A)\203v�\330\331\212\"\211 @A)b\210\332\333 \334 \")\"\210\"\211 @@)Z\202\210�#$!)#\210%\205\224�\335	\",\207" [mbeg mend tabs leftmostcol max-lisp-eval-depth maxcol make-marker region-beginning nil region-end rst-compute-bullet-tabs rst-find-leftmost-column append mapcar #[(x) "\301B\207" [x nil] 2] 120 2000 fboundp addnum ((byte-code "\203�\302	M\210\202�\303\302!\210\302\207" [#1=#:--cl-letf-bound-- #2=#:--cl-letf-save-- addnum fmakunbound] 2)) #[(x) "	V?\205�\303\n\\!B\207" [x maxcol rst-shift-basic-offset addnum] 4] last 0 indent-rigidly message "Aligned on '%s'" buffer-substring-no-properties line-beginning-position line-end-position fill-region #1# #2# x find-next-fun tab offset-fun rst-shift-basic-offset rst-shift-fill-region] 9 (#$ . 47842)])
#@382 Indent region ridigly, by a few characters to the right.
This function first computes all possible alignment columns by
inspecting the lines preceding the region for bulleted or
enumerated list items.  If the leftmost column is beyond the
preceding lines, the region is moved to the right by
`rst-shift-basic-offset'.  With a prefix argument, do not
automatically fill the region.
(defalias 'rst-shift-region-right #[(pfxarg) "?\205�	\302\303\304\")\207" [pfxarg rst-shift-fill-region rst-shift-region-guts #[(tabs leftmostcol) "\211\203�	\211@@)X\203�	A\211\204�	)\207" [tabs cur x leftmostcol] 3] identity] 3 (#$ . 48952) "P"])
#@219 Like `rst-shift-region-right', except we move to the left.
Also, if invoked with a negative prefix arg, the entire
indentation is removed, up to the leftmost character in the
region, and automatic filling is disabled.
(defalias 'rst-shift-region-left #[(pfxarg) "\305 \306 \307\223\305 \310 \307\223\311\306 \310 \"?\205�	\n\312V\205F�\203B�\313!\312W\203B�\314\306 \310 \n[#\210	\205F�\315\f\"\202F�\316\317\320\",\207" [pfxarg rst-shift-fill-region leftmostcol mend mbeg make-marker region-beginning nil region-end rst-find-leftmost-column 0 prefix-numeric-value indent-rigidly fill-region rst-shift-region-guts #[(tabs leftmostcol) "\304!\211\203�	\211@@)Y\203�	A\211\204�	)\207" [tabs cur x leftmostcol reverse] 3] -] 5 (#$ . 49600) "P"])
#@369 FIXME This definition is old and deprecated / we need to move
to the newer version below:

Call FUN at the beginning of each line, with an argument that
specifies whether we are at the first line of a paragraph that
starts at the leftmost column of the given region BEG and END.
Set FIRST-ONLY to true if you want to callback on the first line
of each paragraph only.
(defalias 'rst-iterate-leftmost-paragraphs '(macro . #[(beg end first-only body-consequent body-alternative) "\305\306\307\310	ED\311\312\313	EDD\314\315\316\317D\320BB\321BB\322B\323\324\211\n\325BB\fFFED\207" [beg end first-only body-consequent body-alternative save-excursion let leftcol rst-find-leftmost-column endm set-marker (make-marker) do* l progn goto-char ((back-to-indentation)) ((progn (forward-line 1) (back-to-indentation))) ((previous nil valid) (curcol (current-column) (current-column)) (valid (and (= curcol leftcol) (not (looking-at "[ 	]*$"))) (and (= curcol leftcol) (not (looking-at "[ 	]*$"))))) ((>= (point) endm)) if ((and valid (not previous)) valid)] 10 (#$ . 50367)]))(if macro-declaration-function (funcall macro-declaration-function (quote rst-iterate-leftmost-paragraphs-2) (quote (declare (indent 1) (debug (sexp body))))))
#@210 Evaluate BODY for each line in region defined by BEG END.
LEFTMOST is set to true if the line is one of the leftmost of the
entire paragraph.  PARABEGIN is set to true if the line is the
first of a paragraph.
(defalias 'rst-iterate-leftmost-paragraphs-2 '(macro . #[(spec &rest body) "\211G\306U\203�	\211A@\202�\307\310\311	GD\"	\211A@	\211A@	\211A@	\211A@	@\312\313
\314\nED\315\316\317EDD\320\321\322\323\nD\324BB\325BB\326\311E\327B\f\330D\331\326\330DEE\331\330D\332\333
EE\331\330D\332\334
EEE\257\335\322 BFE.D\207" [spec #1=#:--cl-rest-- beg end parabegin leftmost 6 signal wrong-number-of-arguments nil save-excursion let rst-find-leftmost-column endm set-marker (make-marker) do* l progn goto-char ((back-to-indentation)) ((progn (forward-line 1) (back-to-indentation))) empty-line-previous ((looking-at "[ 	]*$") (looking-at "[ 	]*$")) not and = (current-column) (current-column) ((>= (point) endm)) isleftmost isempty body] 16 (#$ . 51603)]))
#@178 Add enumeration to all the leftmost paragraphs in the given region.
The region is specified between BEG and END.  With prefix argument,
do all lines instead of just paragraphs.
(defalias 'rst-enumerate-region #[(beg end) "\306\307\212\310\n\"\311 \307\223\nb\210\312 \307i\211
U\205'�\313\314!?`\fY\204{�\204?�\203X�?\202A�\203X�\315\316	T\211\"\211Gc\210)\202^�\317\320\"c\210\321y\210\312 i\211
U\205v�\313\314!?\202)�.	\307\207" [last-insert-len count beg end endm leftcol 0 nil rst-find-leftmost-column make-marker back-to-indentation looking-at "[ 	]*$" format "%d. " make-string 32 1 l previous curcol valid current-prefix-arg ins-string] 5 (#$ . 52601) "r"])
#@174 Add bullets to all the leftmost paragraphs in the given region.
The region is specified between BEG and END.  With prefix argument,
do all lines instead of just paragraphs.
(defalias 'rst-bullet-list-region #[(beg end) "\212\306	\"\307 	\310\223b\210\311 \310i\211U\205!�\312\313!?`\nY\204a�\2048�\203C�
?\202:�\203C�\314c\210\202F�\315c\210\316y\210\311 i\211U\205\\�\312\313!?\202#�.\310\207" [beg end endm leftcol l previous rst-find-leftmost-column make-marker nil back-to-indentation looking-at "[ 	]*$" "- " "  " 1 curcol valid current-prefix-arg] 4 (#$ . 53313) "r"])
#@114 Convert all the bulleted items and enumerated items in the
region to enumerated lists, renumbering as necessary.
(defalias 'rst-convert-bullets-to-enumeration #[(beg end) "\306\307\310	\n#\"\311\212\312\211\2038�@\211@b\210\313\n!\210\314\315\316\f\"\312\211\211\311%\210\fTA\211\204�-\312\207" [beg end rst-re-items items count x mapcar #[(x) "\302 \211	@\303\223\210)	AB\207" [m x make-marker nil] 4] rst-find-pfx-in-region 1 nil looking-at replace-match format "%d. " #1=#:--cl-dolist-temp--] 7 (#$ . 53922) "r"])
#@88 Toggle line block prefixes for a region.
With prefix argument set the empty lines too.
(defalias 'rst-line-block-region #[(rbeg rend &optional pfxarg) "\306\307\306\310??\212\311\"\312 \313\223b\210\314 \313\315\316!\211??\205;�iU`Y\204\211�	\204M�\204`�\317	\"\210``\320 Z\\|\210\306c\210\321y\210\314 \315\316!\205x�??\205\204�iU\202=�.
\313\207" [pfxarg force comment-style comment-start-skip comment-end comment-start "| " "" indent rst-find-leftmost-column make-marker nil back-to-indentation looking-at "[ 	]*$" move-to-column current-indentation 1 rbeg rend endm leftmost l empty-line-previous isempty parbegin isleft] 5 (#$ . 54463) "r\nP"])
(byte-code "\300\301!\210\302\303\304\305\306\307\306\310\311\312&	\207" [require font-lock custom-declare-group rst-faces nil "Faces used in Rst Mode." :group rst faces :version "21.1"] 10)
#@40 All syntax marking up a special block.
(custom-declare-variable 'rst-block-face ''font-lock-keyword-face '(#$ . 55370) :group 'rst-faces :type '(face))
#@35 Field names and interpreted text.
(custom-declare-variable 'rst-external-face ''font-lock-type-face '(#$ . 55528) :group 'rst-faces :type '(face))
#@32 All other defining constructs.
(custom-declare-variable 'rst-definition-face ''font-lock-function-name-face '(#$ . 55681) :group 'rst-faces :type '(face))
#@23 Directives and roles.
(custom-declare-variable 'rst-directive-face '(if (boundp 'font-lock-builtin-face) 'font-lock-builtin-face 'font-lock-preprocessor-face) '(#$ . 55842) :group 'rst-faces :type '(face))
#@11 Comments.
(custom-declare-variable 'rst-comment-face ''font-lock-comment-face '(#$ . 56054) :group 'rst-faces :type '(face))
#@18 Simple emphasis.
(custom-declare-variable 'rst-emphasis1-face '(if (facep 'italic) ''italic 'italic) '(#$ . 56185) :group 'rst-faces :type '(face))
#@18 Double emphasis.
(custom-declare-variable 'rst-emphasis2-face '(if (facep 'bold) ''bold 'bold) '(#$ . 56339) :group 'rst-faces :type '(face))
#@15 Literal text.
(custom-declare-variable 'rst-literal-face ''font-lock-string-face '(#$ . 56487) :group 'rst-faces :type '(face))
#@29 References to a definition.
(custom-declare-variable 'rst-reference-face ''font-lock-variable-name-face '(#$ . 56621) :group 'rst-faces :type '(face))
(custom-declare-group 'rst-faces-defaults nil "Values used to generate default faces for section titles on all levels.\nTweak these if you are content with how section title faces are built in\ngeneral but you do not like the details." :group 'rst-faces :version "21.1")
#@79 Set custom var SYM affecting section title text face and recompute the faces.
(defalias 'rst-set-level-default #[(sym val) "\302	\"\210\303\304!\205+�\303\305!\205+�\303\306!\205+�\303\307!\205+�\303\310!\205+�\311\312!\205+�\312 \207" [sym val custom-set-default boundp rst-level-face-max rst-level-face-format-light rst-level-face-base-color rst-level-face-step-light rst-level-face-base-light fboundp rst-define-level-faces] 3 (#$ . 57049)])
#@68 Maximum depth of levels for which section title faces are defined.
(custom-declare-variable 'rst-level-face-max '6 '(#$ . 57501) :group 'rst-faces-defaults :type '(integer) :set 'rst-set-level-default)
#@109 The base name of the color to be used for creating background colors in
section title faces for all levels.
(custom-declare-variable 'rst-level-face-base-color '"grey" '(#$ . 57710) :group 'rst-faces-defaults :type '(string) :set 'rst-set-level-default)
#@161 The lightness factor for the base color.  This value is used for level 1.
The default depends on whether the value of `frame-background-mode' is
`dark' or not.
(custom-declare-variable 'rst-level-face-base-light '(if (eq frame-background-mode 'dark) 15 85) '(#$ . 57971) :group 'rst-faces-defaults :type '(integer) :set 'rst-set-level-default)
#@129 The format for the lightness factor appended to the base name of the color.
This value is expanded by `format' with an integer.
(custom-declare-variable 'rst-level-face-format-light '"%2d" '(#$ . 58322) :group 'rst-faces-defaults :type '(string) :set 'rst-set-level-default)
#@393 The step width to use for the next color.
The formula

`rst-level-face-base-light'
    + (`rst-level-face-max' - 1) * `rst-level-face-step-light'

must result in a color level which appended to `rst-level-face-base-color'
using `rst-level-face-format-light' results in a valid color such as `grey50'.
This color is used as background for section title text on level
`rst-level-face-max'.
(custom-declare-variable 'rst-level-face-step-light '(if (eq frame-background-mode 'dark) 7 -7) '(#$ . 58604) :group 'rst-faces-defaults :type '(integer) :set 'rst-set-level-default)
#@342 Faces for the various adornment types.
Key is a number (for the section title text of that level),
t (for transitions) or nil (for section title adornment).
If you generally do not like how section title text faces are
set up tweak here.  If the general idea is ok for you but you do not like the
details check the Rst Faces Defaults group.
(custom-declare-variable 'rst-adornment-faces-alist '(let ((alist '((t . font-lock-keyword-face) (nil . font-lock-keyword-face))) (i 1)) (while (<= i rst-level-face-max) (nconc alist (list (cons i (intern (format "rst-level-%d-face" i))))) (setq i (1+ i))) alist) '(#$ . 59186) :group 'rst-faces :type '(alist :key-type (choice (integer :tag "Section level (may not be bigger than `rst-level-face-max')") (boolean :tag "transitions (on) / section title adornment (off)")) :value-type (face)) :set-after '(rst-level-face-max))
#@68 Define the faces for the section title text faces from the values.
(defalias 'rst-define-level-faces #[nil "\306	X\205C�\307\310\311\"!\310\312\"\310\313\nPS\f_
\\#\314!\210\315\"\210\316\"\210\211L\210T+\202�)\207" [i rst-level-face-max rst-level-face-format-light rst-level-face-base-color rst-level-face-step-light rst-level-face-base-light 1 intern format "rst-level-%d-face" "Face for showing section title text at level %d" "%s" make-empty-face set-face-doc-string set-face-background col doc sym] 7 (#$ . 60059)])
(rst-define-level-faces)
#@61 Non-nil if we can use the character classes in our regexps.
(defvar rst-use-char-classes (string-match "[[:alpha:]]" "b") (#$ . 60638))
#@73 Return keywords to highlight in Rst mode according to current settings.
(defalias 'rst-font-lock-keywords-function #[nil "\306\307\310Q\311\312Q\313\211\314Q\315\316Q\311\317Q@\320A\321BC\322W\203/�\323\2020�\324\211D\325PEB\310EQFB\326EQGB\327EQH\330I\331J\203\\�\332\202]�\333\334\335\260K	\336\n\337R\340LE	\341\n\337R\340LE	\342\nQ\340ME	\343\344Q\340LE	\311\f\345\n\260\340NE	\311\f\346A\347\n\260\340OD\350ND\351ODF	\311\f\352\n\260\340NE	\353\nQ\340NE
\354F\355@\260\350PE
\356F\357@\260\350QE
\360G\361@\260\350RE
\362G\363@\260\350NE
\364G\365@\260\350SE
\366A\367G\370A\371@\260	\350OD\372MD\373ODF
\374@Q\350SE
\375H\376@\260\350SE
\311I\377@\260\350NE
\311A\201V�A\201W�@\260\350NE\201X�KCT\204a\340LD\202\220\201Y�\201Z�\201[�\340\201\\�\201X�\201]�F\350\201^�\201X�\201]�F\201_�\201`�\201X�\201]�F\257C\"\201X�	\311\f\201a�R\340UDDT\205\271\201b�\201c�\201[�\201d�U\201X�EFC\"\201X�	\311\201e�R\340UD\350UDET\205\346\201b�\201f�\201[�\201d�U\201X�EFC\"\201X�	\201g�P\201_�LDDT\205\201b�\201h�\201[�\201d�R\201X�EFC\"\201X�	\201i�P\340LD\350RDE!\257.\207" [re-hws re-bol re-blksep1 re-emt re-ems re-imp1 "[	 ]" "^" "*" "\$" "+\\|$\$" "\\.\\." "+" "\$^\\|" "\\|[-'\"([{</:]\$" "\\|[]-'\")}>/:.,;!?\\]\\|$\\)" "\$\\sw\\|\\s_\$" "\$\\S \\|\\S \\([^" 21 "]" "\\]\\|\\\\." "\$*[^	 \\\\]\\)" "`" "|" "\$acap\\|cid\\|data\\|dav\\|fax\\|file\\|ftp\\|gopher\\|http\\|https\\|imap\\|ldap\\|mailto\\|mid\\|modem\\|news\\|nfs\\|nntp\\|pop\\|prospero\\|rtsp\\|service\\|sip\\|tel\\|telnet\\|tip\\|urn\\|vemmi\\|wais\$" "^\$\\([" "^[:word:][:space:][:cntrl:]" "^\\w 	�-" "]\$\\2\\2+\\)" "*$" "\$[-*+]" "\$" 1 "\$(?\\(#\\|[0-9]+\\|[A-Za-z]\\|[IVXLCMivxlcm]+\$[.)]" "\$:[^:\n]+:\$" "\$\\(\\(\\([-+/]\\|--\$\\sw\$-\\|\\sw\$*" "\$[ =]\\S +\$?\\)\$,[	 ]\$?\\)+\\)\$$\\|[	 ]\\{2\\}\$" "\\[[^[\n]+\\]\\)" "\\)\$\\(|[^|\n]+|[	 ]+\$?\\)\$" "+::\$" 2 4 "_\$[^:\\`\n]\\|\\\\.\\|`[^`\n]+`\$+:\\)" "\$__\$" "\$\\*\\*" "\\*\\*\$" "\$\\*" "\\*\$" "\$``" "``\$" "\$_`" "`\$" "\$\\(`" "`\\|\\(\\sw\\(\\sw\\|-\$+\\sw\\)\\)__?\\)" "\$\\(:" "+:\$?\\)\$`" "`\$\$\\(:" "+:\$?\\)" 5 8 "\$\\[[^]]+\\]_\$" "\$|" "|\$" ":\\S +\\)" re-ims1 re-sym1 re-imbeg2 emacs-major-version re-imendbeg re-imend re-ima2 re-imb2 re-imv2 re-uris1 rst-use-char-classes re-ado2 rst-block-face rst-external-face rst-definition-face rst-directive-face rst-emphasis2-face rst-emphasis1-face rst-literal-face rst-reference-face rst-mode-lazy rst-comment-face "+@" "+\\)" append rst-font-lock-handle-adornment (progn (setq rst-font-lock-adornment-point (match-end 1)) (point-max)) nil (cdr (assoc nil rst-adornment-faces-alist)) t (cdr (assoc rst-font-lock-level rst-adornment-faces-alist)) 3 (cdr (assoc nil rst-adornment-faces-alist)) "\\)[^[|_]\$[^:\n]\\|:\\([^:\n]\\|$\$\\)*$" rst-font-lock-find-unindented-line (progn (setq rst-font-lock-indentation-point (match-end 1)) (point-max)) 0 "\\)\$\\s *\$$" (progn (setq rst-font-lock-indentation-point 'next) (point-max)) "\$\\([^.\n]\\|\\.[^.\n]\$.*\\)?\$::\$$" (progn (setq rst-font-lock-indentation-point t) (point-max)) "\$>>>\\|\\.\\.\\.\$\$.+\$"] 30 (#$ . 60780)])
#@379 Move forward across one indented block.
Find the next non-empty line which is not indented at least to COLUMN (defaults
to the column of the point).  Moves point to first character of this line or the
first empty line immediately before it and returns that position.  If there is
no such line before LIMIT (defaults to the end of the buffer) returns nil and
point is not moved.
(defalias 'rst-forward-indented-block #[(&optional column limit) "\206�i`\306\211\211\204�d\307 \310\216\204_�`W\203_�\311y\210`W\203�`\312\313!\203B�	\206>�\n\202�\314
!\210\315\316\317\n`\"\"\203U�\306\202�	\206Z�\n\211\203 �*\206e�\fb\210-\207" [column cand beg fnd start clm nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 1 looking-at "\\s *$" move-to-column string-match "^\\s *$" buffer-substring-no-properties limit save-match-data-internal] 6 (#$ . 64039) nil])
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list rst-font-lock-indentation-point default-boundp set-default nil] 3)
(defalias 'rst-font-lock-find-unindented-line #[(limit) "\211\305	\203]�	\247\204]�\212\306 \307\216	\310=\203:�\311\312y!\205[�`\fW\205[�`\313\314!?\205[�\313\315!\210\316\225\202[�\311\312y!\203M�`\fW\203M�\313\314!\204:�`\fW\205[�`\313\315!\210\316\225+	\205\202�	b\210\317\305\f\"\206l�\fb\210\212\320\305w\210\321\n`\322\323$\210)\324\n`D!\210\323*\207" [rst-font-lock-indentation-point ind-pnt beg-pnt save-match-data-internal limit nil match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) next zerop 1 looking-at "\\s *$" "\\s *" 0 rst-forward-indented-block " 	\n" put-text-property font-lock-multiline t set-match-data] 6])
#@113 Stores the point where the current adornment ends.
Also used as a trigger for `rst-font-lock-handle-adornment'.
(defvar rst-font-lock-adornment-point nil (#$ . 65809))
(byte-code "\301B\302\301!\204�\303\301\304\"\210\304\207" [current-load-list rst-font-lock-level default-boundp set-default nil] 3)
#@361 Associates adornments with section levels.
The key is a two character string.  The first character is the adornment
character.  The second character distinguishes underline section titles (`u')
from overline/underline section titles (`o').  The value is the section level.

This is made buffer local on start and adornments found during font lock are
entered.
(defvar rst-adornment-level-alist nil (#$ . 66120))
(defalias 'rst-adornment-level #[(key &optional add) "\305	\"\306;\204�\2023�\203�A\2023�\f\2053�\307\n	\"\203*�\nT\202�\310	\nBC\"\n*\207" [key rst-adornment-level-alist new fnd add assoc 1 rassoc append] 4])
(defalias 'rst-classify-adornment #[(adornment end limit) "\212\306 \307\216	b\210\n\310H\311\n!`\310y\210`\212\312\313y!?\206 �\314\315!)\212\312\316y!?\206-�\314\315!)\317\211\211\211\211\211\211 !\203c�\203c�\320\202\312�\203\254�!C\321P\313y\210``\"W\203\312�
\204\312�\314\315!\203\224�`S\202\246�\314\322 \323Q!\203\246�\313\225`\211S\313y\210\202}�!C\324P\fS\325\326\313\327#\203\307�\313y\210`\206\327�\206\327�\f\206\340�
\206\340�
\f\257	.\207" [save-match-data-internal end adornment end-und beg-und end-txt match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 0 regexp-quote zerop 1 looking-at "\\s *$" -1 nil t "o" "\$" "\$\\s *$" "u" re-search-backward "^\\s *$" move beg-txt end-ovr beg-ovr key prv-emp nxt-emp beg-pnt end-pnt ado-re ado-ch limit] 14])
(defalias 'rst-font-lock-handle-adornment #[(limit) "\306	\2051�\307\310\311!	\n#\211@A\312\f\313\"
A@b\210\314
@
A@\315\313$\210\316
!\210+\313)\207" [rst-font-lock-adornment-point ado-pnt limit ado key mtc nil rst-classify-adornment match-string-no-properties 1 rst-adornment-level t put-text-property font-lock-multiline set-match-data rst-font-lock-level] 6])
(custom-declare-group 'rst-compile nil "Settings for support of conversion of reStructuredText\ndocument with \\[rst-compile]." :group 'rst :version "21.1")
#@235 Table describing the command to use for each toolset.
An association list of the toolset to a list of the (command to use,
extension of produced filename, options to the tool (nil or a
string)) to be used for converting the document.
(defvar rst-compile-toolsets '((html "rst2html.py" ".html" nil) (latex "rst2latex.py" ".tex" nil) (newlatex "rst2newlatex.py" ".tex" nil) (pseudoxml "rst2pseudoxml.py" ".xml" nil) (xml "rst2xml.py" ".xml" nil)) (#$ . 68190))
#@40 The default toolset for `rst-compile'.
(defvar rst-compile-primary-toolset 'html (#$ . 68655))
#@63 The default toolset for `rst-compile' with a prefix argument.
(defvar rst-compile-secondary-toolset 'latex (#$ . 68756))
#@69 Look for the configuration file in the parents of the current path.
(defalias 'rst-compile-find-conf #[nil "\304\305 \306!\307\n\230\203�\307\211\203/�\310\n	P!\204/�\n\311\306\312\306\n!!!!\211\202\f�\n\2056�\n	P,\207" [buffer-file file-name dir prevdir "docutils.conf" buffer-file-name file-name-directory nil file-exists-p expand-file-name directory-file-name] 6 (#$ . 68883) nil])
(require 'compile)
#@232 Compile command to convert reST document into some output file.
Attempts to find configuration file, if it can, overrides the
options.  There are two commands to choose from, with a prefix
argument, select the alternative toolset.
(defalias 'rst-compile #[(&optional pfxarg) "\203�	\202	�\n\236A\211@\f\211A@)\f\211AA)@\306 \307!\310!\311\312!\210\313\314
\206@�\315\203M�\316\317Q\202N�\315P\257\320#\n\204e�\203k�\321\322!\202o�\322\n!.\207" [pfxarg rst-compile-secondary-toolset rst-compile-primary-toolset rst-compile-toolsets toolset command rst-compile-find-conf file-name-nondirectory file-name-sans-extension make-local-variable compile-command mapconcat identity "" "--config=\"" "\"" " " call-interactively compile x extension options conffile buffer-file-name bufname outname compilation-read-command current-prefix-arg] 9 (#$ . 69304) "P"])
#@47 Compile command with the alternative toolset.
(defalias 'rst-compile-alt-toolset #[nil "\300\301!\207" [rst-compile t] 2 (#$ . 70206) nil])
#@117 Show the pseudo-XML rendering of the current active region,
or of the entire buffer, if the region is not selected.
(defalias 'rst-compile-pseudo-region #[nil "\302\220\303\203\f�\304 \202
�e\203�\305 \202�d\306	$\221\207" [mark-active standard-output "*pseudoxml*" shell-command-on-region region-beginning region-end "rst2pseudoxml.py"] 6 (#$ . 70353) nil])
#@36 Program used to preview PDF files.
(defvar rst-pdf-program "xpdf" (#$ . 70722))
#@66 Convert the document to a PDF file and launch a preview program.
(defalias 'rst-compile-pdf-preview #[nil "\304\305\306	\n%\307\310\311#*\207" [tmp-filename buffer-file-name rst-pdf-program command "/tmp/out.pdf" format "rst2pdf.py %s %s && %s %s" start-process-shell-command "rst-pdf-preview" nil] 6 (#$ . 70808) nil])
#@36 Program used to preview S5 slides.
(defvar rst-slides-program "firefox" (#$ . 71139))
#@80 Convert the document to an S5 slide presentation and launch a preview program.
(defalias 'rst-compile-slides-preview #[nil "\304\305\306	\n%\307\310\311#*\207" [tmp-filename buffer-file-name rst-slides-program command "/tmp/slides.html" format "rst2s5.py %s %s && %s %s" start-process-shell-command "rst-slides-preview" nil] 6 (#$ . 71231) nil])
#@106 Replace flush-left lines, consisting of multiple FROMCHAR characters,
with equal-length lines of TOCHAR.
(defalias 'rst-replace-lines #[(fromchar tochar) "\212\305\306\307!!\310Q\311\312\n\313\314#\203)�	T\315\224b\210i\316 \210\317\f\"\210)\202\f�\320\321\322	\"!+\207" [fromchar found searchre width tochar "^" regexp-quote string "+\$ *\$$" 0 search-forward-regexp nil t 1 rst-delete-entire-line insert-char message format "%d lines replaced."] 4 (#$ . 71589) "cSearch for flush-left lines of char:\ncand replace with char: "])
#@71 Join lines in current paragraph into one line, removing end-of-lines.
(defalias 'rst-join-paragraph #[nil "\301\302\303!)\207" [fill-column 65000 call-interactively fill-paragraph] 2 (#$ . 72134) nil])
#@121 Fill paragraph at point, first joining the paragraph's lines into one.
This is useful for filling list item paragraphs.
(defalias 'rst-force-fill-paragraph #[nil "\300 \210\301\302!\207" [rst-join-paragraph fill-paragraph nil] 2 (#$ . 72344) nil])
#@535 Fill the current line up to the length of the preceding line (if not
empty), using the last character on the current line.  If the preceding line is
empty, we use the `fill-column'.

If a prefix argument is provided, use the next line rather than the preceding
line.

If the current line is longer than the desired length, shave the characters off
the current line to fit the desired length.

As an added convenience, if the command is repeated immediately, the alternative
column is used (fill-column vs. end of previous/next line).
(defalias 'rst-repeat-last-character #[(&optional tofill) "i\306e`\"\307=\203�\310\202�\307\\\311\307!	\310U\203%�\204%�\f\202F�\212\203.�\310\202/�\312y\210\313\210\314\nx\210i\211\307U\203D�\f\202E�
*\203Q�\f\202v�\315\232\203g�\fU\203c�\202v�\f\202v�\212\307U\203s�\f\202u�)\313\210iV\203\215�`iZZ`|\202\224�\316hiZ\"-\207" [curcol curline lbp current-prefix-arg fill-column cc count-lines 0 1 line-beginning-position -1 nil " 	" rst-repeat-last-character insert-char prevcol tofill last-command rightmost-column] 5 (#$ . 72599) nil])
#@65 A portable function that returns non-nil if the mark is active.
(defalias 'rst-portable-mark-active-p #[nil "\302\303!\203	�\303 \207\304\300!\205�\210	\207" [transient-mark-mode mark-active fboundp region-active-p boundp] 2 (#$ . 73709)])
(provide 'rst)

${this.title}

Code Editor : rst.elc