diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-05-23 09:12:06 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-05-23 09:12:06 -0400 |
| commit | f037e98fe90aea530ab03437afbfb2337fc676a3 (patch) | |
| tree | 582e0946d39a8417898e07b727a07267a7ac4d33 /lisp/international | |
| parent | a8d0a91841121a7bdae668a5f29c1ba84739e14f (diff) | |
| download | emacs-f037e98fe90aea530ab03437afbfb2337fc676a3.tar.gz | |
* lisp/international/utf7.el: Don't require CL. Use lexical-binding.
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/utf7.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/international/utf7.el b/lisp/international/utf7.el index 82dad3da6eb..f245d7eb696 100644 --- a/lisp/international/utf7.el +++ b/lisp/international/utf7.el @@ -1,4 +1,4 @@ -;;; utf7.el --- UTF-7 encoding/decoding for Emacs -*-coding: utf-8;-*- +;;; utf7.el --- UTF-7 encoding/decoding for Emacs -*- lexical-binding:t -*- ;; Copyright (C) 1999-2017 Free Software Foundation, Inc. @@ -64,7 +64,6 @@ ;;; Code: (require 'base64) -(eval-when-compile (require 'cl)) (require 'mm-util) (defconst utf7-direct-encoding-chars " -%'-*,-[]-}" @@ -140,8 +139,7 @@ Use IMAP modification if FOR-IMAP is non-nil." (defun utf7-decode-internal (&optional for-imap) "Decode UTF-7 text in (temporary) buffer. Use IMAP modification if FOR-IMAP is non-nil." - (let ((start (point-min)) - (end (point-max))) + (let ((start (point-min))) (goto-char start) (let* ((esc-pattern (concat "^" (char-to-string (if for-imap ?& ?+)))) (base64-chars (concat "A-Za-z0-9+" |