(print-int32, print-string-hexa): Remove. Suggested by

Jesper Harder <harder@myrealbox.com>.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ca8251a..d17b54c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
 2004-01-05  Simon Josefsson  <jas@extundo.com>
 
+       * md4.el (print-int32, print-string-hexa): Remove.  Suggested by
+       Jesper Harder <harder@myrealbox.com>.
+
        * sasl-ntlm.el, ntlm.el, md4.el: New files.
 
        * hmac-md5.el (md5-binary): Fix byte compile warning.  (This

diff --git a/lisp/md4.el b/lisp/md4.el
index 42cc7ab..00eeefe 100644 (file)
--- a/lisp/md4.el
+++ b/lisp/md4.el
@@ -1,6 +1,7 @@
 ;;; md4.el --- MD4 Message Digest Algorithm.
 
-;; Copyright (C) 2001 Taro Kawagishi
+;; Copyright (C) 2004 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2004 Taro Kawagishi
 ;; Author: Taro Kawagishi <tarok@transpulse.org>
 ;; Keywords: MD4
 ;; Version: 1.00
@@ -28,16 +29,6 @@
 ;;;
 ;;; MD4 hash calculation
 
-(defun print-int32 (int32)
-  "print 32 bits integer in 4 bytes string as little endian"
-  (let ((h (car int32)) (l (cdr int32)))
-    (list (logand l 255) (lsh l -8) (logand h 255) (lsh h -8))))
-
-(defun print-string-hexa (str)
-  "print a string in hexadecimal"
-  (let (out)
-    (mapcar (function (lambda (x) (concat out (format "%x" x)))) str)))
-
 (defvar md4-buffer (make-vector 4 '(0 . 0))
   "work buffer of four 32-bit integers")