Function: kfile:insert-attributes-v2

kfile:insert-attributes-v2 is a byte-compiled function defined in kfile.el.

Signature

(kfile:insert-attributes-v2 KVIEW KCELL-LIST)

Documentation

Set cell attributes within KVIEW for each element in KCELL-LIST.

Assume all cell contents are already in kview and that no cells are hidden.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/kotl/kfile.el
(defun kfile:insert-attributes-v2 (_kview kcell-list)
  "Set cell attributes within KVIEW for each element in KCELL-LIST.
Assume all cell contents are already in kview and that no cells are
hidden."
  (let (buffer-read-only
	idstamp
	kcell-data)
    (while
	(progn
	  (skip-chars-forward "\n")
	  ;; !! TODO: Won't work if label-type is 'no.
	  ;; Here we search past the cell identifier
	  ;; for the location at which to place cell properties.
	  ;; Be sure not to skip past a period which may terminate the label.
	  (when (re-search-forward "[A-Za-z0-9]\\(\\.?[A-Za-z0-9]\\)*" nil t)
	    (setq kcell-data (car kcell-list)
		  ;; Repair invalid idstamps on the fly.
		  idstamp (if (vectorp kcell-data)
			      (or (kcell-data:idstamp kcell-data) (kview:id-increment kotl-kview))
			    (kview:id-increment kotl-kview)))
	    (kproperty:set 'idstamp idstamp)
	    (kproperty:set 'kcell (car kcell-list))
	    (setq kcell-list (cdr kcell-list)))
	  (search-forward "\n\n" nil t)))))