; 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 67fc9d96c9cd0c83bf3d7d11bf599a0f898af516..2429cd73513c94166fc893cdbbf81ae96e060038 100644 (file)
--- 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")))