branch: externals/hyperbole
commit e64ab27232e3cb82da174ab22412117d73378ea0
Author: Mats Lidell <mats.lid...@lidells.se>
Commit: GitHub <nore...@github.com>
Diverse changes to silence warnings (#90)
---
ChangeLog | 36 ++++++++++++++++++++++++++++++++++++
hbut.el | 2 ++
hibtypes.el | 5 +++++
hmouse-drv.el | 6 +++++-
hmouse-tag.el | 13 +++++++++++++
hui-dired-sidebar.el | 1 +
hypb.el | 9 +++++++++
hyperbole.el | 5 +++--
hyrolo-menu.el | 8 ++++++++
hyrolo.el | 5 +++++
kotl/kmenu.el | 6 ++++++
11 files changed, 93 insertions(+), 3 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index d471885..246367b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,39 @@
+2021-05-17 Mats Lidell <ma...@gnu.org>
+
+* kotl/kmenu.el (id-menubar-set): Add external dependency.
+
+* hyrolo.el (google-contacts-history, google-contacts-expire-time)
+ (google-contacts-query-string, hproperty:highlight-face): Declare used
+ variables.
+
+* hyrolo-menu.el (id-menubar-set): Add external dependency.
+ (mode-popup-menu): Declare used variable.
+
+* hyperbole.el (autoloads): Surpress warning for obsolete
+ update-directory-autoloads.
+ (hyperb:generate-autoloads): Use recommended hook.
+
+* hypb.el (mh-e-RCS-id, pm-version, vm-version): Declare used variables.
+
+* hui-dired-sidebar.el (dired-sidebar-cycle-subtree-on-click): Declare
+ used variable.
+
+* hmouse-tag.el (python-import-file, python-to-definition)
+ (epc:manager-server-process, java-to-definition)
+ (jedi:-get-servers-in-use, jedi:goto--line-column)
+ (jedi:goto-definition, objc-to-definition): Add external
+ dependencies.
+
+* hmouse-drv.el (aw-dispatch-always): Declare used variable.
+ (mouse-drag-mode-line): Use version dependent mouse drag function.
+
+2021-05-16 Mats Lidell <ma...@gnu.org>
+
+* hibtypes.el (id-cflow-repeated-indicator, cscope-output-line-regexp):
+ Declare used variables.
+
+* hbut.el (hproperty:but-face): Declare used variable.
+
2021-05-16 Stefan Monnier <monn...@iro.umontreal.ca>
* hvar.el: Add lexical binding updates.
diff --git a/hbut.el b/hbut.el
index 6a45796..2e4bc75 100644
--- a/hbut.el
+++ b/hbut.el
@@ -25,6 +25,8 @@
(declare-function www-url "hsys-www" (url))
+(defvar hproperty:but-face)
+
;;; ************************************************************************
;;; Public definitions
;;; ************************************************************************
diff --git a/hibtypes.el b/hibtypes.el
index 934540a..f750b76 100644
--- a/hibtypes.el
+++ b/hibtypes.el
@@ -76,6 +76,7 @@
;;; ************************************************************************
;;; Public declarations
;;; ************************************************************************
+
(declare-function markdown-footnote-goto-text "ext:markdown")
(declare-function markdown-footnote-marker-positions "ext:markdown")
(declare-function markdown-footnote-return "ext:markdown")
@@ -87,6 +88,10 @@
(defvar markdown-regex-link-reference)
(defvar markdown-regex-reference-definition)
+(defvar id-cflow-repeated-indicator)
+
+(defvar cscope-output-line-regexp)
+
;;; ************************************************************************
;;; Public implicit button types
;;; ************************************************************************
diff --git a/hmouse-drv.el b/hmouse-drv.el
index 05e073d..b232dd7 100644
--- a/hmouse-drv.el
+++ b/hmouse-drv.el
@@ -112,6 +112,7 @@ This permits the Smart Keys to behave as paste keys.")
;;; ************************************************************************
;;; Public declarations
;;; ************************************************************************
+
(declare-function br-in-view-window-p "ext:br")
(declare-function br-next-listing-window "ext:br")
(declare-function br-to-view-window "ext:br")
@@ -121,6 +122,7 @@ This permits the Smart Keys to behave as paste keys.")
(declare-function aw-select "ext:ace-window")
(defvar aw-dispatch-alist)
+(defvar aw-dispatch-always)
(defvar aw-frame-size)
(defvar aw-keys)
@@ -831,7 +833,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)
+ (mouse-drag-frame start-event 'move)
+ (mouse-drag-frame-move start-event))))))
(defun hkey-debug (pred pred-value hkey-action)
(message (format "(HyDebug) %sContext: %s; %s: %s; Buf: %s; Mode: %s;
MinibufDepth: %s"
diff --git a/hmouse-tag.el b/hmouse-tag.el
index 24a5061..6694c9d 100644
--- a/hmouse-tag.el
+++ b/hmouse-tag.el
@@ -131,8 +131,21 @@ Keyword matched is grouping 1. Referent is grouping 2.")
;;; ************************************************************************
;;; Public declarations
;;; ************************************************************************
+
(declare-function br-edit "ext:br")
(declare-function br-edit-feature "ext:br-ftr")
+(declare-function python-import-file "ext:br-python-ft")
+(declare-function python-to-definition "ext:br-python-ft")
+
+(declare-function epc:manager-server-process "ext:epc")
+
+(declare-function java-to-definition "ext:br-java-ft")
+
+(declare-function jedi:-get-servers-in-use "ext:jedi-core")
+(declare-function jedi:goto--line-column "ext:jedi-core")
+(declare-function jedi:goto-definition "ext:jedi-core")
+
+(declare-function objc-to-definition "ext:br-objc-ft")
(defvar br-env-spec)
(defvar br-lang-prefix)
diff --git a/hui-dired-sidebar.el b/hui-dired-sidebar.el
index 3edc15c..9ce9704 100644
--- a/hui-dired-sidebar.el
+++ b/hui-dired-sidebar.el
@@ -22,6 +22,7 @@
;;; Public declarations
;;; ************************************************************************
(declare-function dired-sidebar-toggle-sidebar "ext:dired-sidebar")
+(defvar dired-sidebar-cycle-subtree-on-click)
;;; ************************************************************************
;;; smart-dired-sidebar functions
diff --git a/hypb.el b/hypb.el
index 5adcf5d..63af433 100644
--- a/hypb.el
+++ b/hypb.el
@@ -37,6 +37,15 @@ It must end with a space."
:type 'string
:group 'hyperbole-commands)
+
+;;; ************************************************************************
+;;; Public declarations
+;;; ************************************************************************
+
+(defvar mh-e-RCS-id)
+(defvar pm-version)
+(defvar vm-version)
+
;;; ************************************************************************
;;; Public functions
;;; ************************************************************************
diff --git a/hyperbole.el b/hyperbole.el
index 0a6b9f4..83402a6 100644
--- a/hyperbole.el
+++ b/hyperbole.el
@@ -424,7 +424,8 @@ The function does NOT recursively descend into
subdirectories of the
directory or directories specified."
;; Don't use a 'let' on this next line or it will fail.
(setq generated-autoload-file output-file)
- (update-directory-autoloads dir)))
+ (with-suppressed-warnings ((obsolete update-directory-autoloads))
+ (update-directory-autoloads dir))))
;; Before the 6.0.1 release, Hyperbole used to patch the
package-generate-autoloads
;; function to ensure that kotl/ subdirectories were autoloaded. This
@@ -680,7 +681,7 @@ This is used only when running from git source and not a
package release."
"Renerate Hyperbole *-autoloads.el files whether they already exist or not."
(let* ((default-directory hyperb:dir)
(backup-inhibited t)
- (find-file-hooks) ;; Prevent header insertion
+ (find-file-hook) ;; Prevent header insertion
(al-file (expand-file-name "hyperbole-autoloads.el")))
;; (make-local-variable 'generated-autoload-file)
(with-current-buffer (find-file-noselect al-file)
diff --git a/hyrolo-menu.el b/hyrolo-menu.el
index 874dbe5..665da4f 100644
--- a/hyrolo-menu.el
+++ b/hyrolo-menu.el
@@ -110,6 +110,14 @@
))
;;; ************************************************************************
+;;; Public declarations
+;;; ************************************************************************
+
+(declare-function id-menubar-set "ext:infodock")
+
+(defvar mode-popup-menu)
+
+;;; ************************************************************************
;;; Public functions
;;; ************************************************************************
diff --git a/hyrolo.el b/hyrolo.el
index cedff85..98b3cf6 100644
--- a/hyrolo.el
+++ b/hyrolo.el
@@ -82,9 +82,14 @@ executable must be found as well (for Oauth security)."
(declare-function google-contacts-oauth-token "ext:google-contacts")
(declare-function xml-node-child-string "ext:google-contacts")
(declare-function xml-node-get-attribute-type "ext:google-contacts")
+(defvar google-contacts-history)
+(defvar google-contacts-expire-time)
+(defvar google-contacts-query-string)
(declare-function hyrolo-fgrep-logical "hyrolo-logic")
+(defvar hproperty:highlight-face)
+
(defun hyrolo-google-contacts-p ()
"Return non-nil if `hyrolo-google-contacts-flag' is non-nil and
google-contacts package and gpg executables are available for use."
(and hyrolo-google-contacts-flag
diff --git a/kotl/kmenu.el b/kotl/kmenu.el
index 4f0e80c..202b9b3 100644
--- a/kotl/kmenu.el
+++ b/kotl/kmenu.el
@@ -19,6 +19,12 @@
(require 'easymenu)
;;; ************************************************************************
+;;; Public declarations
+;;; ************************************************************************
+
+(declare-function id-menubar-set "ext:infodock")
+
+;;; ************************************************************************
;;; Public variables
;;; ************************************************************************
