[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f16ba58: Fix recent rfc2231 avoidance of cl
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master f16ba58: Fix recent rfc2231 avoidance of cl |
Date: |
Wed, 27 Dec 2017 13:50:58 -0500 (EST) |
branch: master
commit f16ba58809fa9b83d42f2bb6b4722599bc98b408
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
Fix recent rfc2231 avoidance of cl
* lisp/mail/rfc2231.el (rfc2231-parse-string)
(rfc2231-encode-string): Replace cl forms with cl-lib versions.
---
lisp/mail/rfc2231.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/mail/rfc2231.el b/lisp/mail/rfc2231.el
index dab7807..e032597 100644
--- a/lisp/mail/rfc2231.el
+++ b/lisp/mail/rfc2231.el
@@ -180,7 +180,7 @@ must never cause a Lisp error."
;; Now collect and concatenate continuation parameters.
(let ((cparams nil)
elem)
- (loop for (attribute value part encoded)
+ (cl-loop for (attribute value part encoded)
in (sort parameters (lambda (e1 e2)
(< (or (caddr e1) 0)
(or (caddr e2) 0))))
@@ -290,7 +290,7 @@ the result of this function."
(insert param "*=")
(while (not (eobp))
(insert (if (>= num 0) " " "")
- param "*" (format "%d" (incf num)) "*=")
+ param "*" (format "%d" (cl-incf num)) "*=")
(forward-line 1))))
(spacep
(goto-char (point-min))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master f16ba58: Fix recent rfc2231 avoidance of cl,
Glenn Morris <=