X-Git-Url: http://git.chise.org/gitweb/?p=chise%2Fxemacs-chise.git.1;a=blobdiff_plain;f=lisp%2Fpackage-get.el;h=bbb188687b6988782ba2fa72c0fd03275423f50f;hp=eb395a93276e7cd16b781ad3800c3aaa8ab3f177;hb=762383636a99307282c2d93d26c35c046ec24da1;hpb=e31bfd1501359ce20fe1caf6b913a019318ec83c

diff --git a/lisp/package-get.el b/lisp/package-get.el
index eb395a9..bbb1886 100644
--- a/lisp/package-get.el
+++ b/lisp/package-get.el
@@ -373,7 +373,8 @@ if different."
 	(unless (and location (file-writable-p location))
 	  (setq location package-get-user-index-filename))
 	(when (y-or-n-p (concat "Update package index in " location "? "))
-	  (write-file location))))))
+	  (let ((coding-system-for-write 'binary))
+	    (write-file location)))))))
 
 
 ;;;###autoload
@@ -399,7 +400,7 @@ Unless FORCE-CURRENT is non-nil never try to update the database."
         (save-excursion
           (set-buffer buf)
           (erase-buffer buf)
-          (insert-file-contents-internal db-file)
+          (insert-file-contents-literally db-file)
           (package-get-update-base-from-buffer buf)
 	  (if (file-remote-p db-file)
 	      (package-get-maybe-save-index db-file)))
@@ -844,9 +845,7 @@ successfully installed but errors occurred during initialization, or
       ;; Doing it with XEmacs removes the need for an external md5 program
       (message "Validating checksum for `%s'..." package) (sit-for 0)
       (with-temp-buffer
-	;; What ever happened to i-f-c-literally
-	(let (file-name-handler-alist)
-	  (insert-file-contents-internal full-package-filename))
+	(insert-file-contents-literally full-package-filename)
 	(if (not (string= (md5 (current-buffer))
 			  (package-get-info-prop this-package
 						 'md5sum)))