From 34afb86c94c81a0a7fdcd8cc432238659da41532 Mon Sep 17 00:00:00 2001 Message-Id: <34afb86c94c81a0a7fdcd8cc432238659da41532.1746989480.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 19 Dec 2007 18:00:08 +0000 Subject: [PATCH] Emacs mode: Improve the output buffer state MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Organization: Straylight/Edgeware From: David Kågedal Make the output buffer have the correct default-directory, and make it read-only and unmodified. Signed-off-by: David Kågedal Signed-off-by: Karl Hasselström --- contrib/stgit.el | 15 +++++++++++---- 1 file changed, 11 insertions(+), 4 deletions(-) diff --git a/contrib/stgit.el b/contrib/stgit.el index ed2fc37..82f0d38 100644 --- a/contrib/stgit.el +++ b/contrib/stgit.el @@ -41,13 +41,20 @@ (defun create-stgit-buffer (dir) (defmacro stgit-capture-output (name &rest body) "Capture StGit output and show it in a window at the end" - `(let ((output-buf (get-buffer-create ,(or name "*StGit output*")))) + `(let ((output-buf (get-buffer-create ,(or name "*StGit output*"))) + (stgit-dir default-directory) + (inhibit-read-only t)) (with-current-buffer output-buf - (erase-buffer)) + (erase-buffer) + (setq default-directory stgit-dir) + (setq buffer-read-only t)) (let ((standard-output output-buf)) ,@body) - (if (with-current-buffer output-buf (< (point-min) (point-max))) - (display-buffer output-buf t)))) + (with-current-buffer output-buf + (set-buffer-modified-p nil) + (setq buffer-read-only t) + (if (< (point-min) (point-max)) + (display-buffer output-buf t))))) (put 'stgit-capture-output 'lisp-indent-function 1) (defun stgit-run (&rest args) -- [mdw]