diff options
author | Gustav Hållberg <gustav@gmail.com> | 2010-03-29 17:27:25 +0200 |
---|---|---|
committer | Gustav Hållberg <gustav@gmail.com> | 2010-04-30 00:21:46 +0200 |
commit | d2efc9d501ce5a89562af1d8a788794befb5d59a (patch) | |
tree | b538ffcd50e3800bd9f0f891319f36acf91903fb | |
parent | 62548eec1a46e229c82b4c793b5120480473ccac (diff) | |
download | stgit-d2efc9d501ce5a89562af1d8a788794befb5d59a.tar.gz |
stgit.el: Fix so "t u" and "t i" only operate on the current buffer
Signed-off-by: Gustav Hållberg <gustav@gmail.com>
-rw-r--r-- | contrib/stgit.el | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/contrib/stgit.el b/contrib/stgit.el index b0d1ec9..8e41a9a 100644 --- a/contrib/stgit.el +++ b/contrib/stgit.el @@ -734,10 +734,12 @@ Cf. `stgit-file-type-change-string'." (defun stgit-insert-patch-files (patch) "Expand (show modification of) the patch PATCH after the line at point." - (let* ((patchsym (stgit-patch->name patch)) - (end (point-marker)) - (args (list "-z" (stgit-find-copies-harder-diff-arg))) - (ewoc (ewoc-create #'stgit-file-pp nil nil t))) + (let* ((patchsym (stgit-patch->name patch)) + (end (point-marker)) + (args (list "-z" (stgit-find-copies-harder-diff-arg))) + (ewoc (ewoc-create #'stgit-file-pp nil nil t)) + (show-ignored stgit-show-ignored) + (show-unknown stgit-show-unknown)) (set-marker-insertion-type end t) (setf (stgit-patch->files-ewoc patch) ewoc) (with-temp-buffer @@ -753,9 +755,9 @@ at point." `("diff-tree" ,@args "-r" ,(stgit-id patchsym))))) (when (and (eq patchsym :work)) - (when stgit-show-ignored + (when show-ignored (stgit-insert-ls-files '("--ignored" "--others") "I")) - (when stgit-show-unknown + (when show-unknown (stgit-insert-ls-files '("--directory" "--no-empty-directory" "--others") "X")) @@ -1245,6 +1247,8 @@ See also \\[customize-group] for the \"stgit\" group." (set (make-local-variable 'stgit-show-patch-names) stgit-default-show-patch-names) (set (make-local-variable 'stgit-show-worktree) stgit-default-show-worktree) + (set (make-local-variable 'stgit-show-ignored) nil) + (set (make-local-variable 'stgit-show-unknown) nil) (set (make-local-variable 'stgit-index-node) nil) (set (make-local-variable 'stgit-worktree-node) nil) (set (make-local-variable 'parse-sexp-lookup-properties) t) |