[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 3ccbda7: package.el (package--append-to-alist): Ren
From: |
Artur Malabarba |
Subject: |
[Emacs-diffs] master 3ccbda7: package.el (package--append-to-alist): Renamed from `add-to-alist' |
Date: |
Sun, 18 Jan 2015 12:13:37 +0000 |
branch: master
commit 3ccbda730d654949b774a7ff99a759957991cb5c
Author: Artur Malabarba <address@hidden>
Commit: Artur Malabarba <address@hidden>
package.el (package--append-to-alist): Renamed from `add-to-alist'
---
lisp/ChangeLog | 5 +++++
lisp/emacs-lisp/package.el | 6 +++---
2 files changed, 8 insertions(+), 3 deletions(-)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 680adc7..07c873d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2015-01-18 Artur Malabarba <address@hidden>
+
+ * emacs-lisp/package.el (package--append-to-alist): Renamed from
+ `package--add-to-alist'
+
2015-01-18 Leo Liu <address@hidden>
* emacs-lisp/cl-extra.el (cl-subseq): Use seq-subseq and fix
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el
index 4be3b58..07ddddd 100644
--- a/lisp/emacs-lisp/package.el
+++ b/lisp/emacs-lisp/package.el
@@ -1154,9 +1154,9 @@ Also, add the originating archive to the `package-desc'
structure."
(when (not (and pinned-to-archive
(not (equal (cdr pinned-to-archive) archive))))
(setq package-archive-contents
- (package--add-to-alist pkg-desc package-archive-contents)))))
+ (package--append-to-alist pkg-desc package-archive-contents)))))
-(defun package--add-to-alist (pkg-desc alist)
+(defun package--append-to-alist (pkg-desc alist)
"Add PKG-DESC to ALIST.
Packages are grouped by name. The package descriptions are sorted
@@ -2100,7 +2100,7 @@ If optional arg BUTTON is non-nil, describe its
associated package."
(cond ((member status '("installed" "unsigned"))
(push pkg-desc installed))
((member status '("available" "new"))
- (setq available (package--add-to-alist pkg-desc available))))))
+ (setq available (package--append-to-alist pkg-desc
available))))))
;; Loop through list of installed packages, finding upgrades.
(dolist (pkg-desc installed)
(let* ((name (package-desc-name pkg-desc))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 3ccbda7: package.el (package--append-to-alist): Renamed from `add-to-alist',
Artur Malabarba <=