Function: klabel:set

klabel:set is a byte-compiled function defined in klabel.el.

Signature

(klabel:set NEW-LABEL &optional LBL-SEP-LEN)

Documentation

Replace label displayed in cell at point with NEW-LABEL.

The new label type may differ from the old type. Return NEW-LABEL string.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/kotl/klabel.el
;;; ************************************************************************
;;; Private functions
;;; ************************************************************************

(defun klabel:set (new-label &optional lbl-sep-len)
  "Replace label displayed in cell at point with NEW-LABEL.
The new label type may differ from the old type.
Return NEW-LABEL string."
  (let ((modified (buffer-modified-p))
	(buffer-read-only)
	(thru-label (- (kcell-view:indent nil lbl-sep-len)
		       (or lbl-sep-len
			   (kview:label-separator-length kotl-kview)))))
    (save-excursion
      (kcell-view:to-label-end)
      ;; delete backwards thru label
      (delete-char (- thru-label))
      ;; replace with new label, right justified
      (insert (format (format "%%%ds" thru-label) new-label)))
    (set-buffer-modified-p modified)
    new-label))