{"thread":{"id":"16441","subject":"[StGit PATCH] stgit.el: Show running commands","startedAt":"2008-11-24T12:01:36Z","lastAt":"2008-11-24T15:34:00Z","messageCount":2,"participants":["David Kågedal","Karl Hasselström"],"isPatch":true,"patchVersion":1,"patchTotal":null},"messages":[{"id":"96414","messageId":"20081124120136.9163.70947.stgit@krank","threadId":"16441","inReplyTo":null,"subject":"[StGit PATCH] stgit.el: Show running commands","fromName":"David Kågedal","fromEmail":"davidk@lysator.liu.se","sentAt":"2008-11-24T12:01:36Z","receivedAt":"2008-11-24T12:01:36Z","isPatch":true,"sender":{"key":"davidk@lysator.liu.se","avatar":"https://avatars.githubusercontent.com/u/60530?v=4"},"body":"\n---\n contrib/stgit.el |   16 +++++++++++-----\n 1 files changed, 11 insertions(+), 5 deletions(-)\n\ndiff --git a/contrib/stgit.el b/contrib/stgit.el\nindex 65af068..ec08a5b 100644\n--- a/contrib/stgit.el\n+++ b/contrib/stgit.el\n@@ -68,9 +68,15 @@ Argument DIR is the repository path.\"\n            (display-buffer output-buf t)))))\n (put 'stgit-capture-output 'lisp-indent-function 1)\n \n-(defun stgit-run (&rest args)\n+(defun stgit-run-silent (&rest args)\n   (apply 'call-process \"stg\" nil standard-output nil args))\n \n+(defun stgit-run (&rest args)\n+  (let ((msgcmd (mapconcat #'identity args \" \")))\n+    (message \"Running stg %s...\" msgcmd)\n+    (apply 'call-process \"stg\" nil standard-output nil args)\n+    (message \"Running stg %s...done\" msgcmd)))\n+\n (defun stgit-reload ()\n   \"Update the contents of the stgit buffer\"\n   (interactive)\n@@ -79,8 +85,8 @@ Argument DIR is the repository path.\"\n         (curpatch (stgit-patch-at-point)))\n     (erase-buffer)\n     (insert \"Branch: \")\n-    (stgit-run \"branch\")\n-    (stgit-run \"series\" \"--description\")\n+    (stgit-run-silent \"branch\")\n+    (stgit-run-silent \"series\" \"--description\")\n     (stgit-rescan)\n     (if curpatch\n         (stgit-goto-patch curpatch)\n@@ -338,7 +344,7 @@ With numeric prefix argument, pop that many patches.\"\n     (set (make-local-variable 'stgit-edit-patch) patch)\n     (setq default-directory dir)\n     (let ((standard-output edit-buf))\n-      (stgit-run \"edit\" \"--save-template=-\" patch))))\n+      (stgit-run-silent \"edit\" \"--save-template=-\" patch))))\n \n (defun stgit-confirm-edit ()\n   (interactive)\n@@ -402,7 +408,7 @@ With numeric prefix argument, pop that many patches.\"\n     (set (make-local-variable 'stgit-patches) patch-names)\n     (setq default-directory dir)\n     (let ((standard-output edit-buf))\n-      (apply 'stgit-run \"coalesce\" \"--save-template=-\" patch-names))))\n+      (apply 'stgit-run-silent \"coalesce\" \"--save-template=-\" patch-names))))\n \n (defun stgit-confirm-coalesce ()\n   (interactive)\n"},{"id":"96419","messageId":"20081124153400.GA3094@diana.vm.bytemark.co.uk","threadId":"16441","inReplyTo":"20081124120136.9163.70947.stgit@krank","subject":"Re: [StGit PATCH] stgit.el: Show running commands","fromName":"Karl Hasselström","fromEmail":"kha@treskal.com","sentAt":"2008-11-24T15:34:00Z","receivedAt":"2008-11-24T15:34:00Z","isPatch":true,"sender":{"key":"kha@treskal.com","avatar":"https://gravatar.com/avatar/f0120c734b5279b345075a28521e1ac66acb20c9913ffe9bf6ae97e53f7f3f13?d=mp&s=160"},"body":"Thanks, looks useful.\n\nSorry I haven't taken the time to apply & push out your patches. I'm\nhoping it'll happen Real Soon Now(tm) ...\n\n-- \nKarl Hasselström, kha@treskal.com\n      www.treskal.com/kalle\n"}]}