Avoid unnecessary loading of subr-x at run-time

* lisp/doc-view.el, lisp/filenotify.el, lisp/info-look.el:
* lisp/svg.el, lisp/emacs-lisp/byte-opt.el, lisp/net/shr.el:
* lisp/textmodes/sgml-mode.el, test/lisp/dom-tests.el:
No need to load subr-x at run-time.
* lisp/gnus/nnheader.el: No need to load subr-x.
; * lisp/emacs-lisp/subr-x.el, lisp/gnus/message.el, lisp/net/nsm.el:
; Comments.

diff --git a/lisp/doc-view.el b/lisp/doc-view.el
index 172ea163c1824a7047ade911d951b2e9b1a4e562..2eb555821d9598ad80508a887661c3713864e3a2 100644 (file)
--- a/lisp/doc-view.el
+++ b/lisp/doc-view.el
@@ -140,7 +140,7 @@
 (require 'dired)
 (require 'image-mode)
 (require 'jka-compr)
-(require 'subr-x)
+(eval-when-compile (require 'subr-x))
 
 ;;;; Customization Options
 

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 004f2e28653093412332b7f3e0d2f541188ec632..2a240f502c4221b6219601088c98db4cf0031922 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -185,7 +185,7 @@
 (require 'bytecomp)
 (eval-when-compile (require 'cl-lib))
 (require 'macroexp)
-(require 'subr-x)
+(eval-when-compile (require 'subr-x))
 
 (defun byte-compile-log-lap-1 (format &rest args)
   ;; Newer byte codes for stack-ref make the slot 0 non-nil again.

diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el
index 5ad482d1eac85460e0f31d25fbab0d4bb8a019cc..c0e5ae5984abd64c32ee30d1225b2dcc026764e4 100644 (file)
--- a/lisp/emacs-lisp/subr-x.el
+++ b/lisp/emacs-lisp/subr-x.el
@@ -30,6 +30,9 @@
 ;; Do not document these functions in the lispref.
 ;; http://lists.gnu.org/archive/html/emacs-devel/2014-01/msg01006.html
 
+;; NB If you want to use this library, it's almost always correct to use:
+;; (eval-when-compile (require 'subr-x))
+
 ;;; Code:
 
 (require 'pcase)

diff --git a/lisp/filenotify.el b/lisp/filenotify.el
index 8bbe348f33222f5f758ec5205307326391107a30..0a45db821928df8a0ec1f2ef499bb1437722c82a 100644 (file)
--- a/lisp/filenotify.el
+++ b/lisp/filenotify.el
@@ -28,7 +28,7 @@
 ;;; Code:
 
 (require 'cl-lib)
-(require 'subr-x)
+(eval-when-compile (require 'subr-x))
 
 (defconst file-notify--library
   (cond

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index a8f2b143f21b0ebbf5c77b1498f98ac706236cb2..0f8fdfc9c7f1aae30f6a819da7ecbdba761dc76a 100644 (file)
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -49,7 +49,7 @@
 (require 'mm-util)
 (require 'rfc2047)
 (require 'puny)
-(require 'subr-x)
+(require 'subr-x)                      ; read-multiple-choice
 
 (autoload 'mailclient-send-it "mailclient")
 

diff --git a/lisp/gnus/nnheader.el b/lisp/gnus/nnheader.el
index cc3dccea25f50386167f4aa50b9d35a4edb20e8d..4440f17c2bb01dd6aa41d067d464dceca522e274 100644 (file)
--- a/lisp/gnus/nnheader.el
+++ b/lisp/gnus/nnheader.el
@@ -40,7 +40,6 @@
 (require 'mail-utils)
 (require 'mm-util)
 (require 'gnus-util)
-(require 'subr-x)
 (autoload 'gnus-range-add "gnus-range")
 (autoload 'gnus-remove-from-range "gnus-range")
 ;; FIXME none of these are used explicitly in this file.

diff --git a/lisp/info-look.el b/lisp/info-look.el
index 694bcb462ce291d5647e93e1d75b0e9b8efe883a..6963c782704ba136dd8370db2427daeef46c5c7d 100644 (file)
--- a/lisp/info-look.el
+++ b/lisp/info-look.el
@@ -43,7 +43,7 @@
 ;;; Code:
 
 (require 'info)
-(require 'subr-x)
+(eval-when-compile (require 'subr-x))
 
 (defgroup info-lookup nil
   "Major mode sensitive help agent."

diff --git a/lisp/net/nsm.el b/lisp/net/nsm.el
index ccb596f4ddcdbdb511785d4008164386f9117527..8d3463ef0a56255b0e60765ee76d84db899414e7 100644 (file)
--- a/lisp/net/nsm.el
+++ b/lisp/net/nsm.el
@@ -25,7 +25,7 @@
 ;;; Code:
 
 (require 'cl-lib)
-(require 'subr-x)
+(require 'subr-x)                       ; read-multiple-choice
 
 (defvar nsm-permanent-host-settings nil)
 (defvar nsm-temporary-host-settings nil)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 7472c4133ad6c1b71074fca9fd78d37f8666ab3c..6b62a05227c935240f14a9a196af213eca0a6f19 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -33,7 +33,7 @@
 (eval-when-compile (require 'cl))
 (eval-when-compile (require 'url))      ;For url-filename's setf handler.
 (require 'browse-url)
-(require 'subr-x)
+(eval-when-compile (require 'subr-x))
 (require 'dom)
 (require 'seq)
 (require 'svg)

diff --git a/lisp/svg.el b/lisp/svg.el
index 65e031b3875bd8f9a71c9f8ca280d894753ed245..2295e5f8d49fe8b65b099be4d41c226b37ea3d0d 100644 (file)
--- a/lisp/svg.el
+++ b/lisp/svg.el
@@ -27,7 +27,7 @@
 (require 'cl-lib)
 (require 'xml)
 (require 'dom)
-(require 'subr-x)
+(eval-when-compile (require 'subr-x))
 
 (defun svg-create (width height &rest args)
   "Create a new, empty SVG image with dimensions WIDTHxHEIGHT.

diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index a6965fa32d1f02e9f043469a3ca3523140a13207..1f99786ae7c9236bbc3284cbdf4460fbf6e79091 100644 (file)
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -34,7 +34,7 @@
 
 (require 'dom)
 (require 'seq)
-(require 'subr-x)
+(eval-when-compile (require 'subr-x))
 (eval-when-compile
   (require 'skeleton)
   (require 'cl-lib))

diff --git a/test/lisp/dom-tests.el b/test/lisp/dom-tests.el
index 09114bd794aed9ad6b0cb16eb26017434c63a131..32d231a47e561095605be7acae04c32ec7a1d34d 100644 (file)
--- a/test/lisp/dom-tests.el
+++ b/test/lisp/dom-tests.el
@@ -26,7 +26,7 @@
 
 (require 'dom)
 (require 'ert)
-(require 'subr-x)
+(eval-when-compile (require 'subr-x))
 
 (defun dom-tests--tree ()
   "Return a DOM tree for testing."