From: Juri Linkov <juri@linkov.net>
Date: Fri, 15 Oct 2021 06:58:29 +0000 (+0300)
Subject: * lisp/menu-bar.el (yank-menu-length): Fix docstring (bug#51138).
X-Git-Tag: emacs-28.0.90~287
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=12654b74236b914f571f173689b0ac87247d0f24;p=emacs.git

* lisp/menu-bar.el (yank-menu-length): Fix docstring (bug#51138).
---

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 03bbc979a9c..2b759a5a5c5 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -823,7 +823,7 @@ Returns a list of the form (REAL-FUNCTION DEF ALIASED REAL-DEF)."
                            ;; Advised & aliased function.
                            (and advised (symbolp real-function)
                                 (not (eq 'autoload (car-safe def))))
-                           (and (subrp def)
+                           (and (subrp def) (symbolp function)
                                 (not (string= (subr-name def)
                                               (symbol-name function)))))))
 	 (real-def (cond
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el
index b2577c085fc..1cc126b5017 100644
--- a/lisp/menu-bar.el
+++ b/lisp/menu-bar.el
@@ -2159,7 +2159,7 @@ otherwise it could decide to silently do nothing."
     (> count 1)))
 
 (defcustom yank-menu-length 20
-  "Maximum length to display in the `yank-menu'."
+  "Text of items in `yank-menu' longer than this will be truncated."
   :type 'integer
   :group 'menu)