diff options
author | Satoru Takeuchi <satoru.takeuchi@gmail.com> | 2012-03-10 18:39:50 +0900 |
---|---|---|
committer | Satoru Takeuchi <satoru.takeuchi@gmail.com> | 2012-03-10 18:39:50 +0900 |
commit | a106d99d754c88c049c111f6ccdfb06c2bede4f2 (patch) | |
tree | 413f28d6139beac22023435b0e01591d68af5d71 | |
parent | 912879381e7f96a735fe0542318a40f8ac9283cb (diff) | |
download | quilt-a106d99d754c88c049c111f6ccdfb06c2bede4f2.tar.gz |
quilt-el: cleanup codes by introducing `quilt-cmd-to-list' function.
-rw-r--r-- | lib/quilt.el | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/lib/quilt.el b/lib/quilt.el index e1e8c12..ccdbd1f 100644 --- a/lib/quilt.el +++ b/lib/quilt.el @@ -96,20 +96,21 @@ (shell-command-to-string (concat "quilt " cmd)) (cd d))))) -(defun quilt-applied-list () - (let ((s (quilt-cmd-to-string "applied"))) +(defun quilt-cmd-to-list (cmd) + "execute a quilt command at the top of the quilt tree for the current buffer. +Return the lines of the command output as elements of a list." + (let ((s (quilt-cmd-to-string cmd))) (if s - (split-string s "\n")))) + (split-string s "\n" t)))) + +(defun quilt-applied-list () + (quilt-cmd-to-list "applied")) (defun quilt-file-list () - (let ((s (quilt-cmd-to-string "files"))) - (if s - (split-string s "\n")))) + (quilt-cmd-to-list "files")) (defun quilt-patch-list () - (let ((s (quilt-cmd-to-string "series"))) - (if s - (split-string s "\n")))) + (quilt-cmd-to-list "patches")) (defun quilt-top-patch () (if (quilt-bottom-p) |