[elpa] externals/compat f820d79689: compat-29: Use when-let

[ELPA Syncer]

branch: externals/compat
commit f820d796897ff564abd4d7830a71d060e82d5021
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    compat-29: Use when-let
---
 compat-29.el | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/compat-29.el b/compat-29.el
index 6250a896e5..80588e0910 100644
--- a/compat-29.el
+++ b/compat-29.el
@@ -776,9 +776,8 @@ The binding is probably a symbol with a function definition.
 If optional argument ACCEPT-DEFAULT is non-nil, recognize default
 bindings; see the description of `keymap-lookup' for more details
 about this."
-  (let ((map (current-local-map)))
-    (when map
-      (keymap-lookup map keys accept-default))))
+  (when-let ((map (current-local-map)))
+    (keymap-lookup map keys accept-default)))
 
 (compat-defun keymap-global-lookup (keys &optional accept-default _message) ;; 
<UNTESTED>
   "Return the binding for command KEYS in current global keymap only.