[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole c806779f85 3/5: Merge branch 'master' of hype
From: |
ELPA Syncer |
Subject: |
[elpa] externals/hyperbole c806779f85 3/5: Merge branch 'master' of hyperbole |
Date: |
Sat, 12 Feb 2022 17:57:33 -0500 (EST) |
branch: externals/hyperbole
commit c806779f85cbe923f4f7ab78266748e40fb24cf4
Merge: 465419940e fccc4175b5
Author: Kathy <rsw@gnu.org>
Commit: Kathy <rsw@gnu.org>
Merge branch 'master' of hyperbole
---
ChangeLog | 5 +++++
hbut.el | 11 +++++------
2 files changed, 10 insertions(+), 6 deletions(-)
diff --git a/ChangeLog b/ChangeLog
index 183b88f955..eaf347af67 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2022-02-08 Mats Lidell <matsl@gnu.org>
+
+* hbut.el (ibut:at-p): Use copy-sequence, remove dependency on
+ cl-lib. Thanks Stefan Monnier.
+
2022-02-06 Bob Weiner <rsw@gnu.org>
* test/hui-tests.el (hui-gbut-modify-link-to-file-button): Some
diff --git a/hbut.el b/hbut.el
index 9a2a8a4dfa..c4d33ec4dc 100644
--- a/hbut.el
+++ b/hbut.el
@@ -3,9 +3,9 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 18-Sep-91 at 02:57:09
-;; Last-Mod: 5-Feb-22 at 23:17:58 by Bob Weiner
+;; Last-Mod: 8-Feb-22 at 23:54:24 by Mats Lidell
;;
-;; Copyright (C) 1991-2021 Free Software Foundation, Inc.
+;; Copyright (C) 1991-2022 Free Software Foundation, Inc.
;; See the "HY-COPY" file for license information.
;;
;; This file is part of GNU Hyperbole.
@@ -17,9 +17,8 @@
;;; Other required Elisp libraries
;;; ************************************************************************
-;; Require 'cl for `copy-list'
-(eval-and-compile (mapc #'require '(cl elisp-mode help-mode hversion hmoccur
- hbmap htz hbdata hact view)))
+(eval-and-compile (mapc #'require '(elisp-mode help-mode hversion hmoccur
+ hbmap htz hbdata hact view)))
;;; ************************************************************************
;;; Public declarations
@@ -1536,7 +1535,7 @@ excluding delimiters, not just one."
(or (hattr:get 'hbut:current 'args)
(not (listp args))
(progn
- (setq args (copy-list args))
+ (setq args (copy-sequence args))
(when (eq (car args) #'hact)
(setq args (cdr args)))
(hattr:set 'hbut:current 'actype