[xyzzy:03131] Re: find-text-attribute の使い方 (was Re: text-property?)

[HANAI Tohru <hanai@xxxxxxxxxxxxxxxxxxxx>]

亀井さん、こんにちは。
花井です。

> | 朝、顔を洗っているときに、ふと気づきました。
> | 戻り値として複数の値が返っているのですね。
> 
> いい勘してますね(^^;

いぇいぇ。
でも、顔洗ってるときにこういうのを考えてることに、
自分でも「なんだかなぁ」と思います。(^^;
# あと、風呂入ってるときにも、よく思いつきますです。

--

詳しい説明、ありがとうございます。

> 使ったことないので動くかどうか分かりませんが。

ということで、以下のコードを走らせてみました。

(progn
  (set-text-attribute 1 28 '("foo" bar) 2 15 #\B)
  (set-text-attribute 59 127 '("foo" bar) 4 3 #\D t)
  (format t "~s~%"
          (multiple-value-list
           (find-text-attribute "foo" :test #'equal :key #'car)))
  (format t "~s"
          (multiple-value-list
           (find-text-attribute 'bar :test #'eq :key #'cadr :start 2))))
==>
(1 28 ("foo" bar))
(59 127 ("foo" bar))


... ＼(^o^)／ ...

attribute に指定する TAG にこれほど柔軟性があるとは。
使い出があります。(^^)

-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
　＠客先　(hanai@xxxxxxxxxxxxxxxxxxxx)
　＠自宅　(honey@xxxxxxxxx)

　　花井 達
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-