Mercurial > hg > xemacs-beta

comparison lisp/package-info.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 972bbb6d6ca2
children 74fd4e045ea6
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
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
52 (defun pi-md5sum (file) 51 (defun pi-md5sum (file)
53 (with-temp-buffer 52 (with-temp-buffer
54 (insert-file-contents-literally file) 53 (call-process "md5sum" file t)
55 (md5 (current-buffer)))) 54 (goto-char (point-min))
55 (looking-at "[a-z0-9]+")
56 (buffer-substring (match-beginning 0) (match-end 0))))
56 57
57 (defun pi-update-key (key value) 58 (defun pi-update-key (key value)
58 (save-excursion 59 (save-excursion
59 (goto-char (point-min)) 60 (goto-char (point-min))
60 (let ((case-fold-search nil)) 61 (let ((case-fold-search nil))