diff options
| author | Tom Tromey | 2017-04-07 09:43:42 -0600 |
|---|---|---|
| committer | Tom Tromey | 2017-04-07 09:44:46 -0600 |
| commit | dc48ac63f5f830535e6049db0c66943707bd9dbb (patch) | |
| tree | a669fea44c92570dd7173cc9b782528187263aba | |
| parent | 67aeaa74af8504f950f653136d749c6dd03a60de (diff) | |
| download | emacs-dc48ac63f5f830535e6049db0c66943707bd9dbb.tar.gz emacs-dc48ac63f5f830535e6049db0c66943707bd9dbb.zip | |
* lisp/textmodes/rst.el (rst-toc-link-keymap): Move before first use.
| -rw-r--r-- | lisp/textmodes/rst.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el index 7fad83da6be..18202545423 100644 --- a/lisp/textmodes/rst.el +++ b/lisp/textmodes/rst.el | |||
| @@ -2711,6 +2711,12 @@ indentation style: | |||
| 2711 | :group 'rst-toc) | 2711 | :group 'rst-toc) |
| 2712 | (rst-testcover-defcustom) | 2712 | (rst-testcover-defcustom) |
| 2713 | 2713 | ||
| 2714 | (defconst rst-toc-link-keymap | ||
| 2715 | (let ((map (make-sparse-keymap))) | ||
| 2716 | (define-key map [mouse-1] 'rst-toc-mouse-follow-link) | ||
| 2717 | map) | ||
| 2718 | "Keymap used for links in TOC.") | ||
| 2719 | |||
| 2714 | (defun rst-toc-insert (&optional max-level) | 2720 | (defun rst-toc-insert (&optional max-level) |
| 2715 | ;; testcover: ok. | 2721 | ;; testcover: ok. |
| 2716 | "Insert the table of contents of the current section at the current column. | 2722 | "Insert the table of contents of the current section at the current column. |
| @@ -2773,12 +2779,6 @@ If KEYMAP use this as keymap property. PFX is inserted before text." | |||
| 2773 | (error "Buffer for this section was killed")) | 2779 | (error "Buffer for this section was killed")) |
| 2774 | mrkr)) | 2780 | mrkr)) |
| 2775 | 2781 | ||
| 2776 | (defconst rst-toc-link-keymap | ||
| 2777 | (let ((map (make-sparse-keymap))) | ||
| 2778 | (define-key map [mouse-1] 'rst-toc-mouse-follow-link) | ||
| 2779 | map) | ||
| 2780 | "Keymap used for links in TOC.") | ||
| 2781 | |||
| 2782 | (defun rst-toc-insert-tree (stn buf style depth keymap tgt-stn) | 2782 | (defun rst-toc-insert-tree (stn buf style depth keymap tgt-stn) |
| 2783 | ;; testcover: ok. | 2783 | ;; testcover: ok. |
| 2784 | "Insert table of contents of tree below top node STN in buffer BUF. | 2784 | "Insert table of contents of tree below top node STN in buffer BUF. |