mieki256's diary

; ----- クリップボードを実体参照+<br>付加して張り付け
(defun skr-ins-edited-clipboard()
(interactive)
(when (get-clipboard-data)
(let ((skr-clip (get-clipboard-data)))
(delete-selection); 選択範囲は削除
(setq skr-clip (substitute-string skr-clip "&" "&amp;"))
(setq skr-clip (substitute-string skr-clip " " "&nbsp; "))
(setq skr-clip (substitute-string skr-clip "\t" "&nbsp; &nbsp; "))
;(setq skr-clip (substitute-string skr-clip "\"" "&quot;")); 増長すぎ
(setq skr-clip (substitute-string skr-clip "<" "&lt;"))
(setq skr-clip (substitute-string skr-clip ">" "&gt;"))
(setq skr-clip (substitute-string skr-clip "\n" "<br>\n"))
(insert skr-clip))))

クリップボードの文字列の実体参照変換と改行の<br>変換をしてから張り付けます。
xyzzyの音よりまた拝借して改造。

スペースやタブ文字まで &nbsp; にしてしまう。
<pre>タグが嫌いな人向け。

効率の良い文字列置換がわからなかったので、置換しては代入の繰り返し。

xyzzyのがらくた - すこプラ より