package-recipe-read-name: Accept optional PROMPT argument

melpa · Dec 26, 2024 · 23fd04c · 23fd04c
1 parent 59af407
commit 23fd04c
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/package-recipe.el b/package-recipe.el
@@ -122,9 +122,9 @@
   "Return a list of the names of packages with available recipes."
   (directory-files package-build-recipes-dir nil "^[^.]"))
 
-(defun package-recipe-read-name ()
+(defun package-recipe-read-name (&optional prompt)
   "Read the name of a package for which a recipe is available."
-  (completing-read "Package: " (package-recipe-recipes)))
+  (completing-read (or prompt "Package: ") (package-recipe-recipes)))
 
 (defun package-recipe-lookup (name)
   "Return a recipe object for the package named NAME.