(while (string-match "^\\([^ ]+\\) +" string)
(setq parameters (nconc parameters (list (match-string 1 string)))
string (substring string (match-end 0)))
- (and (not (equal "" string)) (eq ?: (aref string 0))
- (setq string (substring string 1))
- (throw 'done nil))))
+ (when (and (not (equal "" string)) (eq ?: (aref string 0)))
+ (setq string (substring string 1)
+ parameters (nconc parameters (list string)))
+ (throw 'done nil))))
(or (equal "" string)
(setq parameters (nconc parameters (list string))))
parameters)))