[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole fccc4175b5: Use copy-sequence (#165)
From: |
ELPA Syncer |
Subject: |
[elpa] externals/hyperbole fccc4175b5: Use copy-sequence (#165) |
Date: |
Wed, 9 Feb 2022 02:57:32 -0500 (EST) |
branch: externals/hyperbole
commit fccc4175b5488d924e7777544e5f654502fe3556
Author: Mats Lidell <mats.lidell@lidells.se>
Commit: GitHub <noreply@github.com>
Use copy-sequence (#165)
Use copy-sequence
---
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/hyperbole fccc4175b5: Use copy-sequence (#165),
ELPA Syncer <=