Fix error when trying to recommend setopt

* lisp/help-fns.el (help--recommend-setopt): Don't assume that
variable-documentation stores only strings.  (Bug#76994)

(cherry picked from commit 8298bbada4fdef9415c552e691d2d4791d0e51ca)

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index d700bbda856e9a1664e8a2156c893394b2ae242e..9d978a4572dcf109101010f1e98d97f8e6bce78d 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -893,7 +893,8 @@ the C sources, too."
   (when (and (get symbol 'custom-set)
              ;; Don't override manually written documentation.
              (not (string-match (rx word-start "setopt" word-end)
-                                (get symbol 'variable-documentation))))
+                                (documentation-property
+                                 symbol 'variable-documentation))))
     ;; FIXME: `princ` removes text properties added by s-c-k.
     (princ (substitute-command-keys "\
 Setting this variable with `setq' has no effect; use either `setopt'