[elpa] externals/hyperbole 74ad94b114: Silence byte compilation warnings for interaction-log (#298)

[ELPA Syncer]

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

    Silence byte compilation warnings for interaction-log (#298)
---
 ChangeLog |  6 ++++++
 hypb.el   | 29 ++++++++++++++++++++++++-----
 2 files changed, 30 insertions(+), 5 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 35113e2102..20005090ac 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2023-01-22  Mats Lidell  <matsl@gnu.org>
+
+* hypb.el: Add variable and function declarations for package
+    interaction-log to silence byte compilation warnings.
+    (hypb:activate-interaction-log-mode): Use cl-pushnew.
+
 2023-01-20  Mats Lidell  <matsl@gnu.org>
 
 * Remove docstring warnings.
diff --git a/hypb.el b/hypb.el
index f51de655cc..912d87cd8b 100644
--- a/hypb.el
+++ b/hypb.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:     6-Oct-91 at 03:42:38
-;; Last-Mod:     10-Dec-22 at 00:52:04 by Mats Lidell
+;; Last-Mod:     22-Jan-23 at 16:57:36 by Mats Lidell
 ;;
 ;; Copyright (C) 1991-2022  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -17,7 +17,7 @@
 ;;; Other required Elisp libraries
 ;;; ************************************************************************
 
-(eval-and-compile (mapc #'require '(compile hversion hact locate)))
+(eval-and-compile (mapc #'require '(compile hversion hact locate cl-lib)))
 
 ;;; ************************************************************************
 ;;; Public variables
@@ -51,6 +51,26 @@ It must end with a space."
 (declare-function helm-apropos "ext:helm")
 (declare-function devdocs-lookup "ext:devdocs")
 
+;; interaction-log
+(defvar ilog-buffer-name)
+(defvar ilog-display-state)
+(defvar ilog-idle-time)
+(defvar ilog-insertion-timer)
+(defvar ilog-print-lambdas)
+(defvar ilog-self-insert-command-regexps)
+(defvar ilog-truncation-timer)
+(defvar interaction-log-mode)
+(defvar interaction-log-mode-hook)
+
+(declare-function ilog-note-buffer-change "ext:interaction-log")
+(declare-function ilog-post-command "ext:interaction-log")
+(declare-function ilog-record-this-command "ext:interaction-log")
+(declare-function ilog-show-in-other-frame "ext:interaction-log")
+(declare-function ilog-timer-function "ext:interaction-log")
+(declare-function ilog-toggle-view "ext:interaction-log")
+(declare-function ilog-truncate-log-buffer "ext:interaction-log")
+(declare-function interaction-log-mode "ext:interaction-log")
+
 ;;; ************************************************************************
 ;;; Public functions
 ;;; ************************************************************************
@@ -78,7 +98,7 @@ This displays a clean log of Emacs keys used and commands 
executed."
   (setq ilog-print-lambdas 'not-compiled)
 
   ;; Omit display of some lower-level Hyperbole commands for cleaner logs
-  (mapc (lambda (cmd-str) (pushnew (format "^%s$" cmd-str) 
ilog-self-insert-command-regexps))
+  (mapc (lambda (cmd-str) (cl-pushnew (format "^%s$" cmd-str) 
ilog-self-insert-command-regexps))
         '("hyperbole" "hui:menu-enter"))
 
   ;; Redefine the mode to display commands on post-command-hook rather
@@ -99,8 +119,7 @@ This displays a clean log of Emacs keys used and commands 
executed."
          (setq ilog-truncation-timer (run-at-time 30 30 
#'ilog-truncate-log-buffer))
          (setq ilog-insertion-timer (run-with-timer ilog-idle-time 
ilog-idle-time
                                                     #'ilog-timer-function))
-         (message "Interaction Log: started logging in %s" ilog-buffer-name)
-         (easy-menu-add ilog-minor-mode-menu))
+         (message "Interaction Log: started logging in %s" ilog-buffer-name))
       (remove-hook 'after-change-functions #'ilog-note-buffer-change)
       (remove-hook 'post-command-hook      #'ilog-record-this-command)
       (remove-hook 'post-command-hook      #'ilog-post-command)