From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 1 Sep 2017 18:29:57 +0000 (-0400)
Subject: * lisp/obsolete/html2text.el: Don't require CL
X-Git-Tag: emacs-26.0.90~281
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c4ccafb1a59677c669519575b47d20f3ed4bacb3;p=emacs.git

* lisp/obsolete/html2text.el: Don't require CL

(html2text-clean-anchor): Mark unused arg.
---

diff --git a/lisp/obsolete/html2text.el b/lisp/obsolete/html2text.el
index 27560a70c63..f60b04a4044 100644
--- a/lisp/obsolete/html2text.el
+++ b/lisp/obsolete/html2text.el
@@ -38,8 +38,6 @@
 ;; <Global variables>
 ;;
 
-(eval-when-compile
-  (require 'cl))
 
 (defvar html2text-format-single-element-list '(("hr" . html2text-clean-hr)))
 
@@ -300,7 +298,7 @@ formatting, and then moved afterward.")
 (defun html2text-clean-blockquote (p1 p2 p3 p4)
   (html2text-delete-tags p1 p2 p3 p4))
 
-(defun html2text-clean-anchor (p1 p2 p3 p4)
+(defun html2text-clean-anchor (p1 p2 _p3 p4)
   ;; If someone can explain how to make the URL clickable I will surely
   ;; improve upon this.
   ;; Maybe `goto-addr.el' can be used here.