aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--emacs/guix-command.el9
-rw-r--r--emacs/guix-external.el8
2 files changed, 8 insertions, 9 deletions
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)))
diff --git a/emacs/guix-external.el b/emacs/guix-external.el
index c80b36343d..f571ffd845 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'."