[elpa] externals/compat 1a53971919 5/8: Abbreviate doc-string for lookup-key advice

[ELPA Syncer]

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

    Abbreviate doc-string for lookup-key advice
---
 compat-27.1.el | 16 +---------------
 1 file changed, 1 insertion(+), 15 deletions(-)

diff --git a/compat-27.1.el b/compat-27.1.el
index 8a44f396c1..b23b63406c 100644
--- a/compat-27.1.el
+++ b/compat-27.1.el
@@ -108,21 +108,7 @@ Letter-case is significant, but text properties are 
ignored."
 ;;;; Defined in keymap.c
 
 (compat-advise lookup-key (keymap key &optional accept-default)
-  "Look up key sequence KEY in KEYMAP.  Return the definition.
-A value of nil means undefined.  See doc of `define-key'
-for kinds of definitions.
-
-A number as value means KEY is \"too long\"; that is, characters
-or symbols in it except for the last one fail to be a valid
-sequence of prefix characters in KEYMAP.  The number is how many
-characters at the front of KEY it takes to reach a non-prefix
-key.  KEYMAP can also be a list of keymaps.
-
-Normally, `lookup-key' ignores bindings for t, which act as default
-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."
+  "Allow for KEYMAP to be a list of keymaps."
   :cond (condition-case err
             (lookup-key '(x) nil)
           (wrong-type-argument (equal err '(keymapp (x)))))