quilt-el: cleanup codes by introducing `quilt-cmd-to-list' function.

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)