5ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

xyzzyの使い方が分からぬやし 励ましあえ その5

83 :名無しさん@お腹いっぱい。:04/07/23 13:49 ID:4E5GEbF/
>>80
(require "html+-mode")
(defun bar ()
(interactive)
(multiple-value-bind (a b c)
(ed::uplevel-tag)
(when a
(goto-char b)
(let ((p (if (while (scan-buffer ">" :tail t)
(unless (parse-point-syntax) (return t)))
(point)
(return-from bar)))
(regex (compile-regexp (concat "</" c "[> \t\n]"))))
(delete-region
p
(if (while (scan-buffer regex :regexp t)
(unless (parse-point-syntax) (return t)))
(point)
(return-from bar)))
(insert (get-clipboard-data))))))

適当に書いてみました。
終了タグを省略している場合のことが考えられていませんが、
html+-modeそのものがそういう仕様だ。

348 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.04.02 2018/11/22 Walang Kapalit ★
FOX ★ DSO(Dynamic Shared Object)