Function: ntlm-string-permute

ntlm-string-permute is a byte-compiled function defined in ntlm.el.gz.

Signature

(ntlm-string-permute IN PERM N)

Documentation

Return string of length N for string IN and permutation vector PERM of size N.

The length of IN should be height of PERM.

Source Code

;; Defined in /usr/src/emacs/lisp/net/ntlm.el.gz
(defsubst ntlm-string-permute (in perm n)
  "Return string of length N for string IN and permutation vector PERM of size N.
The length of IN should be height of PERM."
  (let ((i 0) (out (make-string n 0)))
    (while (< i n)
      (aset out i (aref in (- (aref perm i) 1)))
      (setq i (1+ i)))
    out))