リハビリ

最近、何もしていなかったので何か書く。これをやってみる。

内容

カーソル上にある単語を" "で区切って強調表示する。

(defun strong () (interactive)
  (let ((start (progn (backward-word 1) (point)))
	(end (progn (forward-word 1) (point))))
    (let ((word (delete-and-extract-region start end)))
      (insert (mapconcat 'char-to-string (string-to-list word) " ")))))