scratch/shortdoc a1c5bc3: Build fix and mark more string functions as not being in the manual

[Lars Ingebrigtsen]

branch: scratch/shortdoc
commit a1c5bc39f3fa97edeed2593a784bdbb2aed8c39d
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Build fix and mark more string functions as not being in the manual
---
 lisp/emacs-lisp/shortdoc.el | 11 ++++++++---
 lisp/help-fns.el            |  4 ++++
 2 files changed, 12 insertions(+), 3 deletions(-)

diff --git a/lisp/emacs-lisp/shortdoc.el b/lisp/emacs-lisp/shortdoc.el
index 5e6f6fd..497ff26 100644
--- a/lisp/emacs-lisp/shortdoc.el
+++ b/lisp/emacs-lisp/shortdoc.el
@@ -25,6 +25,7 @@
 ;;; Code:
 
 (require 'macroexp)
+(require 'seq)
 (eval-when-compile (require 'cl-lib))
 
 (defgroup shortdoc nil
@@ -37,7 +38,7 @@
                :background "#303030" :extend t))
     (((class color) (background light))
      (:inherit variable-pitch
-               :background "#c0c0c0" :extend t)))
+               :background "#d0d0d0" :extend t)))
   "Face used for a section.")
 
 (defface shortdoc-example
@@ -88,6 +89,7 @@ There can be any number of :example/:result elements."
   (concat
    :example (concat "foo" "bar" "zot"))
   (string-join
+   :no-manual t
    :example (string-join '("foo" "bar" "zot") " "))
   (mapconcat
    :example (mapconcat (lambda (a) (concat "[" a "]"))
@@ -116,10 +118,13 @@ There can be any number of :example/:result elements."
    :no-manual t
    :example (string-trim-right "barkss" "s+"))
   (string-truncate-left
+   :no-manual t
    :example (string-truncate-left "longstring" 8))
   (string-remove-suffix
+   :no-manual t
    :example (string-remove-suffix "bar" "foobar"))
   (string-remove-prefix
+   :no-manual t
    :example (string-remove-prefix "foo" "foobar"))
   (reverse
    :example (reverse "foo"))
@@ -132,8 +137,10 @@ There can be any number of :example/:result elements."
    :example "(stringp ?a)"
    :result t)
   (string-empty-p
+   :no-manual t
    :example (string-empty-p ""))
   (string-blank-p
+   :no-manual t
    :example (string-blank-p " \n"))
   (string-lessp
    :example (string-lessp "foo" "bar"))
@@ -415,7 +422,6 @@ There can be any number of :example/:result elements."
   (process-live-p
    :example-no-result (process-live-p process)))
 
-;;;###autoload
 (defun shortdoc-display-group (group)
   "Pop to a buffer and display short documentation for functions in GROUP."
   (unless (assq group shortdoc--groups)
@@ -485,7 +491,6 @@ There can be any number of :example/:result elements."
       (put-text-property start (point) 'face 'shortdoc-example))
     (insert "\n")))
 
-;;;###autoload
 (defun shortdoc-function-groups (function)
   "Return all shortdoc groups FUNCTION appears in."
   (cl-loop for group in shortdoc--groups
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index f3b46f3..8a8d88c 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -659,9 +659,13 @@ FILE is the file where FUNCTION was probably defined."
         (insert (format "  Probably introduced at or before Emacs version 
%s.\n"
                         first))))))
 
+(declare-function shortdoc-display-group "shortdoc")
+(declare-function shortdoc-function-groups "shortdoc")
+
 (add-hook 'help-fns-describe-function-functions
           #'help-fns--mention-shortdoc-groups)
 (defun help-fns--mention-shortdoc-groups (object)
+  (require 'shortdoc)
   (mapc
    (lambda (group)
      (with-current-buffer standard-output