diff options
| author | Bastien Guerry | 2014-01-07 11:58:03 +0100 |
|---|---|---|
| committer | Bastien Guerry | 2014-01-07 11:58:03 +0100 |
| commit | 2b6b4f204c819569734c092532d56da85eef503b (patch) | |
| tree | 9d8c9f1b8b1d5a34e23735b1ab55bf4c773cfa2c | |
| parent | e9be0a138c07b93576c07c7fe7c94defee9adfc6 (diff) | |
| download | emacs-2b6b4f204c819569734c092532d56da85eef503b.tar.gz emacs-2b6b4f204c819569734c092532d56da85eef503b.zip | |
emacs-lisp/package.el (package-delete): Delete package completely
* emacs-lisp/package.el (package-delete): Also delete the package
name from `package-alist', not its description only.
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/package.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 9f0a7e5c715..99287618548 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2014-01-07 Bastien Guerry <bzg@gnu.org> | ||
| 2 | |||
| 3 | * emacs-lisp/package.el (package-delete): Also delete the package | ||
| 4 | name from `package-alist', not its description only. | ||
| 5 | |||
| 1 | 2014-01-07 Glenn Morris <rgm@gnu.org> | 6 | 2014-01-07 Glenn Morris <rgm@gnu.org> |
| 2 | 7 | ||
| 3 | * help.el (view-external-packages): | 8 | * help.el (view-external-packages): |
diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 39fbc55ad4f..15dba461d2d 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el | |||
| @@ -1231,7 +1231,7 @@ The file can either be a tar file or an Emacs Lisp file." | |||
| 1231 | (delete-file signed-file))) | 1231 | (delete-file signed-file))) |
| 1232 | ;; Update package-alist. | 1232 | ;; Update package-alist. |
| 1233 | (let* ((name (package-desc-name pkg-desc))) | 1233 | (let* ((name (package-desc-name pkg-desc))) |
| 1234 | (delete pkg-desc (assq name package-alist))) | 1234 | (delete (delete pkg-desc (assq name package-alist)) package-alist)) |
| 1235 | (message "Package `%s' deleted." (package-desc-full-name pkg-desc))))) | 1235 | (message "Package `%s' deleted." (package-desc-full-name pkg-desc))))) |
| 1236 | 1236 | ||
| 1237 | (defun package-archive-base (desc) | 1237 | (defun package-archive-base (desc) |