[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master dc48ac6: * lisp/textmodes/rst.el (rst-toc-link-keym
From: |
Tom Tromey |
Subject: |
[Emacs-diffs] master dc48ac6: * lisp/textmodes/rst.el (rst-toc-link-keymap): Move before first use. |
Date: |
Fri, 7 Apr 2017 11:45:14 -0400 (EDT) |
branch: master
commit dc48ac63f5f830535e6049db0c66943707bd9dbb
Author: Tom Tromey <address@hidden>
Commit: Tom Tromey <address@hidden>
* 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 7fad83d..1820254 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.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master dc48ac6: * lisp/textmodes/rst.el (rst-toc-link-keymap): Move before first use.,
Tom Tromey <=