Mercurial > hg > xemacs-beta

comparison lisp/w3/md5.el @ 32:e04119814345 r19-15b99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b99
author cvs
date Mon, 13 Aug 2007 08:52:56 +0200
parents 0293115a14e9
children 3d6bfa290dbd
comparison
equal deleted inserted replaced
31:b9328a10c56c 32:e04119814345
391 (mapconcat 391 (mapconcat
392 (function (lambda (node) (format "%02x" node))) 392 (function (lambda (node) (format "%02x" node)))
393 (md5-encode (buffer-string)) 393 (md5-encode (buffer-string))
394 "") 394 "")
395 (call-process-region (point-min) (point-max) 395 (call-process-region (point-min) (point-max)
396 (or shell-file-name "/bin/sh") 396 shell-file-name
397 t buffer nil 397 t buffer nil
398 "-c" md5-program) 398 shell-command-switch md5-program)
399 ;; MD5 digest is 32 chars long 399 ;; MD5 digest is 32 chars long
400 ;; mddriver adds a newline to make neaten output for tty 400 ;; mddriver adds a newline to make neaten output for tty
401 ;; viewing, make sure we leave it behind. 401 ;; viewing, make sure we leave it behind.
402 (buffer-substring (point-min) (+ (point-min) 32))) 402 (buffer-substring (point-min) (+ (point-min) 32)))
403 (kill-buffer buffer))) 403 (kill-buffer buffer)))
404 (and buffer (kill-buffer buffer) nil)))) 404 (and buffer (kill-buffer buffer) nil))))
405 405
406 (provide 'md5) 406 (provide 'md5)
407
408 ;;; md5.el ends here ----------------------------------------------------------