[Mew-dist 09592] Re: mew-refile-view.el (Re: mew-refile.el)

[Kazu Yamamoto ( 山本和彦 )]

pop-to-buffer について調べました。

From: Hideyuki SHIRAI (白井秀行) <shirai at example.com>
Subject: [Mew-dist 09544] Re: mew-refile-view.el (Re: mew-refile.el)
Date: Wed, 7 Jul 1999 13:12:30 +0900

> と定義してあるので、以下の様でもいいんじゃないかと思います。
> 
> # 昔の XEmacs は知らないんですが、mew-refile-view もこれで動いたこ
> # とだし。

XEmacs 20.4 と XEmacs 21.x では、pop-to-buffer という Elisp のコードは変
わっていません。しかし、pop-to-buffer が読んでいる関数の仕様が変わったた
めか、挙動が異なります。

XEmacs 20.4 の pop-to-buffer では、他のフレームにカーソルが飛んだり、
[Mew-dist 04222] のようなことが起きます。どこでまともになったか分かりま
せんが、少くとも XEmacs 21.2.13 以降では pop-to-buffer が Emacs のそれと
同じ挙動を示します。

よって、pop-to-buffer が fbound されていたらこれを使うと言う白井さんの方
法では、XEmacs 20.4 においてうまくいきません。

それで原因は、buffer がないのに、名前だけで mew-pop-to-buffer を呼び出し
ているせいだと判明したので、mew-pop-to-buffer で get-buffer-create して
みました。

これで直るはずです。

--かず

*** mew-env.el.orig	Mon Jul 12 15:09:53 1999
--- mew-env.el	Mon Jul 12 15:10:59 1999
***************
*** 72,77 ****
--- 72,78 ----
    (fset 'mew-buffer-substring (symbol-function 'buffer-substring))
    (defun mew-mark () (mark t))
    (defun mew-pop-to-buffer (buf)
+     (setq buf (get-buffer-create buf))
      (select-window (display-buffer buf nil (selected-frame)))
      (set-buffer buf)))
   (mew-temacs-p