[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 01/01: [xpm int] Use ‘cl-destructuring-bind’, not ‘destructuring
From: |
Thien-Thi Nguyen |
Subject: |
[elpa] 01/01: [xpm int] Use ‘cl-destructuring-bind’, not ‘destructuring-bind’. |
Date: |
Fri, 13 Jun 2014 11:50:27 +0000 |
ttn pushed a commit to branch master
in repository elpa.
commit 22ec52ec5544c70cfad78608eb52ba36c514ea31
Author: Thien-Thi Nguyen <address@hidden>
Date: Fri Jun 13 13:53:35 2014 +0200
[xpm int] Use ‘cl-destructuring-bind’, not ‘destructuring-bind’.
* packages/xpm/xpm.el (xpm-grok, xpm-raster): ...here.
---
packages/xpm/xpm.el | 4 ++--
1 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/packages/xpm/xpm.el b/packages/xpm/xpm.el
index 34354d6..7ed6f6a 100644
--- a/packages/xpm/xpm.el
+++ b/packages/xpm/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'."
x))
t))
(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