aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTom Tromey2017-04-07 09:43:42 -0600
committerTom Tromey2017-04-07 09:44:46 -0600
commitdc48ac63f5f830535e6049db0c66943707bd9dbb (patch)
treea669fea44c92570dd7173cc9b782528187263aba
parent67aeaa74af8504f950f653136d749c6dd03a60de (diff)
downloademacs-dc48ac63f5f830535e6049db0c66943707bd9dbb.tar.gz
emacs-dc48ac63f5f830535e6049db0c66943707bd9dbb.zip
* lisp/textmodes/rst.el (rst-toc-link-keymap): Move before first use.
-rw-r--r--lisp/textmodes/rst.el12
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.