diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-26 23:17:14 -0300 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2015-02-26 23:17:14 -0300 |
| commit | ee0e79475ed49f0e28c530994beebbafd1d77ca8 (patch) | |
| tree | 4366b16ccefd389b401734e385e2fb44d5a8c370 /sx-compose.el | |
| parent | e19068da5bc6ab29b3a0cd21daed3cf98708df39 (diff) | |
| parent | be15643b64b64e5fcbcdc213c90a5fa9cd41e9df (diff) | |
Merge branch 'handle-html-tags' into print-question-without-temp-buffer
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 |