projects
/
chise
/
xemacs-chise.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add `===shuowen-jiguge-A30' characters.
[chise/xemacs-chise.git]
/
lisp
/
package-info.el
diff --git
a/lisp/package-info.el
b/lisp/package-info.el
index
4a9aa2c
..
7428f49
100644
(file)
--- a/
lisp/package-info.el
+++ b/
lisp/package-info.el
@@
-2,7
+2,7
@@
;; Copyright (C) 1998 by Free Software Foundation, Inc.
;; Copyright (C) 1998 by Free Software Foundation, Inc.
-;; Author: SL Baur <steve@altair.xemacs.org>
+;; Author: SL Baur <steve@xemacs.org>
;; Keywords: internal
;; This file is part of XEmacs.
;; Keywords: internal
;; This file is part of XEmacs.
@@
-48,12
+48,11
@@
; (setq result (md5 (current-buffer))))
; result))
; (setq result (md5 (current-buffer))))
; result))
+;;; APA: Stolen from package-get in package-get.el
(defun pi-md5sum (file)
(with-temp-buffer
(defun pi-md5sum (file)
(with-temp-buffer
- (call-process "md5sum" file t)
- (goto-char (point-min))
- (looking-at "[a-z0-9]+")
- (buffer-substring (match-beginning 0) (match-end 0))))
+ (insert-file-contents-literally file)
+ (md5 (current-buffer))))
(defun pi-update-key (key value)
(save-excursion
(defun pi-update-key (key value)
(save-excursion
@@
-95,7
+94,8
@@
author-version -- The original Author's version #.
maintainer -- The package maintainer.
category -- The build category."
(unless noninteractive
maintainer -- The package maintainer.
category -- The build category."
(unless noninteractive
- (error "`batch-update-package-info' is to be used only with -batch"))
+ (error 'invalid-operation
+ "`batch-update-package-info' is to be used only with -batch"))
(let ((version (nth 0 command-line-args-left))
(filename (nth 1 command-line-args-left))
(requires (nth 2 command-line-args-left))
(let ((version (nth 0 command-line-args-left))
(filename (nth 1 command-line-args-left))
(requires (nth 2 command-line-args-left))