Function: puny-adapt

puny-adapt is a byte-compiled function defined in puny.el.gz.

Signature

(puny-adapt DELTA NUM-POINTS FIRST-TIME)

Source Code

;; Defined in /usr/src/emacs/lisp/net/puny.el.gz
(defun puny-adapt (delta num-points first-time)
  (let ((delta (if first-time
                   (/ delta puny-damp)
                 (/ delta 2)))
        (k 0))
    (setq delta (+ delta (/ delta num-points)))
    (while (> delta (/ (* (- puny-base puny-tmin)
                          puny-tmax)
                       2))
      (setq delta (/ delta (- puny-base puny-tmin))
            k (+ k puny-base)))
    (+ k (/ (* (1+ (- puny-base puny-tmin)) delta)
            (+ delta puny-skew)))))