From dc48ac63f5f830535e6049db0c66943707bd9dbb Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Fri, 7 Apr 2017 09:43:42 -0600 Subject: [PATCH] * lisp/textmodes/rst.el (rst-toc-link-keymap): Move before first use. --- lisp/textmodes/rst.el | 12 ++++++------ 1 file 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: :group 'rst-toc) (rst-testcover-defcustom) +(defconst rst-toc-link-keymap + (let ((map (make-sparse-keymap))) + (define-key map [mouse-1] 'rst-toc-mouse-follow-link) + map) + "Keymap used for links in TOC.") + (defun rst-toc-insert (&optional max-level) ;; testcover: ok. "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." (error "Buffer for this section was killed")) mrkr)) -(defconst rst-toc-link-keymap - (let ((map (make-sparse-keymap))) - (define-key map [mouse-1] 'rst-toc-mouse-follow-link) - map) - "Keymap used for links in TOC.") - (defun rst-toc-insert-tree (stn buf style depth keymap tgt-stn) ;; testcover: ok. "Insert table of contents of tree below top node STN in buffer BUF. -- 2.39.2