From 6f8d6dd0e3afe8f129c362281b1b63dd70632a4f Mon Sep 17 00:00:00 2001 From: David Thompson Date: Tue, 6 Dec 2022 07:52:14 -0500 Subject: Add messages. This is just some uncommitted code I had hanging around. I no longer use this code. buffer-env + inheritenv cover this use case. --- guix-shell.el | 2 ++ 1 file changed, 2 insertions(+) diff --git a/guix-shell.el b/guix-shell.el index 61478c9..df0ea8d 100644 --- a/guix-shell.el +++ b/guix-shell.el @@ -34,6 +34,7 @@ an alist of search path environment variables." (with-current-buffer buffer (setq default-directory directory) (erase-buffer) + (message "running guix shell...") (call-process "guix" nil t nil "shell" "--search-paths") ;; Gather up the names of all the environment variables and transform ;; the lines into echo commands that we can eval to get the actual @@ -62,6 +63,7 @@ an alist of search path environment variables." (setq names (reverse names)) ;; Eval the search paths. (call-process-region (point-min) (point-max) "sh" t t nil) + (message "guix shell complete") ;; Iterate over the result lines and create an environment variable ;; mapping. (goto-char (point-min)) -- cgit v1.2.3