[elpa] externals/pinentry a6441224da 2/2: Fix byte-compile warnings in Emacs 29

[ELPA Syncer]

branch: externals/pinentry
commit a6441224da04656370e993e2616185cc31afaff9
Author: Ulrich Müller <u...@gentoo.org>
Commit: Daiki Ueno <u...@gnu.org>

    Fix byte-compile warnings in Emacs 29
    
    Drop cl-lib which was needed only for cl-letf.
---
 pinentry.el | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/pinentry.el b/pinentry.el
index 14f6aa031f..a954eefc3f 100644
--- a/pinentry.el
+++ b/pinentry.el
@@ -49,8 +49,6 @@
 
 ;;; Code:
 
-(eval-when-compile (require 'cl-lib))
-
 (defgroup pinentry nil
   "The Pinentry server"
   :version "25.1"
@@ -92,7 +90,7 @@ If local sockets are not supported, this is nil.")
 
 ;; These error codes are defined in libgpg-error/src/err-codes.h.in.
 (defmacro pinentry--error-code (code)
-  (logior (lsh 5 24) code))
+  (logior (ash 5 24) code))
 (defconst pinentry--error-not-implemented
   (cons (pinentry--error-code 69) "not implemented"))
 (defconst pinentry--error-cancelled
@@ -174,7 +172,7 @@ will not be shown."
       (ignore-errors
         (let (delete-by-moving-to-trash)
           (delete-file server-file)))
-      (cl-letf (((default-file-modes) ?\700))
+      (with-file-modes ?\700
         (setq pinentry--server-process
               (make-network-process
                :name "pinentry"