remove cl-lib

Author: Esnos33

god-mode.el

@@ -35,8 +35,6 @@
 
 ;;; Code:
 
-(require 'cl-lib)
-
 (add-hook 'after-change-major-mode-hook 'god-mode-maybe-activate)
 
 (defvar god-local-mode-paused nil)
@@ -192,10 +190,10 @@ if ARG is zero or a positive number, or disable the mode if ARG
 is a negative number."
   (interactive)
   (let ((new-status
-	 (cond
-	  ((null arg) (if (bound-and-true-p god-local-mode) -1 1))
-	  ((> 0 arg) -1)
-	  (t 1))))
+         (cond
+          ((null arg) (if (bound-and-true-p god-local-mode) -1 1))
+          ((> 0 arg) -1)
+          (t 1))))
     (setq god-global-mode t)
     (mapc (lambda (buffer)
             (with-current-buffer buffer
@@ -279,7 +277,7 @@ KEY-STRING-SO-FAR should be nil for the first call in the sequence."
      (S-delete . "<S-delete>")
      (S-return . "<S-return>"))
    ;; f1..f35 and S-f1..S-f35
-   (cl-mapcan (lambda (i)
+   (mapcan (lambda (i)
                 (list (cons (god-mode-make-f-key i)   (format "<f%d>" i))
                       (cons (god-mode-make-f-key i t) (format "S-<f%d>" i))))
               (number-sequence 1 35)))
@@ -298,9 +296,10 @@ from the command loop."
   ;; Adding an element (t . key) to `unread-command-events' will add key to
   ;; the current command's key sequence.
   (setq unread-command-events
-        (cl-loop for key in (append (read-kbd-macro key-string-so-far t)
-                                    (list help-char))
-                 collect (cons t key)))
+        (mapcar (lambda (key)
+                  (cons t key))
+                (append (read-kbd-macro key-string-so-far t)
+                        (list help-char))))
   ;; Return nil so that `god-mode-lookup-command' doesn't perform any action.
   nil)