Remove redundant requires of 'help'

* lisp/emacs-lisp/advice.el (ad-read-advised-function):
* lisp/emacs-lisp/ert.el:
* lisp/facemenu.el: Don't require 'help'; it is preloaded since
version 18.59.

diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 948443fc18a9c2fe26a1535419dc425ab40139d1..c8a6676b6655608b4e118802bad3ff5e76e28a2c 100644 (file)
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -1840,8 +1840,7 @@ function at point for which PREDICATE returns non-nil)."
        (or default
            ;; Prefer func name at point, if it's an advised function etc.
            (let ((function (progn
-                             (require 'help)
-                             (function-called-at-point))))
+                              (function-called-at-point))))
              (and function
                   (member (symbol-name function) ad-advised-functions)
                   (or (null predicate)

diff --git a/lisp/emacs-lisp/ert.el b/lisp/emacs-lisp/ert.el
index 7442a247f9e94aa9afdfa731e55384c4bed6c65f..e5ac1d1f1cb11d8ddff4c58e69c5faf3ec78a92b 100644 (file)
--- a/lisp/emacs-lisp/ert.el
+++ b/lisp/emacs-lisp/ert.el
@@ -63,7 +63,6 @@
 (require 'easymenu)
 (require 'ewoc)
 (require 'find-func)
-(require 'help)
 (require 'pp)
 
 ;;; UI customization options.

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index e7f3f7bb03bdf3cd9848aa4455cb16536b4375b6..cdff4b8f3e637ff6805fb676ec596fde81d3763e 100644 (file)
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -85,9 +85,6 @@
 
 ;;; Code:
 
-(eval-when-compile
-  (require 'help))
-
 ;; Global bindings:
 (define-key global-map [C-down-mouse-2] 'facemenu-menu)
 (define-key global-map "\M-o" 'facemenu-keymap)