Function: rst-toc-insert-link

rst-toc-insert-link is a byte-compiled function defined in rst.el.gz.

Signature

(rst-toc-insert-link PFX STN BUF KEYMAP)

Documentation

Insert text of STN in BUF as a linked section reference at point.

If KEYMAP use this as keymap property. PFX is inserted before text.

Source Code

;; Defined in /usr/src/emacs/lisp/textmodes/rst.el.gz
(defun rst-toc-insert-link (pfx stn buf keymap)
  ;; testcover: ok.
  "Insert text of STN in BUF as a linked section reference at point.
If KEYMAP use this as keymap property.  PFX is inserted before text."
  (let ((beg (point)))
    (insert pfx)
    (insert (rst-Stn-get-text stn))
    (put-text-property beg (point) 'mouse-face 'highlight)
    (insert "\n")
    (put-text-property
     beg (point) 'rst-toc-target
     (set-marker (make-marker) (rst-Stn-get-title-beginning stn) buf))
    (when keymap
      (put-text-property beg (point) 'keymap keymap))))