Mercurial > hg > xemacs-beta

comparison lisp/package-info.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 3ecd8885ac67
children 44de306310b8
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
46 ; (insert-file-contents-literally file)) 46 ; (insert-file-contents-literally file))
47 ; ;; (write-file "/tmp/x.x") 47 ; ;; (write-file "/tmp/x.x")
48 ; (setq result (md5 (current-buffer)))) 48 ; (setq result (md5 (current-buffer))))
49 ; result)) 49 ; result))
50 50
51 ;;; APA: Stolen from package-get in package-get.el
51 (defun pi-md5sum (file) 52 (defun pi-md5sum (file)
52 (with-temp-buffer 53 (with-temp-buffer
53 (call-process "md5sum" file t) 54 (insert-file-contents-literally file)
54 (goto-char (point-min)) 55 (md5 (current-buffer))))
55 (looking-at "[a-z0-9]+")
56 (buffer-substring (match-beginning 0) (match-end 0))))
57 56
58 (defun pi-update-key (key value) 57 (defun pi-update-key (key value)
59 (save-excursion 58 (save-excursion
60 (goto-char (point-min)) 59 (goto-char (point-min))
61 (let ((case-fold-search nil)) 60 (let ((case-fold-search nil))