diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-26 22:19:05 -0300 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-26 22:19:05 -0300 |
| commit | 7df79a35edcb79e7caca4a0d50fcec54d5f68fef (patch) | |
| tree | cc2bcb61f4350dce6a5b5ecba12218f25645275f /sx-compose.el | |
| parent | 83538b215f75256b86987b999504a2d87d0db307 (diff) | |
| parent | f4ba0e2a11581477e412c276080a049d19351361 (diff) | |
Merge branch 'master' into question-mode-line
Diffstat (limited to 'sx-compose.el')
| -rw-r--r-- | sx-compose.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/sx-compose.el b/sx-compose.el index eb5e2eb..ae13fb6 100644 --- a/sx-compose.el +++ b/sx-compose.el @@ -193,8 +193,7 @@ tags. Return a list of already inserted tags." 'noerror) (error "No Tags header found")) (save-match-data - (split-string (match-string 1) (rx (any space ",;")) - 'omit-nulls (rx space)))) + (sx--split-string (match-string 1) (rx (any space ",;"))))) (defun sx-compose--check-tags () "Check if tags in current compose buffer are valid." @@ -313,8 +312,7 @@ other keywords are read from the header " (unless (search-forward-regexp "^Tags : *\\([^[:space:]].*\\) *$" header-end 'noerror) (error "No Tags header found")) - (push (cons 'tags (split-string (match-string 1) - "[[:space:],;]" 'omit-nulls)) + (push (cons 'tags (sx--split-string (match-string 1) "[[:space:],;]")) keywords) ;; And erase the header so it doesn't get sent. (delete-region |