[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/xpm 9f3fd68 23/37: [xpm int] Use ‘cl-assert’, not ‘ass
From: |
Stefan Monnier |
Subject: |
[elpa] externals/xpm 9f3fd68 23/37: [xpm int] Use ‘cl-assert’, not ‘assert’; drop ‘cl’ requirement. |
Date: |
Sat, 28 Nov 2020 14:15:34 -0500 (EST) |
branch: externals/xpm
commit 9f3fd683622a734999c8ef1075547be2a52b8c43
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>
[xpm int] Use ‘cl-assert’, not ‘assert’; drop ‘cl’ requirement.
* packages/xpm/xpm-m2z.el: No longer require ‘cl’.
(xpm-m2z-ellipse): Combine center coord components
‘integerp’ check; use ‘cl-assert’ instead of ‘assert’.
---
xpm-m2z.el | 7 ++++---
1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/xpm-m2z.el b/xpm-m2z.el
index 39b45d2..d8a5e9c 100644
--- a/xpm-m2z.el
+++ b/xpm-m2z.el
@@ -34,7 +34,6 @@
(require 'artist)
(require 'cl-lib)
-(eval-when-compile (require 'cl))
;;;###autoload
(defun xpm-m2z-ellipse (cx cy rx ry)
@@ -55,8 +54,10 @@ RX and RY, respectively. For example:
The span is always an even number. As a special case,
if RX or RY is less than 1, the value is nil."
- (assert (not (integerp cx)))
- (assert (not (integerp cy)))
+ (cl-assert (and (not (integerp cx))
+ (not (integerp cy)))
+ nil "Integer component in center coordinate: (%S,%S)"
+ cx cy)
(unless (or (> 1 (abs rx))
(> 1 (abs ry)))
(cl-flet*
- [elpa] externals/xpm 8bfffeb 10/37: [xpm] Fix byte-compilation bugs., (continued)
- [elpa] externals/xpm 8bfffeb 10/37: [xpm] Fix byte-compilation bugs., Stefan Monnier, 2020/11/28
- [elpa] externals/xpm d919c38 08/37: [xpm] Release: 1.0.0, Stefan Monnier, 2020/11/28
- [elpa] externals/xpm ebaa1a4 16/37: [xpm int] Add abstraction: form, Stefan Monnier, 2020/11/28
- [elpa] externals/xpm ee7e88d 06/37: [xpm int] Don't bother w/ rows outside form bb., Stefan Monnier, 2020/11/28
- [elpa] externals/xpm 6f7785b 05/37: [xpm int] Compute bool-vector length exactly once., Stefan Monnier, 2020/11/28
- [elpa] externals/xpm bdff002 03/37: [xpm maint] Add debugging aid Emacs Lisp file., Stefan Monnier, 2020/11/28
- [elpa] externals/xpm 612b0a1 07/37: [xpm int] Doc fix., Stefan Monnier, 2020/11/28
- [elpa] externals/xpm bef7120 02/37: [xpm] Add Emacs Lisp files., Stefan Monnier, 2020/11/28
- [elpa] externals/xpm b395114 22/37: [xpm int] Use cl-* names; drop ‘cl’ requirement., Stefan Monnier, 2020/11/28
- [elpa] externals/xpm 41d5c7d 21/37: [xpm int] Use ‘cl-destructuring-bind’, not ‘destructuring-bind’., Stefan Monnier, 2020/11/28
- [elpa] externals/xpm 9f3fd68 23/37: [xpm int] Use ‘cl-assert’, not ‘assert’; drop ‘cl’ requirement.,
Stefan Monnier <=
- [elpa] externals/xpm 88ac50b 20/37: [xpm] Document disabled undo., Stefan Monnier, 2020/11/28
- [elpa] externals/xpm bedfa73 19/37: [xpm int] Whitespace munging; nfc., Stefan Monnier, 2020/11/28
- [elpa] externals/xpm 9e50d40 26/37: [xpm int] Make wip more visible; inhibit their distribution., Stefan Monnier, 2020/11/28
- [elpa] externals/xpm 4ecdff4 28/37: * xpm: Fix cl-lib usage and compilation failures., Stefan Monnier, 2020/11/28
- [elpa] externals/xpm 62051fe 34/37: * xpm/xpm.el (xpm--gg): Fix incorrect defstruct field syntax, Stefan Monnier, 2020/11/28
- [elpa] externals/xpm fe74725 33/37: [xpm] Make ‘flower’ size customizable., Stefan Monnier, 2020/11/28
- [elpa] externals/xpm 3889143 13/37: [xpm] Add homepage URL; drop other links., Stefan Monnier, 2020/11/28
- [elpa] externals/xpm 7bde41f 14/37: [xpm] Release: 1.0.2, Stefan Monnier, 2020/11/28
- [elpa] externals/xpm e9ed88f 12/37: [xpm] Release: 1.0.1, Stefan Monnier, 2020/11/28
- [elpa] externals/xpm 7b2109e 15/37: [xpm int] Use ‘cl-loop’ instead of ‘loop’., Stefan Monnier, 2020/11/28