procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove redundant requires of 'help'

Browse source 
* 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:
Stefan Kangas 2020-12-02 15:56:54 +01:00
parent fddf68cd81
commit 9b2e5b2301
3 changed files with 1 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

1
lisp/emacs-lisp/advice.el
View file

@ -1840,7 +1840,6 @@ function at point for which PREDICATE returns non-nil)."
(or default (or default
;; Prefer func name at point, if it's an advised function etc. ;; Prefer func name at point, if it's an advised function etc.
(let ((function (progn (let ((function (progn
(require 'help)
(function-called-at-point)))) (function-called-at-point))))
(and function (and function
(member (symbol-name function) ad-advised-functions) (member (symbol-name function) ad-advised-functions)

1
lisp/emacs-lisp/ert.el
View file

@ -63,7 +63,6 @@
(require 'easymenu) (require 'easymenu)
(require 'ewoc) (require 'ewoc)
(require 'find-func) (require 'find-func)
(require 'help)
(require 'pp) (require 'pp)
;;; UI customization options. ;;; UI customization options.

3
lisp/facemenu.el
View file

@ -85,9 +85,6 @@
;;; Code: ;;; Code:
(eval-when-compile
(require 'help))
;; Global bindings: ;; Global bindings:
(define-key global-map [C-down-mouse-2] 'facemenu-menu) (define-key global-map [C-down-mouse-2] 'facemenu-menu)
(define-key global-map "\M-o" 'facemenu-keymap) (define-key global-map "\M-o" 'facemenu-keymap)