mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-08 15:35:02 +00:00
Code Issues Releases Activity

* lisp/textmodes/rst.el (rst-toc-link-keymap): Move before first use.

Browse Source
This commit is contained in:
Tom Tromey 2017-04-07 09:43:42 -06:00
parent 67aeaa74af
commit dc48ac63f5
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/textmodes/rst.el
View File

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