From 778437ed9f4586370512768f06bfd9c33c3906a2 Mon Sep 17 00:00:00 2001 From: Alex Kost Date: Tue, 17 Nov 2015 21:59:41 +0300 Subject: 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 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) (limited to 'emacs/guix-command.el') diff --git a/emacs/guix-command.el b/emacs/guix-command.el index ccd85d25b9..9cb7032abc 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))) -- cgit v1.2.3