diff options
| author | Mark Oteiza <mvoteiza@udel.edu> | 2017-04-08 11:27:17 -0400 |
|---|---|---|
| committer | Mark Oteiza <mvoteiza@udel.edu> | 2017-04-08 11:36:56 -0400 |
| commit | 1c69215c511789ddcdeab60192087733c521652b (patch) | |
| tree | b72d66ab815483d1193403705dae431ef32d4093 /lisp/align.el | |
| parent | 98bfac68b98e051425c41873edc48f9af5c92361 (diff) | |
| download | emacs-1c69215c511789ddcdeab60192087733c521652b.tar.gz emacs-1c69215c511789ddcdeab60192087733c521652b.tar.bz2 emacs-1c69215c511789ddcdeab60192087733c521652b.zip | |
Replace some uses of cl-member-if with apply
From the mhtml-mode series. Some of the uses of cl-lib are not
necessary.
* lisp/align.el: Don't require cl-lib.
(align-region): Use apply instead of cl-member-if.
* lisp/emulation/viper.el: Don't require cl-lib.
(viper-mode, this-major-mode-requires-vi-state): Use apply instead of
cl-member-if.
Diffstat (limited to 'lisp/align.el')
| -rw-r--r-- | lisp/align.el | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lisp/align.el b/lisp/align.el index 102f009a2df..081f587d4b2 100644 --- a/lisp/align.el +++ b/lisp/align.el @@ -118,8 +118,6 @@ ;;; Code: -(require 'cl-lib) - (defgroup align nil "Align text to a specific column, by regexp." :version "21.1" @@ -1324,8 +1322,7 @@ aligner would have dealt with are." (modes (assq 'modes rule))) ;; unless the `run-if' form tells us not to, look for the ;; rule.. - (unless (or (and modes (not (cl-member-if #'derived-mode-p - (eval (cdr modes))))) + (unless (or (and modes (not (apply #'derived-mode-p (eval (cdr modes))))) (and run-if (not (funcall (cdr run-if))))) (let* ((case-fold-search case-fold-search) (case-fold (assq 'case-fold rule)) |