Function: binhex-string-big-endian
binhex-string-big-endian is a byte-compiled function defined in
binhex.el.gz.
Signature
(binhex-string-big-endian STRING)
Source Code
;; Defined in /usr/src/emacs/lisp/mail/binhex.el.gz
(defun binhex-string-big-endian (string)
(let ((ret 0) (i 0) (len (length string)))
(while (< i len)
(setq ret (+ (ash ret 8) (aref string i))
i (1+ i)))
ret))