[mew-dist 23417] Re: separator change problem?

[Hideyuki SHIRAI ( 白井秀行 )]

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com> 曰く
Subject: [mew-dist 23414] Re: separator change problem?
Message-ID: <20030324.213215.131608817.shirai at example.com>
Date: Mon, 24 Mar 2003 21:32:15 +0900 (JST)

> > こういう表示方法もあるんだから、Emacspeak側でなんとかならんもんか考え
> > るべきかなとか思ってみたり。
> 
> うーーどうだろう。あやふやなんですが、Emacspeak ってカーソルでな
> ぞれないと、しゃべれないんじゃ無いんでしたっけ？ overlay +
> before-string だと行頭にもカーソル置けないし。

とりあえず(ですが)

(defun my-get-overlay-strings ()
  (interactive)
  (let ((ovs (overlays-at (point)))
	ov strs)
    (while (setq ov (car ovs))
      (cond
       ((overlay-get ov 'before-string)
	(setq strs (cons (overlay-get ov 'before-string) strs)))
       ((overlay-get ov 'after-string)
	(setq strs (cons (overlay-get ov 'after-string) strs))))
      (setq ovs (cdr ovs)))
    (when strs
      (message (format "overlays: %s"
		       (mapconcat 'identity (nreverse strs) ", "))))))

な方法はありますね。

-- 
白井秀行 (mailto:shirai at example.com)