[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole 3bb91af97b: Remove some warnings (#306)
From: |
ELPA Syncer |
Subject: |
[elpa] externals/hyperbole 3bb91af97b: Remove some warnings (#306) |
Date: |
Mon, 13 Feb 2023 18:57:44 -0500 (EST) |
branch: externals/hyperbole
commit 3bb91af97bde4636fdaf2b3b805ac10ac3feb6e3
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>
Remove some warnings (#306)
---
ChangeLog | 8 ++++++++
hversion.el | 4 ++--
hyrolo.el | 4 ++--
kotl/kexport.el | 4 ++--
4 files changed, 14 insertions(+), 6 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index e89651468c..de96e001f4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2023-02-13 Mats Lidell <matsl@gnu.org>
+
+* hversion.el (id-info-item): Use two args with looking-back.
+
+* hyrolo.el (hyrolo-kill): Set unused lexical var to _level-len
+
+* kotl/kexport.el (kexport:html): Remove unused lexical var is-collapsible.
+
2023-02-12 Bob Weiner <rsw@gnu.org>
* hibtypes.el (grep-msg): Fix problem where filename match includes trailing
line
diff --git a/hversion.el b/hversion.el
index e526d3c338..a052bc3645 100644
--- a/hversion.el
+++ b/hversion.el
@@ -4,7 +4,7 @@
;; Maintainer: Bob Weiner, Mats Lidell
;;
;; Orig-Date: 1-Jan-94
-;; Last-Mod: 4-Dec-22 at 03:57:42 by Bob Weiner
+;; Last-Mod: 12-Feb-23 at 22:40:12 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -202,7 +202,7 @@ support is available."
;; after the non-indented item definition line. If
;; so, move back a line.
(when (and (looking-at "^[ \t]")
- (looking-back "^[^ \t].*[\n\r]+"))
+ (looking-back "^[^ \t].*[\n\r]+" nil))
(forward-line -1))
(recenter 0))
(error "(id-info-item): Invalid Info index item: `%s'"
index-item)))
diff --git a/hyrolo.el b/hyrolo.el
index a95ca85707..3fa329c202 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: 12-Feb-23 at 23:13:31 by Bob Weiner
+;; Last-Mod: 14-Feb-23 at 00:01:58 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -675,7 +675,7 @@ Return t if entry is killed, nil otherwise."
(setq file buffer-file-name)
(if (file-writable-p file)
(let ((kill-op
- (lambda (start level-len)
+ (lambda (start _level-len)
(kill-region
start (hyrolo-to-entry-end t))
(setq killed t)
diff --git a/kotl/kexport.el b/kotl/kexport.el
index b06aa94159..c32a06cf4f 100644
--- a/kotl/kexport.el
+++ b/kotl/kexport.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 26-Feb-98
-;; Last-Mod: 5-Feb-23 at 22:45:12 by Mats Lidell
+;; Last-Mod: 12-Feb-23 at 22:15:49 by Mats Lidell
;;
;; SPDX-License-Identifier: GPL-3.0-or-later
;;
@@ -462,7 +462,7 @@ used. Also converts Urls and Klinks into Html hyperlinks.
">" ">"
(replace-regexp-in-string
"<" "<" (kview:label-separator kview))))
- i is-parent is-collapsible is-last-sibling no-sibling-stack
level label contents)
+ i is-parent is-last-sibling no-sibling-stack level label
contents)
(kview:map-tree
(lambda (_kview)
(setq level (kcell-view:level)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/hyperbole 3bb91af97b: Remove some warnings (#306),
ELPA Syncer <=