07/05/01 23:48:25 acPgMKCA0
>>573
html 入力で、そういう機能が欲しいのなら、今はなき
「XYZZY でタグ打ってる人の数→」スレで >>574 より
ちゃんとしたのがあったよ。
(defun quote-region-by-tag (&optional (quotetag ""))
(interactive "*sTag: ") ; s => 文字入力を指示する。
; 入力された文字列は quotetag に割り当てられる。
(setq starttag (string-trim "<>" quotetag))
(setq endtag (substitute-string starttag " .*" ""))
(case (get-selection-type)
((1 2)
(exchange-region-and-selection)))
(let ((begin (mark))
(end (point)))
(when (> begin end)
(let ((tmp begin))
(setq begin end
end tmp)))
(save-excursion
(goto-char end)
(insert "</" endtag ">")
(goto-char begin)
(insert "<" starttag ">"))))