branch: externals/hyperbole
commit f1fa9363e8964a646c7bdf5fca4eae3c99d7b70f
Author: Mats Lidell <mats.lid...@lidells.se>
Commit: GitHub <nore...@github.com>
Matsl rsw silence warnings again (#463)
* Add local let var that was cleaned away earlier
* Fix quote char
* Forward declare vars and functions
---
hib-debbugs.el | 8 +++++---
hyrolo.el | 32 ++++++++++++++++++++++++++++----
2 files changed, 33 insertions(+), 7 deletions(-)
diff --git a/hib-debbugs.el b/hib-debbugs.el
index f649fa8d5e..34d4343919 100644
--- a/hib-debbugs.el
+++ b/hib-debbugs.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 21-Jun-16 at 14:24:53
-;; Last-Mod: 21-Jan-24 at 10:32:46 by Bob Weiner
+;; Last-Mod: 2-Feb-24 at 22:44:22 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -90,8 +90,10 @@
;;; ************************************************************************
(eval-after-load "debbugs-gnu"
- '(progn (push "hyperbole" debbugs-gnu-all-packages)
- (push "oo-browser" debbugs-gnu-all-packages)))
+ '(progn
+ (defvar debbugs-gnu-all-packages)
+ (push "hyperbole" debbugs-gnu-all-packages)
+ (push "oo-browser" debbugs-gnu-all-packages)))
;;; ************************************************************************
;;; Public implicit button types
diff --git a/hyrolo.el b/hyrolo.el
index b675209789..aaf5e884bd 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: 4-Feb-24 at 14:00:36 by Bob Weiner
+;; Last-Mod: 4-Feb-24 at 22:42:01 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -113,10 +113,33 @@
(defvar org-mode-syntax-table) ; "org.el"
(defvar org-outline-regexp) ; "org.el"
(defvar org-outline-regexp-bol) ; "org.el"
-(defvar markdown-regex-header) ; "markdown-mode.el"
(defvar google-contacts-buffer-name) ; "ext:google-contacts.el"
(defvar hbut:source-prefix) ; "hbut.el"
+;; markdown-mode.el
+(defvar markdown-regex-header)
+(defvar markdown-hide-markup)
+(defvar markdown-nested-imenu-heading-index)
+(defvar markdown-indent-function)
+(defvar markdown-make-gfm-checkboxes-buttons)
+(declare-function markdown--edit-indirect-after-commit-function
"ext:markdown-mode")
+(declare-function markdown--indent-region "ext:markdown-mode")
+(declare-function markdown--inhibit-electric-quote "ext:markdown-mode")
+(declare-function markdown-adaptive-fill-function "ext:markdown-mode")
+(declare-function markdown-beginning-of-defun "ext:markdown-mode")
+(declare-function markdown-end-of-defun "ext:markdown-mode")
+(declare-function markdown-fill-forward-paragraph "ext:markdown-mode")
+(declare-function markdown-fill-paragraph "ext:markdown-mode")
+(declare-function markdown-gfm-checkbox-after-change-function
"ext:markdown-mode")
+(declare-function markdown-imenu-create-flat-index "ext:markdown-mode")
+(declare-function markdown-imenu-create-nested-index "ext:markdown-mode")
+(declare-function markdown-line-is-reference-definition-p "ext:markdown-mode")
+(declare-function markdown-live-preview-if-markdown "ext:markdown-mode")
+(declare-function markdown-live-preview-remove-on-kill "ext:markdown-mode")
+(declare-function markdown-make-gfm-checkboxes-buttons "ext:markdown-mode")
+(declare-function markdown-pipe-at-bol-p "ext:markdown-mode")
+(declare-function markdown-remove-gfm-checkbox-overlays "ext:markdown-mode")
+
;; Forward declarations
(defvar hyrolo--wconfig)
(defvar hyrolo-entry-group-number)
@@ -128,6 +151,7 @@
(defvar hyrolo-mode-map)
(defvar hyrolo-mode-prefix-map)
(defvar hyrolo-mode-syntax-table)
+(defvar hyrolo-reveal-ignore-this-command)
;;; ************************************************************************
;;; Public variables
@@ -1560,7 +1584,7 @@ Return number of matching entries found."
(insert "No result.")
(print contacts (get-buffer-create "*contacts-data*"))
(dolist (contact contacts)
- (let* (
+ (let* ((child nil)
(name-value (nth 0 (xml-get-children contact 'gd:name)))
(fullname (xml-node-child-string (nth 0 (xml-get-children
name-value 'gd:fullName))))
(givenname (xml-node-child-string (nth 0 (xml-get-children
name-value 'gd:givenName))))
@@ -2730,7 +2754,7 @@ Entry is inserted before point. The region is between
START to END."
"Return t if any file from `hyrolo-file-list' has an unusable format.
The list of unusable files is displayed in a HyRolo error window
-unless 'hyrolo-boolean-only-flag' is set to t (used for testing).
+unless `hyrolo-boolean-only-flag' is set to t (used for testing).
This will install `markdown-mode' if any Markdown files are specified and the
package is not installed."
