Function: hyrolo-xor

hyrolo-xor is a byte-compiled function defined in hyrolo-logic.el.

Signature

(hyrolo-xor START END &rest PAT-LIST)

Documentation

Logical string <xor> rolo entry filter between START and END positions.

PAT-LIST is a list of pattern elements. Each element may be t, nil, or a string.

Source Code

;; Defined in ~/.emacs.d/elpa/hyperbole-20260414.325/hyrolo-logic.el
(defun hyrolo-xor (start end &rest pat-list)
  "Logical string <xor> rolo entry filter between START and END positions.
PAT-LIST is a list of pattern elements.  Each element may be t, nil, or a
string."
  (save-restriction
    (narrow-to-region start end)
    (let ((pat)
	  (matches 0))
      (while (and pat-list
		  (or (not (setq pat (car pat-list)))
		      (and (or (eq pat t)
			       (not (goto-char start))
			       (funcall hyrolo-next-match-function (regexp-quote pat)))
			   (setq matches (1+ matches)))
		      t)
		  (< matches 2))
	(setq pat-list (cdr pat-list)))
      (= matches 1))))