From 0434bec1617461b5897e1f200ede92bd0c568c90 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Gustav=20H=C3=A5llberg?= Date: Fri, 31 Jul 2009 15:56:13 +0200 Subject: [PATCH] stgit.el: Refactor: simplify temporary marker handling MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit Signed-off-by: Gustav HÃ¥llberg --- contrib/stgit.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/contrib/stgit.el b/contrib/stgit.el index 078e46f..82e9aa2 100644 --- a/contrib/stgit.el +++ b/contrib/stgit.el @@ -483,9 +483,10 @@ Cf. `stgit-file-type-change-string'." "Expand (show modification of) the patch PATCH after the line at point." (let* ((patchsym (stgit-patch-name patch)) - (end (progn (insert "#") (prog1 (point-marker) (forward-char -1)))) - (args (list "-z" (stgit-find-copies-harder-diff-arg))) - (ewoc (ewoc-create #'stgit-file-pp nil nil t))) + (end (point-marker)) + (args (list "-z" (stgit-find-copies-harder-diff-arg))) + (ewoc (ewoc-create #'stgit-file-pp nil nil t))) + (set-marker-insertion-type end t) (setf (stgit-patch-files-ewoc patch) ewoc) (with-temp-buffer (apply 'stgit-run-git @@ -536,8 +537,7 @@ at point." (unless (ewoc-nth ewoc 0) (ewoc-set-hf ewoc "" (propertize " \n" 'face 'stgit-description-face)))) - (goto-char end) - (delete-char -1))) + (goto-char end))) (defun stgit-select-file () (let ((filename (expand-file-name -- 2.11.0