[Mew-dist 15572] Re: mew-icon-directory

[NINOMIYA Hideyuki]

こんにちは	二宮@お四国 です

二宮 秀幸 は Tue, 19 Dec 2000 14:43:46 +0900 頃に
    Subject: [Mew-dist 15567] Re: mew-icon-directory
    Message-Id: <20001219.144257.112630737.nin at example.com>

れお> # locate-data-directory がちゃんと働いてくれるので、setq を消そう...

やってみてあらびっくり icon が トウフ に...

れお> b77 -> b87 の uniform diff ...
れお> >Index: mew-xemacs.el
れお> >+(defvar mew-icon-directory (if (fboundp 'locate-data-directory)
れお> >+                              (locate-data-directory "mew")))

これが効いていないようです。
ざっと見たところ mew-key.el で (defvar mew-icon-directory nil) されてて
mew-env.el で load  する順序が mew-key -> mew-[tgx]emacs の順になってる
せいのようです。

ちょっと検討した結果以下のようにした方が良いんじゃないかと思います。

Index: mew-key.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-key.el,v
retrieving revision 1.1.1.9
diff -c -F(def -r1.1.1.9 mew-key.el
*** mew-key.el	2000/12/15 11:29:14	1.1.1.9
--- mew-key.el	2000/12/19 06:55:42
*************** (defvar mew-header-toolbar-spec
*** 588,594 ****
  ;;; Icons
  ;;;
  
! (defvar mew-icon-directory nil)
  
  (defvar mew-icon-separate nil)
  (defvar mew-icon-blank nil)
--- 588,595 ----
  ;;; Icons
  ;;;
  
! (defvar mew-icon-directory (if (fboundp 'locate-data-directory)
! 			       (locate-data-directory "mew") nil))
  
  (defvar mew-icon-separate nil)
  (defvar mew-icon-blank nil)
Index: mew-xemacs.el
===================================================================
RCS file: /tmp/am/da/cvs/mew/mew-xemacs.el,v
retrieving revision 1.1.1.4
diff -c -F(def -r1.1.1.4 mew-xemacs.el
*** mew-xemacs.el	2000/12/06 07:00:20	1.1.1.4
--- mew-xemacs.el	2000/12/19 06:54:20
*************** (defconst mew-xemacs-version "mew-xemacs
*** 10,23 ****
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
- ;;; Basic variables
- ;;;
- 
- (defvar mew-icon-directory (if (fboundp 'locate-data-directory)
- 			       (locate-data-directory "mew")))
- 
- ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- ;;;
  ;;; Basic functions
  ;;;
  
--- 10,15 ----

---
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