Function: kcell:remove-attr

kcell:remove-attr is a byte-compiled function defined in kcell.el.

Signature

(kcell:remove-attr KCELL ATTRIBUTE)

Documentation

Remove KCELL's ATTRIBUTE, if any, and return modified KCELL.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/kotl/kcell.el
(defun kcell:remove-attr (kcell attribute)
  "Remove KCELL's ATTRIBUTE, if any, and return modified KCELL."
  (let ((tail kcell)
	sym
	prev)
    (setq sym (car tail))
    (while (and sym (eq sym attribute))
      (setq tail (cddr tail)
	    sym (car tail)))
    (setq kcell tail
	  prev tail
	  tail (cddr tail))
    (while tail
      (setq sym (car tail))
      (if (eq sym attribute)
	  (setcdr (cdr prev) (cddr tail)))
      (setq prev tail
	    tail (cddr tail)))
    kcell))