aboutsummaryrefslogtreecommitdiff
path: root/emacs/guix-info.el
diff options
context:
space:
mode:
Diffstat (limited to 'emacs/guix-info.el')
-rw-r--r--emacs/guix-info.el12
1 files changed, 7 insertions, 5 deletions
diff --git a/emacs/guix-info.el b/emacs/guix-info.el
index 7a600907b1..dcd2ce2932 100644
--- a/emacs/guix-info.el
+++ b/emacs/guix-info.el
@@ -558,9 +558,9 @@ ENTRY is an alist with package info."
type-str
(lambda (btn)
(guix-process-package-actions
- (list (button-get btn 'action-type)
- (list (button-get btn 'id)
- (button-get btn 'output)))))
+ `((,(button-get btn 'action-type) (,(button-get btn 'id)
+ ,(button-get btn 'output))))
+ (current-buffer)))
(concat type-str " '" full-name "'")
'action-type type
'id (or (guix-get-key-val entry 'package-id)
@@ -639,7 +639,8 @@ ENTRY is an alist with package info."
(guix-info-insert-action-button
"Delete"
(lambda (btn)
- (guix-delete-generations (button-get btn 'number)))
+ (guix-delete-generations (list (button-get btn 'number))
+ (current-buffer)))
"Delete this generation"
'number number))
@@ -652,7 +653,8 @@ ENTRY is an alist with package info."
(guix-info-insert-action-button
"Switch"
(lambda (btn)
- (guix-switch-to-generation (button-get btn 'number)))
+ (guix-switch-to-generation (button-get btn 'number)
+ (current-buffer)))
"Switch to this generation (make it the current one)"
'number (guix-get-key-val entry 'number))))