mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-11-26 07:33:47 +00:00
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.
This commit is contained in:
parent
fddf68cd81
commit
9b2e5b2301
@ -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)
|
||||
|
@ -63,7 +63,6 @@
|
||||
(require 'easymenu)
|
||||
(require 'ewoc)
|
||||
(require 'find-func)
|
||||
(require 'help)
|
||||
(require 'pp)
|
||||
|
||||
;;; UI customization options.
|
||||
|
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user