[elpa] externals/taxy e275270 3/6: Fix: (taxy.el) Hide shortdoc-related warnings in Emacs <28

[ELPA Syncer]

branch: externals/taxy
commit e27527048ca2d31aa985f776b27c172a5213c202
Author: Adam Porter <adam@alphapapa.net>
Commit: Adam Porter <adam@alphapapa.net>

    Fix: (taxy.el) Hide shortdoc-related warnings in Emacs <28
---
 taxy.el | 132 +++++++++++++++++++++++++++++++++-------------------------------
 1 file changed, 68 insertions(+), 64 deletions(-)

diff --git a/taxy.el b/taxy.el
index 8aa3362..df7b1d5 100644
--- a/taxy.el
+++ b/taxy.el
@@ -361,75 +361,79 @@ defined with a definer defined by 
`taxy-define-key-definer')."
 
 ;;;; Documentation group
 
-;; Available in Emacs 28.
+;; Available in Emacs 28.  NOTE: In earlier Emacs versions,
+;; byte-compiling this section will produce warnings due to the
+;; shortdoc forms that appear to be function calls.
 
 (eval-when-compile
   (require 'shortdoc nil t))
 
 (when (require 'shortdoc nil t)
-  (define-short-documentation-group taxy
-    (taxy-flatten
-     :eval (taxy-flatten
-            (make-taxy
-             :items '(a b c)
-             :taxys (list (make-taxy
-                           :items '(d e f))))))
-    (taxy-emptied
-     :eval (taxy-emptied
-            (make-taxy
-             :items '(a b c)
-             :taxys (list (make-taxy
-                           :items '(d e f))))))
-    (taxy-fill
-     :eval (taxy-fill '(0 1 2 3)
-                      (make-taxy
-                       :name "Numbers"
-                       :taxys (list (make-taxy
-                                     :name "Odd"
-                                     :predicate #'cl-oddp)
-                                    (make-taxy
-                                     :name "Even"
-                                     :predicate #'cl-evenp)))))
-    (taxy-make-take-function
-     :eval (taxy-make-take-function
-            '(first-char second-char)
-            '((first-char (lambda (s) (substring s nil 1)))
-              (second-char (lambda (s) (substring s 1 2))))))
-    (taxy-mapc-taxys
-      :eval (taxy-mapc-taxys
-              (lambda (taxy)
-                (setf (taxy-name taxy) (upcase (taxy-name taxy))))
-              (make-taxy :name "a" :taxys (list (make-taxy :name "b")))))
-    (taxy-mapcar-items
-      :eval (taxy-mapcar-items #'upcase
-              (make-taxy :items (list "a" "b" "c")
-                         :taxys (list (make-taxy :items (list "d" "e" "f"))))))
-    (taxy-plain
-     :eval (taxy-plain
-            (taxy-fill '(0 1 2 3)
-                       (make-taxy
-                        :name "Numbers"
-                        :taxys (list (make-taxy
-                                      :name "Odd"
-                                      :predicate #'cl-oddp)
-                                     (make-taxy
-                                      :name "Even"
-                                      :predicate #'cl-evenp))))))
-    (taxy-size
-     :eval (taxy-size
-            (make-taxy
-             :items '(a b c)
-             :taxys (list (make-taxy
-                           :items '(d e f))))))
-    (taxy-sort-items
-      :eval (taxy-sort-items #'string< #'identity
-              (make-taxy :items (list "c" "b" "a")
-                         :taxys (list (make-taxy :items (list "f" "e" "d"))))))
-    (taxy-sort-taxys
-      :eval (taxy-sort-taxys #'string< #'taxy-name
-              (make-taxy :name "Taxy"
-                         :taxys (list (make-taxy :name "Beta")
-                                      (make-taxy :name "Alpha")))))))
+  (with-no-warnings
+    ;; TODO: Remove `with-no-warnings' when requiring Emacs 28+.
+    (define-short-documentation-group taxy
+      (taxy-flatten
+       :eval (taxy-flatten
+              (make-taxy
+               :items '(a b c)
+               :taxys (list (make-taxy
+                             :items '(d e f))))))
+      (taxy-emptied
+       :eval (taxy-emptied
+              (make-taxy
+               :items '(a b c)
+               :taxys (list (make-taxy
+                             :items '(d e f))))))
+      (taxy-fill
+       :eval (taxy-fill '(0 1 2 3)
+                        (make-taxy
+                         :name "Numbers"
+                         :taxys (list (make-taxy
+                                       :name "Odd"
+                                       :predicate #'cl-oddp)
+                                      (make-taxy
+                                       :name "Even"
+                                       :predicate #'cl-evenp)))))
+      (taxy-make-take-function
+       :eval (taxy-make-take-function
+              '(first-char second-char)
+              '((first-char (lambda (s) (substring s nil 1)))
+                (second-char (lambda (s) (substring s 1 2))))))
+      (taxy-mapc-taxys
+        :eval (taxy-mapc-taxys
+                (lambda (taxy)
+                  (setf (taxy-name taxy) (upcase (taxy-name taxy))))
+                (make-taxy :name "a" :taxys (list (make-taxy :name "b")))))
+      (taxy-mapcar-items
+        :eval (taxy-mapcar-items #'upcase
+                (make-taxy :items (list "a" "b" "c")
+                           :taxys (list (make-taxy :items (list "d" "e" 
"f"))))))
+      (taxy-plain
+       :eval (taxy-plain
+              (taxy-fill '(0 1 2 3)
+                         (make-taxy
+                          :name "Numbers"
+                          :taxys (list (make-taxy
+                                        :name "Odd"
+                                        :predicate #'cl-oddp)
+                                       (make-taxy
+                                        :name "Even"
+                                        :predicate #'cl-evenp))))))
+      (taxy-size
+       :eval (taxy-size
+              (make-taxy
+               :items '(a b c)
+               :taxys (list (make-taxy
+                             :items '(d e f))))))
+      (taxy-sort-items
+        :eval (taxy-sort-items #'string< #'identity
+                (make-taxy :items (list "c" "b" "a")
+                           :taxys (list (make-taxy :items (list "f" "e" 
"d"))))))
+      (taxy-sort-taxys
+        :eval (taxy-sort-taxys #'string< #'taxy-name
+                (make-taxy :name "Taxy"
+                           :taxys (list (make-taxy :name "Beta")
+                                        (make-taxy :name "Alpha"))))))))
 
 ;;;; Footer