From f037e98fe90aea530ab03437afbfb2337fc676a3 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 23 May 2017 09:12:06 -0400 Subject: [PATCH] * lisp/international/utf7.el: Don't require CL. Use lexical-binding. --- lisp/international/utf7.el | 6 ++---- 1 file 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+" -- 2.39.2