[Mew-dist 15247] Re: XEmacsで画像が表示されない

NINOMIYA Hideyuki nin at example.com
2000年 12月 1日 (金) 06:49:39 JST


おはようございます	二宮@お四国 です

二宮 秀幸 は Fri, 1 Dec 2000 01:55:24 +0900 頃に
    Subject:    [Mew-dist 15244] Re: XEmacsで画像が表示されない
    Message-Id: <20001201.015514.71097541.nin at example.com>
れお> >`buffer-substring-no-properties' is a compiled Lisp function
れお> のエイリアスと言うか。。。になってるんですよねっ
れお> mew-buffer-substring って、、# mew-env.el を読んでみた。。。
れお> 
れお> >  -- loaded from "..../xemacs-21.1.12/lisp/subr.elc"
れお> >(buffer-substring-no-properties BEG END)
れお> >Documentation:
れお> >Return the text from BEG to END, without text properties, as a string.
れお> 
れお> との事で、引数は2つのようです。
れお> # ここが、21.2 で違うのかなっ
れお> buffer-substring の方は引数3つで、第3引数が BUFFER との事です。
れお> 一々バージョンチェックする訳にもいかないでしょうから、
れお> buffer-substring 使う方にした方が良いのかな ?

という事で、(これで良いのか ?)とりあえずのパッチです。
# XEmacs 21.1.12 (Channel Islands) でしか試してません。
# 21.2.x でどなたかテスト下され

Index: mew-env.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-env.el,v
retrieving revision 1.1.1.3
diff -c -r1.1.1.3 mew-env.el
*** mew-env.el	2000/11/29 22:30:53	1.1.1.3
--- mew-env.el	2000/11/30 21:34:34
***************
*** 120,126 ****
      (if (mew-overlay-p beg-or-ovl)
  	(mew-overlay-put beg-or-ovl 'end-open t)
        (put-text-property beg-or-ovl end 'end-open t)))
!   (if (fboundp 'buffer-substring-no-properties)
        (fset 'mew-buffer-substring
  	    (symbol-function 'buffer-substring-no-properties))
      (fset 'mew-buffer-substring (symbol-function 'buffer-substring)))
--- 120,127 ----
      (if (mew-overlay-p beg-or-ovl)
  	(mew-overlay-put beg-or-ovl 'end-open t)
        (put-text-property beg-or-ovl end 'end-open t)))
!   (if (and (fboundp 'buffer-substring-no-properties)
! 	   (string< "21.2" emacs-version))
        (fset 'mew-buffer-substring
  	    (symbol-function 'buffer-substring-no-properties))
      (fset 'mew-buffer-substring (symbol-function 'buffer-substring)))
---
ICQ UIN:57442553                          二宮 秀幸@愛媛 鬼北 広見町
PGP-Fingerprint:  6C59 EC08 5B23 6490 44D0  7CD3 DA40 219F 7114 8553
PGP-Public-Key:    http://user.shikoku.ne.jp/~nin/pgp/public-key.txt
mailto:nin at example.com   http://user.shikoku.ne.jp/~nin/index.html
mailto:nin at example.com http://home.jp.freebsd.org/~nin/index.html



Mew-dist メーリングリストの案内