Signed-off-by: David Kågedal <david@virtutech.com>
(error "File does not exist"))
(find-file filename))))
(error "File does not exist"))
(find-file filename))))
-(defun stgit-toggle-patch-file-list (curpath)
+(defun stgit-select-patch (curpath)
(let ((inhibit-read-only t))
(if (memq curpatch stgit-expanded-patches)
(save-excursion
(let ((inhibit-read-only t))
(if (memq curpatch stgit-expanded-patches)
(save-excursion
(interactive)
(let ((curpatch (stgit-patch-at-point)))
(if curpatch
(interactive)
(let ((curpatch (stgit-patch-at-point)))
(if curpatch
- (stgit-toggle-patch-file-list curpatch)
+ (stgit-select-patch curpatch)