From: Stefan Kangas <stefankangas@gmail.com>
Date: Mon, 10 Feb 2025 14:28:56 +0000 (+0100)
Subject: ; Add test for my last commit
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b80582f45684df39d483e7cdb7a01af9d220fecd;p=emacs.git

; Add test for my last commit

* test/lisp/help-fns-tests.el (help-fns-test-bug76172): New test.

(cherry picked from commit af528d9ea40d027fa0100578b8b753b1ec3c0432)
---

diff --git a/test/lisp/help-fns-tests.el b/test/lisp/help-fns-tests.el
index 67fc9d96c9c..2429cd73513 100644
--- a/test/lisp/help-fns-tests.el
+++ b/test/lisp/help-fns-tests.el
@@ -85,6 +85,10 @@ Return first line of the output of (describe-function-1 FUNC)."
         (result (help-fns-tests--describe-function 'search-forward-regexp)))
     (should (string-match regexp result))))
 
+(ert-deftest help-fns-test-bug76172 ()
+  "No error when describing `menu-bar-open-mouse'."
+  (should (stringp (help-fns-tests--describe-function 'menu-bar-open-mouse))))
+
 (ert-deftest help-fns-test-dangling-alias ()
   "Make sure we don't burp on bogus aliases."
   (let ((f (make-symbol "bogus-alias")))