Commit f037e98f authored by Stefan Monnier's avatar Stefan Monnier

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

parent a8d0a918
;;; 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+"
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment