Function: binhex-string-little-endian

binhex-string-little-endian is a byte-compiled function defined in binhex.el.gz.

Signature

(binhex-string-little-endian STRING)

Source Code

;; Defined in /usr/src/emacs/lisp/mail/binhex.el.gz
(defun binhex-string-little-endian (string)
  (let ((ret 0) (i 0) (shift 0) (len (length string)))
    (while (< i len)
      (setq ret (+ ret (ash (aref string i) shift))
	    i (1+ i)
	    shift (+ shift 8)))
    ret))