[elpa] externals/pinentry 3b6383e 14/18: Suppress redundant Pinentry startup messages

[Stefan Monnier]

branch: externals/pinentry
commit 3b6383e7246186ea2bb14b87851f32ad23640e62
Author: Daiki Ueno <ueno@gnu.org>
Commit: Daiki Ueno <ueno@gnu.org>

    Suppress redundant Pinentry startup messages
    
    * pinentry.el (pinentry-start): Add optional QUIET
    argument.
---
 pinentry.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/pinentry.el b/pinentry.el
index eaa9fa4..0037006 100644
--- a/pinentry.el
+++ b/pinentry.el
@@ -151,16 +151,20 @@ If local sockets are not supported, this is nil.")
       (apply query-function (concat desc "\n" prompt) query-args))))
 
 ;;;###autoload
-(defun pinentry-start ()
+(defun pinentry-start (&optional quiet)
   "Start a Pinentry service.
 
 Once the environment is properly set, subsequent invocations of
-the gpg command will interact with Emacs for passphrase input."
+the gpg command will interact with Emacs for passphrase input.
+
+If the optional QUIET argument is non-nil, messages at startup
+will not be shown."
   (interactive)
   (unless (featurep 'make-network-process '(:family local))
     (error "local sockets are not supported"))
   (if (process-live-p pinentry--server-process)
-      (message "Pinentry service is already running")
+      (unless quiet
+        (message "Pinentry service is already running"))
     (let* ((server-file (expand-file-name "pinentry" pinentry--socket-dir)))
       (server-ensure-safe-dir pinentry--socket-dir)
       ;; Delete the socket files made by previous server invocations.