[elpa] externals/hyperbole b324e50 3/5: Silence a diverse set of warnings (#82)

[ELPA Syncer]

branch: externals/hyperbole
commit b324e50f8a4622fb78a72aa101e451f2aee44949
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>

    Silence a diverse set of warnings (#82)
    
    * Silence a diverse set of warnings
    
    Remove XEmacs functions
    Silence warning for filladapt-mode
    Surpress warnings for free vars
    
    * Do not remove check on popup-mode-menu due to use by InfoDock
---
 ChangeLog         |  5 ++++-
 kotl/kotl-mode.el | 16 +++++++---------
 2 files changed, 11 insertions(+), 10 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 02bf522..7a35937 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,10 @@
 
 2021-05-12  Mats Lidell  <matsl@gnu.org>
 
+* kotl/kotl-mode.el (kotl-mode:backward-paragraph): Remove XEmacs 
zmacs-region-stays.
+    (kotl-mode): Silence warning about unused filladapt-mode and supress
+    warning for free vars.
+
 * hui-treemacs.el (treemacs, treemacs-current-button)
     (treemacs-current-visibility, treemacs-get-local-buffer)
     (treemacs-is-treemacs-window?, treemacs-node-buffer-and-position)
@@ -203,7 +207,6 @@
   hmouse-drv.el (hkey-debug): Send all used vars as params to remove
     dynamic variable binding.
                 (hkey-execute): Update hkey-debug call.
-
 2021-05-05  Mats Lidell  <matsl@gnu.org>
 
 * hui-em-but.el (hproperty:but-flash-time): Mark hproperty:but-flash as 
obsolete.
diff --git a/kotl/kotl-mode.el b/kotl/kotl-mode.el
index 869942d..a5f8db0 100644
--- a/kotl/kotl-mode.el
+++ b/kotl/kotl-mode.el
@@ -74,7 +74,8 @@ It provides the following keys:
   (set-syntax-table text-mode-syntax-table)
   ;; Turn off filladapt minor mode if on, so that it does not interfere with
   ;; the filling code in "kfill.el".
-  (and (fboundp 'filladapt-mode) filladapt-mode (filladapt-mode 0))
+  (when (and (fboundp 'filladapt-mode) (boundp 'filladapt-mode) filladapt-mode)
+    (filladapt-mode 0))
   (if (/= 3 (length (action:params (symbol-function 'fill-paragraph))))
       ;; Some package such as filladapt has overwritten the primitives
       ;; defined in kfill.el, so reload it.
@@ -162,7 +163,8 @@ It provides the following keys:
   ;; We have been converting a buffer from a foreign format to a koutline.
   ;; Now that it is converted, ensure that `kotl-previous-mode' is set to
   ;; koutline.
-  (setq kotl-previous-mode 'kotl-mode)
+  (with-suppressed-warnings ((free-vars kotl-previous-mode))
+    (setq kotl-previous-mode 'kotl-mode))
   ;; Enable Org Table editing minor mode (user can disable via kotl-mode-hook
   ;; if desired).
   (orgtbl-mode 1)
@@ -1362,8 +1364,7 @@ paragraph-separating line.
 
 See `forward-paragraph' for more information."
   (interactive "p")
-  (setq arg (prefix-numeric-value arg)
-       zmacs-region-stays t);; Maintain region highlight for XEmacs.
+  (setq arg (prefix-numeric-value arg))
   (kotl-mode:forward-paragraph (- arg)))
 
 (defalias 'kotl-mode:backward-para 'kotl-mode:backward-paragraph)
@@ -1609,8 +1610,7 @@ A line which `paragraph-start' matches either separates 
paragraphs
 A paragraph end is one character before the beginning of a line which is not
 part of the paragraph, or the end of the buffer."
   (interactive "p")
-  (setq arg (prefix-numeric-value arg)
-       zmacs-region-stays t);; Maintain region highlight for XEmacs.
+  (setq arg (prefix-numeric-value arg))
   (if (< arg 0)
       (progn
        (if (kotl-mode:bocp) (setq arg (1- arg)))
@@ -3069,9 +3069,7 @@ Leave point at end of line now residing at START."
        nil)))
 
 (defun kotl-mode:maintain-region-highlight ()
-  (setq zmacs-region-stays t) ;; Maintain region highlight for XEmacs.
-  (setq transient-mark-mode t) ;; For GNU Emacs
-  )
+  (setq transient-mark-mode t))
 
 ;;; ------------------------------------------------------------------------