diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-05-23 09:18:26 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-05-23 09:18:26 -0400 |
| commit | 2eee73e7bf5a6bee18272248876eb8820d3db568 (patch) | |
| tree | ec2a40d6742ac9337cf1d6efa5c99d10b43944f2 /lisp/international | |
| parent | f037e98fe90aea530ab03437afbfb2337fc676a3 (diff) | |
| download | emacs-2eee73e7bf5a6bee18272248876eb8820d3db568.tar.gz | |
* lisp/international/rfc1843.el: Don't require CL. Use lexical-binding.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/rfc1843.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/international/rfc1843.el b/lisp/international/rfc1843.el index c1343274c93..9b918547141 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) |