Function: cider--make-back-forward-xrefs

cider--make-back-forward-xrefs is a byte-compiled function defined in cider-util.el.

Signature

(cider--make-back-forward-xrefs &optional BUFFER)

Documentation

Insert special references back and forward, as in help-make-xrefs.

Optional argument BUFFER is the buffer in which to insert references. Default is current buffer.

Source Code

;; Defined in ~/.emacs.d/elpa/cider-20260414.1619/cider-util.el
;; Taken from: https://github.com/emacs-mirror/emacs/blob/65c8c7cb96c14f9c6accd03cc8851b5a3459049e/lisp/help-mode.el#L551-L565
(defun cider--make-back-forward-xrefs (&optional buffer)
  "Insert special references `back' and `forward', as in `help-make-xrefs'.

Optional argument BUFFER is the buffer in which to insert references.
Default is current buffer."
  (with-current-buffer (or buffer (current-buffer))
    (insert "\n")
    (when (or help-xref-stack help-xref-forward-stack)
      (insert "\n"))
    ;; Make a back-reference in this buffer if appropriate.
    (when help-xref-stack
      (help-insert-xref-button help-back-label 'help-back
                               (current-buffer)))
    ;; Make a forward-reference in this buffer if appropriate.
    (when help-xref-forward-stack
      (when help-xref-stack
        (insert "\t"))
      (help-insert-xref-button help-forward-label 'help-forward
                               (current-buffer)))
    (when (or help-xref-stack help-xref-forward-stack)
      (insert "\n"))))