* Emacsでカーソール以降の連続した半角スペースを削除するEmacs-Lisp

* Emacsでカーソール以降の連続した半角スペースを削除するEmacs-Lisp

:CATEGORIES: Emacs,Emacs-Lisp

カーソル以降の連続するスペースを削除する - syohex’s diary https://syohex.hatenablog.com/entry/20111017/1318857029

　上記を参考に，改行が削除されていたので，改行を追加し直すように手を入れました。

```
(defun kill-following-spaces ()
(interactive)
(let ((orig-point (point)))
(save-excursion
(skip-chars-forward " \t")
(delete-region orig-point (point))
(insert "\n"))))

(global-set-key (kbd "M-k") 'kill-following-spaces)
```

　問題の半角スペースは，ipythonの実行画面のコピペで起きていました。普通なら気が付かない連続した半角スペースですが，Emacsで可視化の表示をしているため，とても目立つことになっていました。

▶▶▶　kk_hironoのリツイート　▶▶▶

- RT kk_hirono（刑事告発・非常上告＿金沢地方検察庁御中）｜s_hirono（非常上告-最高検察庁御中_ツイッター） 日時：2020-09-17 05:52／2020/09/17 05:51 URL： https://twitter.com/kk_hirono/status/1306335085369503744 https://twitter.com/s_hirono/status/1306334978767163392

2020-09-17-054047_削除した連続した半角スペース.jpg https://t.co/dAOxV0NSBq

▶▶▶　kk_hironoのリツイート　▶▶▶

- RT kk_hirono（刑事告発・非常上告＿金沢地方検察庁御中）｜s_hirono（非常上告-最高検察庁御中_ツイッター） 日時：2020-09-17 05:52／2020/09/17 05:51 URL： https://twitter.com/kk_hirono/status/1306335098808066048 https://twitter.com/s_hirono/status/1306334906134351873

2020-09-17-053639_連続した半角スペース.jpg https://t.co/C4KqbCenOe