Remove redundant requires of faces

* lisp/htmlfontify.el:
* lisp/term/ns-win.el:
* lisp/term/w32-win.el:
* lisp/term/x-win.el:
* test/lisp/faces-tests.el: Don't require 'faces'; it is preloaded
since version 19.34.

diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index fcd4df037a586edadb94813e9b36705442d09ca9..6a2ed3aee92309052c185c29451f90cf4fce7481 100644 (file)
--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -78,8 +78,6 @@
 
 ;;; Code:
 (eval-when-compile (require 'cl-lib))
-(require 'faces)
-;;  (`facep' `face-attr-construct' `x-color-values' `color-values' `face-name')
 (require 'custom)
 ;;  (`defgroup' `defcustom')
 (require 'font-lock)

diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el
index 8273c067f8bf582585ffd2f78a72fe30b3a1c8c7..99cead992376483c7fc9257ae4d3b26a1327f8cd 100644 (file)
--- a/lisp/term/ns-win.el
+++ b/lisp/term/ns-win.el
@@ -47,7 +47,6 @@
 ;; Documentation-purposes only: actually loaded in loadup.el.
 (require 'frame)
 (require 'mouse)
-(require 'faces)
 (require 'menu-bar)
 (require 'fontset)
 (require 'dnd)

diff --git a/lisp/term/w32-win.el b/lisp/term/w32-win.el
index 7a15537186d1d0df753194f0b24abb073a10c7d1..824848dd55ba72d1affa309b2d81d3f358139ef2 100644 (file)
--- a/lisp/term/w32-win.el
+++ b/lisp/term/w32-win.el
@@ -72,7 +72,6 @@
 (require 'frame)
 (require 'mouse)
 (require 'scroll-bar)
-(require 'faces)
 (require 'select)
 (require 'menu-bar)
 (require 'dnd)

diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 42a6f4030e5aad2950d31d78ef3c06e9103e371b..6069272604ca947a1283d1896fd1cf19287efae1 100644 (file)
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -75,7 +75,6 @@
 (require 'frame)
 (require 'mouse)
 (require 'scroll-bar)
-(require 'faces)
 (require 'select)
 (require 'menu-bar)
 (require 'fontset)

diff --git a/test/lisp/faces-tests.el b/test/lisp/faces-tests.el
index b19cef5decdf0999eadd4f465a706660868de69f..bdd18a5ac58b928929721305c0470f2905eb6018 100644 (file)
--- a/test/lisp/faces-tests.el
+++ b/test/lisp/faces-tests.el
@@ -24,7 +24,6 @@
 
 (require 'ert)
 (require 'ert-x)
-(require 'faces)
 
 (defgroup faces--test nil ""
   :group 'faces--test)