From: Chong Yidong Date: Sun, 6 May 2012 04:05:43 +0000 (+0800) Subject: * emacs-lisp/package.el (package-built-in-p): Handle `emacs' package. X-Git-Tag: emacs-24.0.97~27 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=25f292cd48febec5f9b133db922b3b0dc32185c3;p=emacs.git * emacs-lisp/package.el (package-built-in-p): Handle `emacs' package. Fixes: debbugs:11410 --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2442582114d..ad22a25cfd7 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2012-05-06 Chong Yidong + + * emacs-lisp/package.el (package-built-in-p): Handle the `emacs' + package (Bug#11410). + 2012-05-05 Chong Yidong * emacs-lisp/package.el (package-buffer-info): Avoid putting local diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 73afdb82509..4ed8aacf0b6 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -469,8 +469,11 @@ NAME and VERSION are both strings." Optional arg MIN-VERSION, if non-nil, should be a version list specifying the minimum acceptable version." (require 'finder-inf nil t) ; For `package--builtins'. - (let ((elt (assq package package--builtins))) - (and elt (version-list-<= min-version (package-desc-vers (cdr elt)))))) + (if (eq package 'emacs) + (version-list-<= min-version (version-to-list emacs-version)) + (let ((elt (assq package package--builtins))) + (and elt (version-list-<= min-version + (package-desc-vers (cdr elt))))))) ;; This function goes ahead and activates a newer version of a package ;; if an older one was already activated. This is not ideal; we'd at