diff options
| author | Phil Hagelberg <phil@hagelb.org> | 2011-02-11 20:18:15 -0500 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-02-11 20:18:15 -0500 |
| commit | c6affbdeb9d11bfcd10aa804cb8f4b65baa3cd28 (patch) | |
| tree | bbdbd80c9f52b22133499843f335a9ad5f99bf97 /lisp/emacs-lisp | |
| parent | b5a537954469ab886ba38b930e336e9b110585ac (diff) | |
| download | emacs-c6affbdeb9d11bfcd10aa804cb8f4b65baa3cd28.tar.gz emacs-c6affbdeb9d11bfcd10aa804cb8f4b65baa3cd28.tar.bz2 emacs-c6affbdeb9d11bfcd10aa804cb8f4b65baa3cd28.zip | |
Allow packages to be reinstalled.
* emacs-lisp/package.el (package--write-file-no-coding): Remove EXCL arg.
(package-unpack-single): Don't use it.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/package.el | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index af97bb1bd21..20b6514a02a 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -577,23 +577,22 @@ Otherwise it uses an external `tar' program. (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 |