[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master be6dbd4 1/6: * emacs-lisp/package.el (package--read
From: |
Artur Malabarba |
Subject: |
[Emacs-diffs] master be6dbd4 1/6: * emacs-lisp/package.el (package--read-pkg-desc): New function. |
Date: |
Sat, 17 Jan 2015 00:26:42 +0000 |
branch: master
commit be6dbd4b1ea00be1d63121cdc05d61424129a6ba
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
* emacs-lisp/package.el (package--read-pkg-desc): New function.
Read a `define-package' form in current buffer. Return the pkg-desc,
with desc-kind set to KIND.
---
lisp/ChangeLog | 6 ++++++
lisp/emacs-lisp/package.el | 26 ++++++++++++++++----------
2 files changed, 22 insertions(+), 10 deletions(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c80f8f7..93796e6 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2015-01-16 Artur Malabarba <address@hidden>
+
+ * emacs-lisp/package.el (package--read-pkg-desc): New
+ function. Read a `define-package' form in current buffer. Return
+ the pkg-desc, with desc-kind set to KIND.
+
2015-01-16 Jorgen Schaefer <address@hidden>
* emacs-lisp/package.el: Provide repository priorities.
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 5336271..d590667 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1277,19 +1277,25 @@ The return result is a `package-desc'."
(unless tar-desc
(error "No package descriptor file found"))
(with-current-buffer (tar--extract tar-desc)
- (goto-char (point-min))
(unwind-protect
- (let* ((pkg-def-parsed (read (current-buffer)))
- (pkg-desc
- (if (not (eq (car pkg-def-parsed) 'define-package))
- (error "Can't find define-package in %s"
- (tar-header-name tar-desc))
- (apply #'package-desc-from-define
- (append (cdr pkg-def-parsed))))))
- (setf (package-desc-kind pkg-desc) 'tar)
- pkg-desc)
+ (package--read-pkg-desc 'tar)
(kill-buffer (current-buffer))))))
+(defun package--read-pkg-desc (kind)
+ "Read a `define-package' form in current buffer.
+Return the pkg-desc, with desc-kind set to KIND."
+ (goto-char (point-min))
+ (unwind-protect
+ (let* ((pkg-def-parsed (read (current-buffer)))
+ (pkg-desc
+ (if (not (eq (car pkg-def-parsed) 'define-package))
+ (error "Can't find define-package in %s"
+ (tar-header-name tar-desc))
+ (apply #'package-desc-from-define
+ (append (cdr pkg-def-parsed))))))
+ (setf (package-desc-kind pkg-desc) kind)
+ pkg-desc)))
+
;;;###autoload
(defun package-install-from-buffer ()
- [Emacs-diffs] master updated (69f36af -> a2cd6d9), Artur Malabarba, 2015/01/16
- [Emacs-diffs] master be6dbd4 1/6: * emacs-lisp/package.el (package--read-pkg-desc): New function.,
Artur Malabarba <=
- [Emacs-diffs] master 2fe6110 2/6: * emacs-lisp/package.el (package-dir-info): New function., Artur Malabarba, 2015/01/16
- [Emacs-diffs] master bc2f8d0 3/6: (package-install-from-buffer): Install packages from dired buffer., Artur Malabarba, 2015/01/16
- [Emacs-diffs] master 40d963f 5/6: * NEWS: Document installing packages from directories., Artur Malabarba, 2015/01/16
- [Emacs-diffs] master 64fd1a5 4/6: (package-install-file): Install packages from directory., Artur Malabarba, 2015/01/16
- [Emacs-diffs] master a2cd6d9 6/6: emacs-lisp/package.el and package-x.el: References to package-desc-kind, Artur Malabarba, 2015/01/16