Function: comp-cstr-<=

comp-cstr-<= is a byte-compiled function defined in comp-cstr.el.gz.

Signature

(comp-cstr-<= DST OLD-DST SRC)

Documentation

Constraint DST being > than SRC.

SRC can be either a comp-cstr or an integer.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/comp-cstr.el.gz
(defun comp-cstr-<= (dst old-dst src)
  "Constraint DST being > than SRC.
SRC can be either a comp-cstr or an integer."
  (with-comp-cstr-accessors
    (let ((ext-range
           (if (integerp src)
               `((- . ,src))
             (when-let* ((range (range src))
                         (low (comp-cstr-greatest-in-range range))
                         (okay (integerp low)))
               `((- . ,low))))))
      (comp-cstr-set-cmp-range dst old-dst ext-range))))