[elpa] externals/compat 598a040 69/99: Add :cond check to lookup-key

[ELPA Syncer]

branch: externals/compat
commit 598a040bb0988f5d6cd930fcc1e59ee98703ec6a
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    Add :cond check to lookup-key
---
 compat-27.1.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/compat-27.1.el b/compat-27.1.el
index c55aa77..eab0eb1 100644
--- a/compat-27.1.el
+++ b/compat-27.1.el
@@ -123,6 +123,9 @@ bindings, used when nothing else in the keymap applies; 
this makes it
 usable as a general function for probing keymaps.  However, if the
 third optional argument ACCEPT-DEFAULT is non-nil, `lookup-key' will
 recognize the default bindings, just as `read-key-sequence' does."
+  :cond (condition-case err
+            (lookup-key '(x) nil)
+          (wrong-type-argument (equal err '(keymapp (x)))))
   (cond
    ((keymapp keymap)
     (funcall oldfun keymap key accept-default))