[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 2eee73e: * lisp/international/rfc1843.el: Don't req
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 2eee73e: * lisp/international/rfc1843.el: Don't require CL. Use lexical-binding. |
Date: |
Tue, 23 May 2017 09:18:32 -0400 (EDT) |
branch: master
commit 2eee73e7bf5a6bee18272248876eb8820d3db568
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* lisp/international/rfc1843.el: Don't require CL. Use lexical-binding.
---
lisp/international/rfc1843.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/lisp/international/rfc1843.el b/lisp/international/rfc1843.el
index c134327..9b91854 100644
--- a/lisp/international/rfc1843.el
+++ b/lisp/international/rfc1843.el
@@ -1,4 +1,4 @@
-;;; rfc1843.el --- HZ (rfc1843) decoding
+;;; rfc1843.el --- HZ (rfc1843) decoding -*- lexical-binding:t -*-
;; Copyright (C) 1998-2017 Free Software Foundation, Inc.
@@ -27,7 +27,7 @@
;;; Code:
-(eval-when-compile (require 'cl))
+(eval-when-compile (require 'cl-lib))
(defvar rfc1843-word-regexp
"~\\({\\([\041-\167][\041-\176]\\| \\)+\\)\\(~}\\|$\\)")
@@ -115,15 +115,15 @@ ftp://ftp.math.psu.edu/pub/simpson/chinese/hzp/hzp.doc"
"Decode HZ WORD and return it."
(let ((i -1) (s (substring word 0)) v)
(if (or (not firstc) (eq firstc ?{))
- (while (< (incf i) (length s))
+ (while (< (cl-incf i) (length s))
(if (eq (setq v (aref s i)) ? ) nil
(aset s i (+ 128 v))))
- (while (< (incf i) (length s))
+ (while (< (cl-incf i) (length s))
(if (eq (setq v (aref s i)) ? ) nil
(setq v (+ (* 94 v) (aref s (1+ i)) -3135))
(aset s i (+ (/ v 157) (if (eq firstc ?<) 201 161)))
(setq v (% v 157))
- (aset s (incf i) (+ v (if (< v 63) 64 98))))))
+ (aset s (cl-incf i) (+ v (if (< v 63) 64 98))))))
s))
(provide 'rfc1843)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 2eee73e: * lisp/international/rfc1843.el: Don't require CL. Use lexical-binding.,
Stefan Monnier <=