[elpa] externals/hyperbole 00f41cfb67 1/3: Remove compiler warnings (#390)

[ELPA Syncer]

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

    Remove compiler warnings (#390)
---
 hbut.el           | 3 ++-
 hmouse-drv.el     | 4 ++--
 hui-mouse.el      | 9 ++++++++-
 hui.el            | 4 ++--
 kotl/kotl-mode.el | 3 ++-
 5 files changed, 16 insertions(+), 7 deletions(-)

diff --git a/hbut.el b/hbut.el
index 988c463591..21da7be4b7 100644
--- a/hbut.el
+++ b/hbut.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    18-Sep-91 at 02:57:09
-;; Last-Mod:      3-Oct-23 at 17:26:52 by Mats Lidell
+;; Last-Mod:      4-Oct-23 at 20:00:02 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -52,6 +52,7 @@ Use the function, (hbut:max-len), to read the proper value.")
 (declare-function hpath:substitute-var "hpath")
 (declare-function hpath:symlink-referent "hpath")
 (declare-function hpath:www-p "hpath")
+(declare-function hpath:shorten "hpath")
 (declare-function hsys-org-block-start-at-p "hsys-org")
 (declare-function hsys-org-src-block-start-at-p "hsys-org")
 (declare-function hui:buf-writable-err "hui")
diff --git a/hmouse-drv.el b/hmouse-drv.el
index 9e7847fa89..42a5996c6d 100644
--- a/hmouse-drv.el
+++ b/hmouse-drv.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    04-Feb-90
-;; Last-Mod:      3-Oct-23 at 23:22:38 by Mats Lidell
+;; Last-Mod:      4-Oct-23 at 20:04:08 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -652,7 +652,7 @@ RELEASE-WINDOW is interactively selected via the 
`ace-window' command.
 The selected window does not change.
 
 With no prefix argument, create an explicit button.
-With a C-u '(4) prefix argument, create an unnamed implicit button.
+With a C-u \\='(4) prefix argument, create an unnamed implicit button.
 With a M-1 prefix argument, create an named implicit button."
   (interactive
    (list (let ((mode-line-text (concat " Ace - Hyperbole: " (nth 2 (assq ?w 
aw-dispatch-alist)))))
diff --git a/hui-mouse.el b/hui-mouse.el
index 3211c727f8..1d69879ef2 100644
--- a/hui-mouse.el
+++ b/hui-mouse.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    04-Feb-89
-;; Last-Mod:      3-Oct-23 at 22:56:59 by Mats Lidell
+;; Last-Mod:      6-Oct-23 at 16:13:42 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -48,6 +48,8 @@
 (unless (fboundp 'smart-c-at-tag-p)
   (require 'hmouse-tag))
 (require 'imenu)
+(eval-when-compile
+  (require 'eieio))
 
 (eval-when-compile (require 'tar-mode))
 
@@ -1532,6 +1534,11 @@ If assist-key is pressed:
               (magit-section-cycle-global)
             (smart-magit-display-file (key-binding (kbd "RET"))))))))
 
+;; Silence compiler about unknown slot. From eieio-tests.el
+(eval-when-compile
+  (dolist (slot '(content washer hidden start))
+    (cl-pushnew slot eieio--known-slot-names)))
+
 ;; Thanks to Jonas Bernoulli <tarsius>, magit author, for most of this
 ;; next function.
 ;; Usage: (define-key magit-section-mode-map "TAB" 'smart-magit-tab)
diff --git a/hui.el b/hui.el
index 8e3ed8a8bc..92a5b59d7a 100644
--- a/hui.el
+++ b/hui.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    19-Sep-91 at 21:42:03
-;; Last-Mod:      3-Oct-23 at 23:02:02 by Mats Lidell
+;; Last-Mod:      4-Oct-23 at 20:07:50 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -1291,7 +1291,7 @@ drag from a window to another window's modeline."
       ;; single C-u prefix argument.  In such a case, don't use the
       ;; prefix argument as a flag to prompt for the ibutton name as
       ;; we want to just insert the appropriate ibut without any prompting.
-      (when (and name-arg-flag (not (eq name-arg-flag '(4))) (not name-key))
+      (when (and name-arg-flag (not (equal name-arg-flag '(4))) (not name-key))
        (setq but-name (hui:hbut-label
                        (cond ((hmouse-prior-active-region)
                               hkey-region)
diff --git a/kotl/kotl-mode.el b/kotl/kotl-mode.el
index 8f4263f15b..bada2b8d77 100644
--- a/kotl/kotl-mode.el
+++ b/kotl/kotl-mode.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    6/30/93
-;; Last-Mod:      4-Oct-23 at 19:10:12 by Mats Lidell
+;; Last-Mod:      6-Oct-23 at 23:15:03 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -29,6 +29,7 @@
 (defvar cmpl-last-insert-location)
 (defvar cmpl-original-string)
 (defvar completion-to-accept)
+(defvar mwheel-scroll-down-function)    ; "mwheel"
 
 (declare-function outline-invisible-in-p "hyperbole")