Subject: Re: bug#52969: Shortdoc "string" group leads to backtrace

From: Stefan Kangas <[email-masked]>
Date: Mon, 3 Jan 2022 13:56:06 -0500

Stefan Kangas <[email-masked]> writes:

> On master, emacs -Q:
>
>     M-x shortdoc-display-group RET string RET

BTW, I will be happy to push this test once we can fix this bug:
From 5c213aaec4bf536e2e7ff6e9656e645de43da2f1 Mon Sep 17 00:00:00 2001
From: Stefan Kangas <[email-masked]>
Date: Mon, 3 Jan 2022 19:44:06 +0100
Subject: [PATCH] New test shortdoc-all-groups-work

* test/lisp/emacs-lisp/shortdoc-tests.el
(shortdoc-all-groups-work): New test.  See Bug#52969.
---
 test/lisp/emacs-lisp/shortdoc-tests.el | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/test/lisp/emacs-lisp/shortdoc-tests.el b/test/lisp/emacs-lisp/shortdoc-tests.el
index 1c4125e301..326d43eead 100644
--- a/test/lisp/emacs-lisp/shortdoc-tests.el
+++ b/test/lisp/emacs-lisp/shortdoc-tests.el
@@ -44,6 +44,14 @@ shortdoc-examples
                 (should (shortdoc-tests--tree-contains expr fun))))
             (setq props (cddr props))))))))
 
+(ert-deftest shortdoc-all-groups-work ()
+  "Test that all defined shortdoc groups display correctly."
+  (dolist (group (mapcar (lambda (x) (car x)) shortdoc--groups))
+    (unwind-protect
+        (shortdoc-display-group group)
+      (when-let ((buf (get-buffer (format "*Shortdoc %s*" group))))
+        (kill-buffer buf)))))
+
 (provide 'shortdoc-tests)
 
 ;;; shortdoc-tests.el ends here
-- 
2.30.2