Function: kcell-view:to-label-end

kcell-view:to-label-end is a byte-compiled function defined in kview.el.

Signature

(kcell-view:to-label-end &optional POS)

Documentation

Move point from optional POS to end of current cell's label and return point.

Point is set at end of cell's label but before the label separator. If between kcells, move to the previous one. The current cell may be hidden.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/kotl/kview.el
(defun kcell-view:to-label-end (&optional pos)
  "Move point from optional POS to end of current cell's label and return point.
Point is set at end of cell's label but before the label separator.
If between kcells, move to the previous one.  The current cell may be hidden."
  (when pos (goto-char pos))
  (when (eq (current-buffer) (get-buffer hyrolo-display-buffer))
    ;; May need to move past header to a valid position in HyRolo
    ;; display match buffer
    (while (save-excursion (forward-line 0)
			   (or (looking-at hyrolo-hdr-regexp)
			       (looking-at hbut:source-prefix)))
      (forward-line 1)))
  (kview:end-of-actual-line)

  (let (found)
    (unless (setq found (kproperty:get (1- (point)) 'kcell))
      ;; If not at beginning of cell contents, move there.
      (setq found (kproperty:previous-single-change (point) 'kcell))
      (if found
	  (goto-char found)
	(error "(kcell-view:to-label-end): In cell at pos %d, can't find beginning of cell"
	       (or pos (point)))))
    ;; Then move to the end of the label (prior to label separator)
    ;; via embedded kcell property.
    (setq found (kproperty:previous-single-change (point) 'kcell))
    (cond (found
	   (goto-char found))
	  ((save-excursion
	     (goto-char (line-beginning-position))
	     (looking-at kview:outline-regexp))
	   ;; kview:outline-regexp may produce false matches, so use this
	   ;; only in cases where no 'kcell property is found in cells,
	   ;; e.g. before in-memory representation is created.
	   (goto-char (- (match-end 0) 2)))
	  (t (error "(kcell-view:to-label-end): In cell at pos %d, can't find end of cell's label" (or pos (point)))))))