Function: klink:replace-label

klink:replace-label is a byte-compiled function defined in klink.el.

Signature

(klink:replace-label KLINK SRC-BUF SRC-START NEW-LABEL)

Documentation

Replace out of date relative id in a link reference of the form, relid=idstamp.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20261030.2317/kotl/klink.el
(defun klink:replace-label (klink src-buf src-start new-label)
  "Replace out of date relative id in a link reference of the form, relid=idstamp."
  (with-current-buffer src-buf
    (if buffer-read-only
	(message "Buffer <%s> is read-only; update relative koutline label to `%s' in ref \"%s\""
		 (buffer-name) new-label klink)
      (goto-char src-start)
      (cond ((or (looking-at "<\\s-*[#@]\\s-*")
		 (looking-at "[^,]+?[#,]\\s-*"))
	     (goto-char (match-end 0))
	     (zap-to-char 1 ?=)
	     (insert new-label ?=))
	    (t nil)))))