From 0c31ea113fe2cfdc8bd332929c188b6d4b32f3db Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Sun, 18 Jan 2026 19:10:39 +0100 Subject: [PATCH] Improve type of user option 'package-review-policy' * lisp/emacs-lisp/package.el (package-review-policy): Move tags to the cons-cell level, so that the labels are displayed in the menu when inserting a new item. --- lisp/emacs-lisp/package.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index 63b7c208741..758fdf199cf 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -683,8 +683,8 @@ SYMBOL) will review packages whose names match SYMBOL. If you prefix the list with a symbol `not', the rules are inverted." :type (let ((choice '(choice :tag "Review specific packages or archives" - (cons (const archive) (string :tag "Archive name")) - (cons (const package) (symbol :tag "Package name"))))) + (cons :tag "Archive name" (const archive) string) + (cons :tag "Package name" (const package) symbol)))) `(choice (const :tag "Review all packages" t) (repeat :tag "Review these specific packages and archives" ,choice)