emacs-diffs
[Top][All Lists]
Advanced

[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.



reply via email to

[Prev in Thread] Current Thread [Next in Thread]