[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: w3m-load.el
>> On Tue, 27 Apr 2004 17:15:27 +0900
>> 「山」== yamaoka@jpl.org (Katsumi Yamaoka) said as follows:
土> 末尾のパッチのように nowarn オプションを指定してみたらどうなるでしょ
土> う?
山> あ、そんなのが使えるんですね。でも残念ながら、しつこく質問してきま
山> す。
ふーむ．しかし，手元に Emacs22 も Emacs21.3.50 もないのでデバッグでき
ません…．後は，auto-insert-alist を nil に束縛してみるくらいですか?
バッチでなく，
(load "w3mhack")
(w3mhack-generate-load-file)
と普通に評価してみたらどうなるでしょう?
>>>>> In [emacs-w3m : No.06713] 土屋さん wrote:
山> T-gnus では install-package で gnus-load.el をインストールしません。
山> Gnus は XEmacs でも gnus-load.el をインストールするんですが、それ
山> は install-package が無いから。しかし独自の make rule を持っている
山> XEmacs package の Gnus には gnus-load.el がありません。
山> まあ、T-gnus ではけっこう苦労したので、こんなことを書くのは心苦し
山> いんですが、やはり筋は通した方が良いのではないかと。
えーっと，XEmacs package の場合は w3m-load.el のようなものを生成しては
いけない，という規約が存在するんでしょうか?
もし，w3m-load.el を生成しないならば，Emacs/XEmacs で ~/.emacs を共用
しているユーザーは
(when (locate-library "w3m-load")
(require 'w3m-load))
と書かなければいけないことになって面倒ではないでしょうか?
まあ，単純に w3m-load.el をインストールしないだけならば，末尾の変更で
対応できるので，それならそれで構わないんですけど．
--
土屋 雅稔 ( TSUCHIYA Masatoshi )
--- w3mhack.el 27 Apr 2004 07:02:10 -0000 1.124.2.1
+++ w3mhack.el 27 Apr 2004 08:21:31 -0000
@@ -1135,9 +1135,10 @@
(throw 'modified t)))))
(let ((generated-autoload-file (expand-file-name w3mhack-load-file))
(make-backup-files nil)
+ (auto-insert-alist nil)
(autoload-package-name "emacs-w3m"))
(save-excursion
- (set-buffer (find-file-noselect generated-autoload-file))
+ (set-buffer (find-file-noselect generated-autoload-file t))
(erase-buffer)
(goto-char (point-min))
(insert ";;; " w3mhack-load-file "\
--- Makefile.in 27 Apr 2004 07:02:10 -0000 1.58.2.1
+++ Makefile.in 27 Apr 2004 08:35:55 -0000
@@ -22,6 +22,7 @@
DOCS = COPYING ChangeLog ChangeLog.1 README README.ja
DISTS = Makefile.in aclocal.m4 configure configure.in install-sh mkinstalldirs
SUBDIRS = attic doc icons icons30 patches shimbun
+IGNORES = not-exist-file-name-pattern
default: all
@@ -58,8 +59,11 @@
install-lisp: lisp
@$(SHELL) $(srcdir)/mkinstalldirs $(lispdir);\
for p in ChangeLog* *.el; do\
- echo " $(INSTALL_DATA) $$p $(lispdir)/$$p";\
- $(INSTALL_DATA) $$p $(lispdir)/$$p;\
+ case "$$p" in\
+ $(IGNORES)) ;;\
+ *) echo " $(INSTALL_DATA) $$p $(lispdir)/$$p";\
+ $(INSTALL_DATA) $$p $(lispdir)/$$p;;\
+ esac\
done;\
for p in *.elc; do\
if test -f "$$p"; then\
@@ -114,7 +118,7 @@
echo "What a pity! Your \"$(EMACS)\" does not support"\
"a package system.";\
else\
- $(MAKE) lispdir="$(PACKAGEDIR)/lisp/w3m" install-lisp;\
+ $(MAKE) lispdir="$(PACKAGEDIR)/lisp/w3m" IGNORES=w3m-load.el install-lisp;\
$(MAKE) ICONDIR="$(PACKAGEDIR)/etc/w3m" install-icons30;\
$(MAKE) infodir="$(PACKAGEDIR)/info" install-info;\
echo "$(EMACS) $(FLAGS) -f w3mhack-make-package $(PACKAGEDIR)";\