diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 7cae8d68bc0..d27b6b73eee 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -2961,23 +2961,26 @@ describe-package-1 (cdr (assq name package-archive-contents)) (let ((bi (assq name package--builtins))) (if bi (list (package--from-builtin bi)))))) - (other-pkgs (delete desc all-pkgs))) + (other-pkgs (delete desc all-pkgs)) + (commit (alist-get :commit (package-desc-extras desc)))) (when other-pkgs (package--print-help-section "Other versions" (mapconcat (lambda (opkg) (let* ((ov (package-desc-version opkg)) (dir (package-desc-dir opkg)) (from (or (package-desc-archive opkg) - (if (stringp dir) "installed" dir)))) + (if (stringp dir) "installed" dir))) + (ocommit (alist-get :commit (package-desc-extras opkg)))) (if (not ov) (format "%s" from) - (format "%s (%s)" + (format "%s (%s%s)" (make-text-button (package-version-join ov) nil 'font-lock-face 'link 'follow-link t 'action (lambda (_button) (describe-package opkg))) - from)))) + from + (if (equal ocommit commit) "" ", COMMIT MISMATCH!"))))) other-pkgs ", ") ".")))