[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/xpm 41d5c7d 21/37: [xpm int] Use ‘cl-destructuring-bin

From: Stefan Monnier
Subject: [elpa] externals/xpm 41d5c7d 21/37: [xpm int] Use ‘cl-destructuring-bind’, not ‘destructuring-bind’.
Date: Sat, 28 Nov 2020 14:15:34 -0500 (EST)

branch: externals/xpm
commit 41d5c7d2daf7a7a494bc0c56b4f3ed34267ea935
Author: Thien-Thi Nguyen <ttn@gnu.org>
Commit: Thien-Thi Nguyen <ttn@gnu.org>

    [xpm int] Use ‘cl-destructuring-bind’, not ‘destructuring-bind’.
    * packages/xpm/xpm.el (xpm-grok, xpm-raster): ...here.
 xpm.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/xpm.el b/xpm.el
index 34354d6..7ed6f6a 100644
--- a/xpm.el
+++ b/xpm.el
@@ -115,7 +115,7 @@ the buffer intangible.  Optional arg SIMPLE inhibits that."
       (goto-char (point-min))
       (search-forward "{")
       (skip-chars-forward "^\"")
-      (destructuring-bind (w h nc cpp &rest rest)
+      (cl-destructuring-bind (w h nc cpp &rest rest)
           (read (format "(%s)" (read (current-buffer))))
         (ignore rest)                   ; for now
         (forward-line 1)
@@ -391,7 +391,7 @@ see variable `xpm-raster-inhibit-continuity-optimization'."
                    (if rangep
-                       (destructuring-bind (b . e) x
+                       (cl-destructuring-bind (b . e) x
                          (rset ext (norm b) (span b e) nil))
                      (aset ext (norm x) nil))
                    (when acc

reply via email to

[Prev in Thread] Current Thread [Next in Thread]