[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 00ec2dd: Don't require help-fns when not needed
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] master 00ec2dd: Don't require help-fns when not needed |
Date: |
Wed, 20 May 2015 15:24:33 +0000 |
branch: master
commit 00ec2dd7af3d472fcd5098c74f2e6b8f759e007d
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>
Don't require help-fns when not needed
* lisp/emacs-lisp/autoload.el, lisp/emacs-lisp/advice.el:
* lisp/emacs-lisp/elint.el:
Don't require help-fns at the top level.
* lisp/emacs-lisp/advice.el (ad-arglist):
* lisp/emacs-lisp/cl-macs.el (cl--transform-lambda):
Don't require help-fns. (Bug#17001)
---
lisp/emacs-lisp/advice.el | 3 ---
lisp/emacs-lisp/autoload.el | 1 -
lisp/emacs-lisp/cl-macs.el | 1 -
lisp/emacs-lisp/elint.el | 2 --
4 files changed, 0 insertions(+), 7 deletions(-)
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 212ae90..907f03b 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2149,7 +2149,6 @@ the cache-id will clear the cache."
(defun ad-arglist (definition)
"Return the argument list of DEFINITION."
- (require 'help-fns)
(help-function-arglist
(if (or (macrop definition) (ad-advice-p definition))
(cdr definition)
@@ -2474,8 +2473,6 @@ Example: `(ad-map-arglists '(a &rest args) '(w x y z))'
will return
(capitalize (symbol-name class))
(ad-advice-name advice)))))))
-(require 'help-fns) ;For help-split-fundoc and help-add-fundoc-usage.
-
(defun ad--make-advised-docstring (function &optional style)
"Construct a documentation string for the advised FUNCTION.
Concatenate the original documentation with the documentation
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index 206d5bb..a6fefeb 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -32,7 +32,6 @@
(require 'lisp-mode) ;for `doc-string-elt' properties.
(require 'lisp-mnt)
-(require 'help-fns) ;for help-add-fundoc-usage.
(eval-when-compile (require 'cl-lib))
(defvar generated-autoload-file nil
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 5bab84e..27d3da3 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -294,7 +294,6 @@ FORM is of the form (ARGS . BODY)."
;; apparently harmless computation, so it should not
;; touch the match-data.
(save-match-data
- (require 'help-fns)
(cons (help-add-fundoc-usage
(if (stringp (car header)) (pop header))
;; Be careful with make-symbol and (back)quote,
diff --git a/lisp/emacs-lisp/elint.el b/lisp/emacs-lisp/elint.el
index 317e5a6..fc66c82 100644
--- a/lisp/emacs-lisp/elint.el
+++ b/lisp/emacs-lisp/elint.el
@@ -46,8 +46,6 @@
;;; Code:
-(require 'help-fns)
-
(defgroup elint nil
"Linting for Emacs Lisp."
:prefix "elint-"
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 00ec2dd: Don't require help-fns when not needed,
Paul Eggert <=