[elpa] externals/hyperbole 812e64c045: Fix use of functions (#286)

[ELPA Syncer]

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

    Fix use of functions (#286)
---
 ChangeLog     | 14 ++++++++++++++
 hmouse-drv.el |  6 ++++--
 hmouse-tag.el |  3 ++-
 hsettings.el  |  1 +
 hsmail.el     |  4 ++--
 hui-mouse.el  | 17 ++++++-----------
 hypb.el       |  8 ++++++--
 hyrolo.el     | 10 +++++++---
 8 files changed, 42 insertions(+), 21 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 03f689ebbd..a1584f9471 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,17 @@
+2023-01-15 Mats Lidell  <matsl@gnu.org>
+
+* hsmail.el: Remove #-mark for symbol check.
+
+* hui-mouse.el: Merge public declaration sections.
+
+* hypb.el:
+* hyrolo.el: Declare functions, remove #-mark for symbol checks.
+
+* hsettings.el (hproperty:but-flash): Declare function.
+
+* hmouse-drv.el (mouse-drag-mode-line): Use mouse-drag-frame-move from
+    Emacs 28.
+
 2023-01-08  Bob Weiner  <rsw@gnu.org>
 
 * hmouse-tag.el (xref--item-at-point): Fix this function (still broken
diff --git a/hmouse-drv.el b/hmouse-drv.el
index 212456de8d..df12ce8d4b 100644
--- a/hmouse-drv.el
+++ b/hmouse-drv.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    04-Feb-90
-;; Last-Mod:     21-Nov-22 at 18:34:46 by Bob Weiner
+;; Last-Mod:     15-Jan-23 at 17:08:53 by Mats Lidell
 ;;
 ;; Copyright (C) 1989-2021  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -864,7 +864,9 @@ frame instead."
      ((and (frame-parameter frame 'drag-with-mode-line)
            (window-at-side-p window 'bottom))
       ;; Drag frame when the window is on the bottom of its frame.
-      (mouse-drag-frame start-event 'move)))))
+      (if (fboundp 'mouse-drag-frame-move) ;; From Emacs 28
+          (mouse-drag-frame-move start-event)
+        (mouse-drag-frame start-event 'move))))))
 
 (defun hkey-debug (pred pred-value hkey-action)
   (message "(HyDebug) %sContext: %s; %s: %s; Buf: %s; Mode: %s; MinibufDepth: 
%s"
diff --git a/hmouse-tag.el b/hmouse-tag.el
index 3df2de10d4..7d31e429f7 100644
--- a/hmouse-tag.el
+++ b/hmouse-tag.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    24-Aug-91
-;; Last-Mod:      8-Jan-23 at 13:02:53 by Bob Weiner
+;; Last-Mod:     15-Jan-23 at 16:56:07 by Mats Lidell
 ;;
 ;; Copyright (C) 1991-2022  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -159,6 +159,7 @@ Keyword matched is grouping 1.  Referent is grouping 2.")
 (defvar br-lang-prefix)
 (defvar buffer-tag-table)
 (defvar jedi-mode)
+(defvar jedi:find-file-function) ;; FIXME: RSW customization?
 (defvar java-class-def-name-grpn)
 (defvar java-class-def-regexp)
 
diff --git a/hsettings.el b/hsettings.el
index ba4e028c40..4b353882bf 100644
--- a/hsettings.el
+++ b/hsettings.el
@@ -32,6 +32,7 @@
 ;;; Public declarations
 ;;; ************************************************************************
 (declare-function hproperty:but-create "hui-em-but")
+(declare-function hproperty:but-flash "hui-em-but")
 
 (defvar helm-allow-mouse)
 
diff --git a/hsmail.el b/hsmail.el
index 090aa71fcd..8e684cf918 100644
--- a/hsmail.el
+++ b/hsmail.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:     9-May-91 at 04:50:20
-;; Last-Mod:      7-Oct-22 at 23:52:10 by Mats Lidell
+;; Last-Mod:     16-Oct-22 at 00:30:39 by Mats Lidell
 ;;
 ;; Copyright (C) 1991-2022  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -69,7 +69,7 @@ message.  If not given, `smail:comment' is evaluated by 
default."
 
 (defun smail:widen ()
   "Widens outgoing mail buffer to include Hyperbole button data."
-  (if (fboundp #'mail+narrow) (mail+narrow) (widen)))
+  (if (fboundp 'mail+narrow) (mail+narrow) (widen)))
 
 ;; Redefine this function from "message.el" to include Hyperbole button
 ;; data when yanking in a message and to highlight buttons if possible.
diff --git a/hui-mouse.el b/hui-mouse.el
index 86e3232edf..1b6e48bf57 100644
--- a/hui-mouse.el
+++ b/hui-mouse.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:    04-Feb-89
-;; Last-Mod:      3-Dec-22 at 00:21:51 by Bob Weiner
+;; Last-Mod:     15-Jan-23 at 20:35:52 by Mats Lidell
 ;;
 ;; Copyright (C) 1991-2022  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -49,11 +49,6 @@
 
 (eval-when-compile (require 'tar-mode))
 
-;;; ************************************************************************
-;;; Public declarations
-;;; ************************************************************************
-(defvar magit-root-section)
-
 ;;; ************************************************************************
 ;;; Public variables
 ;;; ************************************************************************
@@ -128,6 +123,8 @@ Its default value is `smart-scroll-down'.  To disable it, 
set it to
 (declare-function magit-section-cycle-global "etx:magit-selection")
 (declare-function magit-section-hide "etx:magit-selection")
 (declare-function magit-section-show "etx:magit-selection")
+(defvar magit-root-section)
+(defvar magit-display-buffer-function)
 
 (declare-function -flatten "ext:dash")
 
@@ -139,7 +136,6 @@ Its default value is `smart-scroll-down'.  To disable it, 
set it to
 
 (declare-function helm-action-window "ext:helm-lib")
 (declare-function helm-buffer-get "ext:helm-lib")
-;; (declare-function helm-get-current-action "ext:helm-?")
 (declare-function helm-get-selection "ext:helm")
 (declare-function helm-mark-current-line "ext:helm")
 (declare-function helm-next-line "ext:helm")
@@ -166,11 +162,10 @@ Its default value is `smart-scroll-down'.  To disable it, 
set it to
 (declare-function gnus-topic-read-group "gnus-topic")
 
 (declare-function company-show-doc-buffer "ext:company")
-;; (declare-function company-quick-help-manual-begin "ext:company?")
+(declare-function company-quickhelp-manual-begin "ext:company-quickhelp")
 (declare-function company-show-location "ext:company")
 (declare-function company-select-mouse "ext:company")
 
-
 ;;; ************************************************************************
 ;;; Hyperbole context-sensitive keys dispatch table
 ;;; ************************************************************************
@@ -557,7 +552,7 @@ smart keyboard keys.")
       (while (and (< start len) (setq part (string-match "/[^/]*" path start)))
        (setq part (concat ref
                           (substring path start (setq start (match-end 0))))
-             ref (symlink-referent part)))
+             ref (symlink-referent part))) ;; FIXME - Where is this function 
defined
       ref)))
 
 ;;; ************************************************************************
@@ -1549,7 +1544,7 @@ If key is pressed:
   (interactive)
   (if (last-line-p)
       (scroll-other-window)
-    (unix-apropos-get-man)))
+    (unix-apropos-get-man)))            ;; FIXME - Deprecated?
 
 (defun smart-apropos-assist ()
   "Move through UNIX man apropos listings by using assist-key or mouse 
assist-key.
diff --git a/hypb.el b/hypb.el
index ec476648f9..f51de655cc 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:     28-Nov-22 at 00:18:49 by Bob Weiner
+;; Last-Mod:     10-Dec-22 at 00:52:04 by Mats Lidell
 ;;
 ;; Copyright (C) 1991-2022  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -47,6 +47,10 @@ It must end with a space."
 (defvar pm-version)
 (defvar vm-version)
 
+(declare-function helm-info "ext:helm")
+(declare-function helm-apropos "ext:helm")
+(declare-function devdocs-lookup "ext:devdocs")
+
 ;;; ************************************************************************
 ;;; Public functions
 ;;; ************************************************************************
@@ -823,7 +827,7 @@ descriptors."
 The package info is a property list of package-name,
 package-download-source and package-version for PKG-STRING, else
 return nil.  This is for the straight.el package manager."
-  (when (fboundp #'straight-bug-report-package-info)
+  (when (fboundp 'straight-bug-report-package-info)
     (car (delq nil (mapcar (lambda (pkg-plist)
                             (when (equal (plist-get pkg-plist :package) 
pkg-string) pkg-plist))
                           (straight-bug-report-package-info))))))
diff --git a/hyrolo.el b/hyrolo.el
index fa26d7dfa5..5121607e22 100644
--- a/hyrolo.el
+++ b/hyrolo.el
@@ -3,7 +3,7 @@
 ;; Author:       Bob Weiner
 ;;
 ;; Orig-Date:     7-Jun-89 at 22:08:29
-;; Last-Mod:      3-Dec-22 at 17:06:18 by Bob Weiner
+;; Last-Mod:     15-Jan-23 at 16:55:37 by Mats Lidell
 ;;
 ;; Copyright (C) 1991-2022  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
@@ -45,6 +45,10 @@
 (defvar org-roam-directory)
 (defvar org-roam-db-autosync-mode)
 (defvar markdown-regex-header)
+(declare-function org-roam-db-autosync-mode "ext:org-roam")
+(declare-function helm-org-rifle-show-full-contents "ext:helm-org-rifle")
+(declare-function helm-org-rifle-org-directory "ext:helm-org-rifle")
+(declare-function helm-org-rifle-files "ext:helm-org-rifle")
 
 ;;; ************************************************************************
 ;;; Public variables
@@ -304,7 +308,7 @@ entry which begins with the parent string."
                                                      (save-excursion
                                                        (re-search-forward 
hyrolo-entry-name-regexp nil t)
                                                        (point))))
-         (when (and (eq major-mode #'markdown-mode)
+         (when (and (eq major-mode 'markdown-mode)
                     (string-match "\\`.*#+" entry-spc))
            (setq entry-spc (substring entry-spc (length (match-string 0 
entry-spc)))))
          (cond ((string-lessp entry name)
@@ -1291,7 +1295,7 @@ OPTIONAL prefix arg, MAX-MATCHES, limits the number of 
matches
 returned to the number given."
   (interactive "sFind Org Roam directory string (or logical sexpression): \nP")
   (unless (package-installed-p 'org-roam)
-    (package-install #'org-roam))
+    (package-install 'org-roam))
   (require 'org-roam)
   (unless (file-readable-p org-roam-directory)
     (make-directory org-roam-directory))