01/37: emacs: Use "cl-list*" instead of "apply #'list".

[Alex Kost]

alezost pushed a commit to branch wip-refactor-emacs-ui
in repository guix.

commit e72f36b32277a9d0f7544355747d26b1eefa88d5
Author: Alex Kost <address@hidden>
Date:   Tue Nov 17 21:59:41 2015 +0300

    emacs: Use "cl-list*" instead of "apply #'list".
    
    * emacs/guix-command.el (guix-run-view-build-log): Use cl-list*.
      (guix-run-view-size-map): Likewise.
    * emacs/guix-external.el (guix-dot-arguments): Likewise.
---
 emacs/guix-command.el  |    9 ++++-----
 emacs/guix-external.el |    8 ++++----
 2 files changed, 8 insertions(+), 9 deletions(-)

diff --git a/emacs/guix-command.el b/emacs/guix-command.el
index ccd85d2..9cb7032 100644
--- a/emacs/guix-command.el
+++ b/emacs/guix-command.el
@@ -690,7 +690,7 @@ Perform pull-specific actions after operation, see
 open the log file(s)."
   (let* ((args (if (member "--log-file" args)
                    args
-                 (apply #'list (car args) "--log-file" (cdr args))))
+                 (cl-list* (car args) "--log-file" (cdr args))))
          (output (guix-command-output args))
          (files  (split-string output "\n" t)))
     (dolist (file files)
@@ -715,10 +715,9 @@ open the log file(s)."
          (map-file (or wished-map-file (guix-png-file-name)))
          (args (if wished-map-file
                    args
-                 (apply #'list
-                        (car args)
-                        (concat "--map-file=" map-file)
-                        (cdr args)))))
+                 (cl-list* (car args)
+                           (concat "--map-file=" map-file)
+                           (cdr args)))))
     (guix-command-output args)
     (guix-find-file map-file)))
 
diff --git a/emacs/guix-external.el b/emacs/guix-external.el
index c80b363..f571ffd 100644
--- a/emacs/guix-external.el
+++ b/emacs/guix-external.el
@@ -23,6 +23,7 @@
 
 ;;; Code:
 
+(require 'cl-lib)
 (require 'guix-config)
 
 (defgroup guix-external nil
@@ -67,10 +68,9 @@ If ARGS is nil, use `guix-dot-default-arguments'."
   (or guix-dot-program
       (error (concat "Couldn't find 'dot'.\n"
                      "Set guix-dot-program to a proper value")))
-  (apply #'list
-         guix-dot-program
-         (concat "-o" output-file)
-         (or args guix-dot-default-arguments)))
+  (cl-list* guix-dot-program
+            (concat "-o" output-file)
+            (or args guix-dot-default-arguments)))
 
 (defun guix-dot-file-name ()
   "Call `guix-dot-file-name-function'."