Commit 1c7db8aa authored by Glenn Morris's avatar Glenn Morris

Explicitly require cl-lib where needed

Rather than relying on the byte-compiler happening to use it.
* lisp/completion.el, lisp/ffap.el, lisp/loadhist.el:
* lisp/userlock.el, lisp/emacs-lisp/debug.el, lisp/emacs-lisp/rx.el:
* lisp/emacs-lisp/testcover.el, lisp/mail/rfc2231.el:
* lisp/net/newst-treeview.el, lisp/net/puny.el:
* lisp/net/tramp-archive.el, lisp/net/tramp-gvfs.el:
* lisp/net/tramp-sh.el, lisp/net/tramp-smb.el, lisp/org/org-ctags.el:
* lisp/org/org-macs.el, lisp/progmodes/grep.el:
* lisp/progmodes/perl-mode.el, lisp/progmodes/ruby-mode.el:
* lisp/textmodes/dns-mode.el, lisp/textmodes/mhtml-mode.el:
* lisp/vc/pcvs-parse.el: Explicitly require cl-lib as needed.
parent 9c4ee531
......@@ -2226,6 +2226,7 @@ TYPE is the type of the wrapper to be added. Can be :before or :under."
table))
(defun completion-lisp-mode-hook ()
(require 'cl-lib)
(setq completion-syntax-table completion-lisp-syntax-table)
;; Lisp Mode diffs
(setq-local completion-separator-chars
......
......@@ -27,6 +27,7 @@
;;; Code:
(require 'cl-lib)
(require 'button)
(defgroup debugger nil
......
......@@ -106,6 +106,8 @@
;;; Code:
(require 'cl-lib)
;; FIXME: support macros.
(defvar rx-constituents ;Not `const' because some modes extend it.
......
......@@ -63,6 +63,7 @@
;; error if these "potentially" 1-valued forms actually return differing
;; values.
(eval-when-compile (require 'cl-lib))
(require 'edebug)
(provide 'testcover)
......
......@@ -104,6 +104,7 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
(require 'url-parse)
(require 'thingatpt)
......
......@@ -29,6 +29,8 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
(defun feature-symbols (feature)
"Return the file and list of definitions associated with FEATURE.
The value is actually the element of `load-history'
......
......@@ -22,6 +22,7 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
(require 'ietf-drums)
(require 'rfc2047)
(autoload 'mm-encode-body "mm-bodies")
......
......@@ -36,6 +36,7 @@
;; ======================================================================
;;; Code:
(require 'cl-lib)
(require 'newst-reader)
(require 'widget)
(require 'tree-widget)
......
......@@ -27,6 +27,7 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
(require 'seq)
(defun puny-encode-domain (domain)
......
......@@ -107,6 +107,7 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
(require 'tramp-gvfs)
(autoload 'dired-uncache "dired")
......
......@@ -103,6 +103,7 @@
;; option "--without-dbus". Declare used subroutines and variables.
(declare-function dbus-get-unique-name "dbusbind.c")
(eval-when-compile (require 'cl-lib))
(require 'tramp)
(require 'dbus)
......
......@@ -27,6 +27,7 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
(require 'tramp)
;; Pacify byte-compiler.
......
......@@ -27,6 +27,7 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
(require 'tramp)
;; Define SMB method ...
......
......@@ -137,6 +137,7 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
(require 'org)
(defgroup org-ctags nil
......
......@@ -31,6 +31,8 @@
;;; Code:
(require 'cl-lib)
(defmacro org-with-gensyms (symbols &rest body)
(declare (debug (sexp body)) (indent 1))
`(let ,(mapcar (lambda (s)
......
......@@ -29,6 +29,7 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
(require 'compile)
(defgroup grep nil
......
......@@ -87,6 +87,8 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
(defgroup perl nil
"Major mode for editing Perl code."
:link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
......
......@@ -39,6 +39,8 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
(defgroup ruby nil
"Major mode for editing Ruby code."
:prefix "ruby-"
......
......@@ -45,6 +45,8 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
(defgroup dns-mode nil
"DNS master file mode configuration."
:group 'data)
......
......@@ -22,6 +22,7 @@
;;; Code:
(eval-and-compile
(require 'cl-lib)
(require 'flyspell)
(require 'sgml-mode))
(require 'js)
......
......@@ -32,6 +32,8 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
(define-error 'file-locked "File is locked" 'file-error)
;;;###autoload
......
......@@ -32,6 +32,7 @@
;;; Code:
(eval-when-compile (require 'cl-lib))
(require 'pcvs-util)
(require 'pcvs-info)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment