Function: md4-pack-int16

md4-pack-int16 is a byte-compiled function defined in md4.el.gz.

Signature

(md4-pack-int16 INT16)

Documentation

Pack 16 bits integer in 2 bytes string as little endian.

Source Code

;; Defined in /usr/src/emacs/lisp/md4.el.gz
;;;
;;; sub functions

(defun md4-pack-int16 (int16)
  "Pack 16 bits integer in 2 bytes string as little endian."
  (let ((str (make-string 2 0)))
    (aset str 0 (logand int16 255))
    (aset str 1 (ash int16 -8))
    str))