[xyzzy:05280] Re: テキストの一部を色付きにするには

["Y.Nogami" <nogamiy@xxxxxxxxxxxxxxxxxxx>]

みなさん、こんにちは。

Y.Nogami です。


さきほど送った

(defun color-list.......
以下のコードなのですが、

(defun color-list (filename)
  (interactive "FOutput file name: ")
  (let (colorlist attrib)
    (setq colorlist (list-text-attributes))
    (with-output-to-temp-buffer ("*color*")
      (while colorlist
	(setq attrib (car colorlist))
	(setq attrib (cons 'set-text-attribute attrib))
	(format t "~S~%" attrib)
	(setq colorlist (cdr colorlist)))))
  (set-buffer-file-name filename)
  (set-buffer-modified-p t)
  (save-buffer)
  (delete-window)
  (kill-buffer "*color*"))

に置き換えてください。
（使ってみようかな、という方がいらっしゃればの話ですが）
下から２行目に(delete-window)がくっついただけなんですけど。


----------------------------------------------
Y.Nogami : nogamiy@xxxxxxxxxxxxxxxxxxx