diff options
Diffstat (limited to 'app-emacs/md5/files')
| -rw-r--r-- | app-emacs/md5/files/90md5-gentoo.el | 4 | ||||
| -rw-r--r-- | app-emacs/md5/files/digest-md5-1.0-r1 | 1 | ||||
| -rw-r--r-- | app-emacs/md5/files/md5-1.0-gentoo.patch | 84 |
3 files changed, 89 insertions, 0 deletions
diff --git a/app-emacs/md5/files/90md5-gentoo.el b/app-emacs/md5/files/90md5-gentoo.el new file mode 100644 index 000000000000..dc4da50f2280 --- /dev/null +++ b/app-emacs/md5/files/90md5-gentoo.el @@ -0,0 +1,4 @@ + +;;; site-lisp configuration for md5 + +(add-to-list 'load-path "@SITELISP@") diff --git a/app-emacs/md5/files/digest-md5-1.0-r1 b/app-emacs/md5/files/digest-md5-1.0-r1 new file mode 100644 index 000000000000..57785d7633ba --- /dev/null +++ b/app-emacs/md5/files/digest-md5-1.0-r1 @@ -0,0 +1 @@ +MD5 a1439b60e379ebfe279b4e32ebd06b37 md5-1.0.tar.gz 5736 diff --git a/app-emacs/md5/files/md5-1.0-gentoo.patch b/app-emacs/md5/files/md5-1.0-gentoo.patch new file mode 100644 index 000000000000..467d54ef2af3 --- /dev/null +++ b/app-emacs/md5/files/md5-1.0-gentoo.patch @@ -0,0 +1,84 @@ +diff -ur md5-1.0/md5.el md5-1.0.orig/md5.el +--- md5-1.0/md5.el 2003-11-21 23:59:30.000000000 -0600 ++++ md5-1.0.orig/md5.el 2003-12-21 23:59:40.839985880 -0600 +@@ -368,39 +368,44 @@ + ;;; Here begins the merger with the XEmacs API and the md5.el from the URL + ;;; package. Courtesy wmperry@cs.indiana.edu + ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +-(defun md5 (object &optional start end) +- "Return the MD5 (a secure message digest algorithm) of an object. +-OBJECT is either a string or a buffer. +-Optional arguments START and END denote buffer positions for computing the +-hash of a portion of OBJECT." +- (let ((buffer nil)) +- (unwind-protect +- (save-excursion +- (setq buffer (generate-new-buffer " *md5-work*")) +- (set-buffer buffer) +- (cond +- ((bufferp object) +- (insert-buffer-substring object start end)) +- ((stringp object) +- (insert (if (or start end) +- (substring object start end) +- object))) +- (t nil)) +- (prog1 +- (if (<= (point-max) md5-maximum-internal-length) +- (mapconcat +- (function (lambda (node) (format "%02x" node))) +- (md5-encode (buffer-string)) +- "") +- (call-process-region (point-min) (point-max) +- shell-file-name +- t buffer nil +- shell-command-switch md5-program) +- ;; MD5 digest is 32 chars long +- ;; mddriver adds a newline to make neaten output for tty +- ;; viewing, make sure we leave it behind. +- (buffer-substring (point-min) (+ (point-min) 32))) +- (kill-buffer buffer))) +- (and buffer (buffer-name buffer) (kill-buffer buffer) nil)))) + +-(provide 'md5) ++;; Emacs 21.3 already defines this function. ++ ++;; (defun md5 (object &optional start end) ++;; "Return the MD5 (a secure message digest algorithm) of an object. ++;; OBJECT is either a string or a buffer. ++;; Optional arguments START and END denote buffer positions for computing the ++;; hash of a portion of OBJECT." ++;; (let ((buffer nil)) ++;; (unwind-protect ++;; (save-excursion ++;; (setq buffer (generate-new-buffer " *md5-work*")) ++;; (set-buffer buffer) ++;; (cond ++;; ((bufferp object) ++;; (insert-buffer-substring object start end)) ++;; ((stringp object) ++;; (insert (if (or start end) ++;; (substring object start end) ++;; object))) ++;; (t nil)) ++;; (prog1 ++;; (if (<= (point-max) md5-maximum-internal-length) ++;; (mapconcat ++;; (function (lambda (node) (format "%02x" node))) ++;; (md5-encode (buffer-string)) ++;; "") ++;; (call-process-region (point-min) (point-max) ++;; shell-file-name ++;; t buffer nil ++;; shell-command-switch md5-program) ++;; ;; MD5 digest is 32 chars long ++;; ;; mddriver adds a newline to make neaten output for tty ++;; ;; viewing, make sure we leave it behind. ++;; (buffer-substring (point-min) (+ (point-min) 32))) ++;; (kill-buffer buffer))) ++;; (and buffer (buffer-name buffer) (kill-buffer buffer) nil)))) ++ ++;; An md5 module is already provided by FLIM. ++ ++(provide 'md5-digest) +Only in md5-1.0.orig: md5.el~ |