Check for visual wrap mode before attempting to activate

The following case can occur:  A user records an expression with one mode
active.  On a later Emacs version or another user's Emacs, they have a diffent
version of `visual-wrap' that contains or does not contain the same functions.
These two modes do the equivalent thing.  We do support the upgrade path, from
adaptive-wrap-prefix mode to visual-wrap-prefix-mode, but not visa versa.

Author: psionic-k

NEWS.org

@@ -4,9 +4,11 @@
 
 #+select_tags: latest
 #+export_file_name: RELEASE.md
-#+options: toc:nil broken-links:nil num:nil
 
-* V0.6.1 Stabilizing 🤡 :latest:
+* v0.6.2 Insecticide 🐛 :latest:
+- Better checks for ~visual-wrap-prefix-mode~
+- Avoid warnings for faces
+* v0.6.1 Stabilizing 🤡
 We are beginning to tag releases.  It's almost ready.  It should be ready, but in case it is not, don't /just/ blame me.  File issues.
 ** Added 🦙
 - ~moc-frame-text-scale-mode~ and related commands

moc.el

@@ -4,7 +4,7 @@
 
 ;; Author: Positron Solutions <contact@positron.solutions>
 ;; Keywords: convenience, outline
-;; Version: 0.6.1
+;; Version: 0.6.2
 ;; Package-Requires: ((emacs "29.4") (hide-mode-line "1.0.3") (transient "0.7.2"))
 ;; Homepage: http://github.com/positron-solutions/moc
 
@@ -1028,14 +1028,20 @@ another window will likely leave something to be desired."
                  (setq moc--focus-margin-left margin-cols)
                  (setq moc--focus-margin-right margin-cols))
                (visual-line-mode 1)
-               (when (member 'adaptive-wrap-prefix-mode continuation)
-                 (if (require 'visual-wrap nil t)
-                     (visual-wrap-prefix-mode 1)
-                   (when (fboundp 'adaptive-wrap-prefix-mode)
-                     (adaptive-wrap-prefix-mode 1))))
-               (when (member 'visual-wrap-prefix-mode continuation)
+               (when (seq-intersection continuation '(visual-wrap-prefix-mode
+                                                      adaptive-wrap-prefix-mode))
                  (when (require 'visual-wrap nil t)
-                   (visual-wrap-prefix-mode 1))))
+                   (cond ((fboundp 'visual-wrap-prefix-mode)
+                          (visual-wrap-prefix-mode 1))
+                         ((fboundp 'adaptive-wrap-prefix-mode)
+                          (adaptive-wrap-prefix-mode 1))
+                         (t
+                          (display-warning
+                           '(moc moc-focus moc-focus-visual)
+                           (format
+                            "Could not activate all continuations: %s"
+                            continuation)
+                           :warning))))))
               (t
                (let ((margin-cols (1- (floor (/ margin-left
                                                 (frame-char-width))))))