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

:CATEGORIES: Emacs,Emacs-Lisp

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

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


(defun kill-following-spaces ()
(interactive)
(let *1
(insert "\n"))))

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

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

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

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

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

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

*1:orig-point (point))) (save-excursion (skip-chars-forward " \t") (delete-region orig-point (point