diff options
| author | Alex Kost <alezost@gmail.com> | 2015-11-25 13:29:36 +0300 |
|---|---|---|
| committer | Alex Kost <alezost@gmail.com> | 2015-12-06 12:46:10 +0300 |
| commit | c67e344f21fda2bf5a2a377a34d4749a1c7e7c9c (patch) | |
| tree | df03e4db6754ca323c84df2908336bcc2e4fe57c /emacs | |
| parent | 957b73382b31622943db3d066dfedd706b6f19c4 (diff) | |
| download | guix-patches-c67e344f21fda2bf5a2a377a34d4749a1c7e7c9c.tar guix-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')
| -rw-r--r-- | emacs/guix-base.el | 5 |
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) |