summaryrefslogtreecommitdiff
path: root/emacs/guix-base.el
diff options
context:
space:
mode:
authorAlex Kost <alezost@gmail.com>2015-11-25 13:29:36 +0300
committerAlex Kost <alezost@gmail.com>2015-12-06 12:46:10 +0300
commitc67e344f21fda2bf5a2a377a34d4749a1c7e7c9c (patch)
treedf03e4db6754ca323c84df2908336bcc2e4fe57c /emacs/guix-base.el
parent957b73382b31622943db3d066dfedd706b6f19c4 (diff)
downloadpatches-c67e344f21fda2bf5a2a377a34d4749a1c7e7c9c.tar
patches-c67e344f21fda2bf5a2a377a34d4749a1c7e7c9c.tar.gz
emacs: Fix 'guix-pull'.
* emacs/guix-base.el (guix-pull): Handle prefix argument when it is run interactively. Use 'guix-command' instead of 'guix-pull' to prevent REPL exit if 'leave' happens.
Diffstat (limited to 'emacs/guix-base.el')
-rw-r--r--emacs/guix-base.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/emacs/guix-base.el b/emacs/guix-base.el
index a2bd5bf7f2..d9c70aae9e 100644
--- a/emacs/guix-base.el
+++ b/emacs/guix-base.el
@@ -1186,10 +1186,11 @@ The function is called with a single argument - a command line string."
(defun guix-pull (&optional verbose)
"Run Guix pull operation.
If VERBOSE is non-nil (with prefix argument), produce verbose output."
- (interactive)
+ (interactive "P")
(let ((args (and verbose '("--verbose"))))
(guix-eval-in-repl
- (apply #'guix-make-guile-expression 'guix-pull args)
+ (apply #'guix-make-guile-expression
+ 'guix-command "pull" args)
nil 'pull)))
(provide 'guix-base)