mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Replace some uses of cl-member-if with apply

Browse Source 
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.
This commit is contained in:
Mark Oteiza 2017-04-08 11:27:17 -04:00
parent 98bfac68b9
commit 1c69215c51
2 changed files with 7 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/align.el
View File

@ -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))

19
lisp/emulation/viper.el
View File

@ -14,8 +14,6 @@
;; filed in the Emacs bug reporting system against this file, a copy
;; of the bug report be sent to the maintainer's email address.
(require 'cl-lib)
(defconst viper-version "3.14.2 of July 4, 2013"
"The current version of Viper")
@ -594,10 +592,8 @@ This startup message appears whenever you load Viper, unless you type `y' now."
))
(viper-set-expert-level 'dont-change-unless)))
(or (cl-member-if #'derived-mode-p
viper-emacs-state-mode-list) ; don't switch to Vi
(cl-member-if #'derived-mode-p
viper-insert-state-mode-list) ; don't switch
(or (apply #'derived-mode-p viper-emacs-state-mode-list) ; don't switch to Vi
(apply #'derived-mode-p viper-insert-state-mode-list) ; don't switch
(viper-change-state-to-vi))
))
@ -609,13 +605,10 @@ This startup message appears whenever you load Viper, unless you type `y' now."
;; Apply a little heuristic to invoke vi state on major-modes
;; that are not listed in viper-vi-state-mode-list
(defun this-major-mode-requires-vi-state (mode)
(let ((check (lambda (one-mode)
(provided-mode-derived-p mode one-mode))))
(cond ((cl-member-if check viper-vi-state-mode-list) t)
((cl-member-if check viper-emacs-state-mode-list)
nil)
((cl-member-if check viper-insert-state-mode-list)
nil)
(let ((major-mode mode))
(cond ((apply #'derived-mode-p viper-vi-state-mode-list) t)
((apply #'derived-mode-p viper-emacs-state-mode-list) nil)
((apply #'derived-mode-p viper-insert-state-mode-list) nil)
(t (and (eq (key-binding "a") 'self-insert-command)
(eq (key-binding " ") 'self-insert-command))))))