[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master f037e98: * lisp/international/utf7.el: Don't requir
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master f037e98: * lisp/international/utf7.el: Don't require CL. Use lexical-binding. |
Date: |
Tue, 23 May 2017 09:12:12 -0400 (EDT) |
branch: master
commit f037e98fe90aea530ab03437afbfb2337fc676a3
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>
* 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 82dad3d..f245d7e 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+"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master f037e98: * lisp/international/utf7.el: Don't require CL. Use lexical-binding.,
Stefan Monnier <=