[Emacs-diffs] /srv/bzr/emacs/trunk r103229: Allow packages to be reinstalled.

[Chong Yidong]

------------------------------------------------------------
revno: 103229
author: Phil Hagelberg <address@hidden>
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Fri 2011-02-11 20:18:15 -0500
message:
  Allow packages to be reinstalled.
  
  * emacs-lisp/package.el (package--write-file-no-coding): Remove EXCL arg.
  (package-unpack-single): Don't use it.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/package.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-02-12 01:12:53 +0000
+++ b/lisp/ChangeLog    2011-02-12 01:18:15 +0000
@@ -1,3 +1,9 @@
+2011-02-12  Phil Hagelberg  <address@hidden>
+
+       * emacs-lisp/package.el: Allow packages to be reinstalled.
+       (package--write-file-no-coding): Remove EXCL arg.
+       (package-unpack-single): Don't use it.
+
 2011-02-12  Karl Pflästerer  <address@hidden>  (tiny change)
 
        * vc/vc-svn.el: Adapt to Subversion change, with no .svn directory

=== modified file 'lisp/emacs-lisp/package.el'
--- a/lisp/emacs-lisp/package.el        2011-02-02 17:59:44 +0000
+++ b/lisp/emacs-lisp/package.el        2011-02-12 01:18:15 +0000
@@ -577,23 +577,22 @@
       (let ((load-path (cons pkg-dir load-path)))
        (byte-recompile-directory pkg-dir 0 t)))))
 
-(defun package--write-file-no-coding (file-name excl)
+(defun package--write-file-no-coding (file-name)
   (let ((buffer-file-coding-system 'no-conversion))
-    (write-region (point-min) (point-max) file-name nil nil nil excl)))
+    (write-region (point-min) (point-max) file-name)))
 
 (defun package-unpack-single (file-name version desc requires)
   "Install the contents of the current buffer as a package."
   ;; Special case "package".
   (if (string= file-name "package")
       (package--write-file-no-coding
-       (expand-file-name (concat file-name ".el") package-user-dir)
-       nil)
+       (expand-file-name (concat file-name ".el") package-user-dir))
     (let* ((pkg-dir  (expand-file-name (concat file-name "-" version)
                                       package-user-dir))
           (el-file  (expand-file-name (concat file-name ".el") pkg-dir))
           (pkg-file (expand-file-name (concat file-name "-pkg.el") pkg-dir)))
       (make-directory pkg-dir t)
-      (package--write-file-no-coding el-file 'excl)
+      (package--write-file-no-coding el-file)
       (let ((print-level nil)
            (print-length nil))
        (write-region