Mercurial > hg > xemacs-beta

comparison lisp/w3/md5.el @ 185:3d6bfa290dbd r20-3b19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b19
author cvs
date Mon, 13 Aug 2007 09:55:28 +0200
parents e04119814345
children
comparison
equal deleted inserted replaced
184:bcd2674570bf 185:3d6bfa290dbd
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 (buffer-name buffer) (kill-buffer buffer) nil))))
405 405
406 (provide 'md5) 406 (provide 'md5)