gwh/slackbuilds
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Didn't know about split-string...

Browse source
This commit is contained in:
Marius Vollmer 2008-08-06 03:47:42 +03:00
parent 45f8fa9763
commit 7ce74c2879
1 changed files with 1 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
magit.el
View file

@ -45,20 +45,11 @@
(substring str 0 (- (length str) 1)) (substring str 0 (- (length str) 1))
str)))) str))))
(defun magit-string-split (string regexp)
(let ((res nil)
(pos 0)
next)
(while (setq next (string-match regexp string pos))
(setq res (cons (substring string pos next) res))
(setq pos (match-end 0)))
(nreverse (cons (substring string pos) res))))
(defun magit-shell-lines (cmd &rest args) (defun magit-shell-lines (cmd &rest args)
(let ((str (shell-command-to-string (apply 'format cmd args)))) (let ((str (shell-command-to-string (apply 'format cmd args))))
(if (string= str "") (if (string= str "")
nil nil
(magit-string-split str "\n")))) (split-string str "\n"))))
(defun magit-concat-with-delim (delim seqs) (defun magit-concat-with-delim (delim seqs)
(cond ((null seqs) (cond ((null seqs)