diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-26 22:26:42 -0300 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-26 22:26:42 -0300 |
| commit | a603180449f9d17f5f7230638f43e3b2c6ecc363 (patch) | |
| tree | 5f921eded79a1b1a068a1558d355ca9c9fe783a2 /sx-compose.el | |
| parent | d8968604c6d2e11e5365031759069fb5a671f688 (diff) | |
| parent | ee4e74f25fdb97faf4cb92952072a42b7b507e2a (diff) | |
Merge branch 'generate-header-line-from-keymap' into delete-command
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 |