From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Tue, 23 May 2017 13:12:06 +0000 (-0400)
Subject: * lisp/international/utf7.el: Don't require CL.  Use lexical-binding.
X-Git-Tag: emacs-26.0.90~521^2~297
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f037e98fe90aea530ab03437afbfb2337fc676a3;p=emacs.git

* lisp/international/utf7.el: Don't require CL.  Use lexical-binding.
---

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+"