🚀 go-pugleaf

>>>>> In <c9j1kk$uqh$1@news-est.ocn.ad.jp> 兼松さん wrote:

>   Windows 2000 professional + Meadow 2.00 + dired + dired-xで、「[a]」
> のような`['と`]'でかこまれたディレクトリを閲覧しようとすると、
>   ls-lisp-insert-directory: Wrong type argument: stringp, t
> というエラーが出ます。

何だか Emacs 21.3 までの ls-lisp-insert-directory には根本的な虫
がいるみたいですね (wildcard という一時変数)。とりあえず CVS head
の ls-lisp.el から ls-lisp-insert-directory の関数定義だけをパクっ
てきて、その中で directory-files-and-attributes に与えている第5
変数を消す[1]と、うまく動くみたいです。Meadow 2 にはあんまり詳し
くないので、お次の方どうぞ。:)

[1]
--- ls-lisp.el~	2003-12-27 18:12:20 +0000
+++ ls-lisp.el	2004-06-02 03:43:06 +0000
@@ -267,7 +267,7 @@
       (let* ((dir (file-name-as-directory file))
 	     (default-directory dir)	; so that file-attributes works
 	     (file-alist
-	      (directory-files-and-attributes dir nil wildcard-regexp t 'string))
+	      (directory-files-and-attributes dir nil wildcard-regexp t))
 	     (now (current-time))
 	     (sum 0)
 	     ;; do all bindings here for speed
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

>>>>> In <b9yr7syk4is.fsf@jpl.org> 山岡 wrote:

> とりあえず CVS head の ls-lisp.el から ls-lisp-insert-directory の関
> 数定義だけをパクってきて、...

あるいは

(defadvice dired-noselect (around dont-use-wildcards activate)
  "Don't use wildcards."
  (let (ls-lisp-support-shell-wildcards)
    ad-do-it))

それとも単に

(setq ls-lisp-support-shell-wildcards nil)

> Meadow 2 にはあんまり詳しくないので、お次の方どうぞ。:)

こうしてしまって困らないのかどうかわからないのです。
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

>>>>> <b9yr7syk4is.fsf@jpl.org> にて
>>>>> "山岡" = Katsumi Yamaoka さんは書きました:
山岡> >   Windows 2000 professional + Meadow 2.00 + dired + dired-xで、「[a]」
山岡> > のような`['と`]'でかこまれたディレクトリを閲覧しようとすると、
山岡> >   ls-lisp-insert-directory: Wrong type argument: stringp, t
山岡> > というエラーが出ます。

山岡> 何だか Emacs 21.3 までの ls-lisp-insert-directory には根本的な虫
山岡> がいるみたいですね (wildcard という一時変数)。とりあえず CVS head
山岡> の ls-lisp.el から ls-lisp-insert-directory の関数定義だけをパクっ
山岡> てきて、その中で directory-files-and-attributes に与えている第5
山岡> 変数を消す[1]と、うまく動くみたいです。

ありがとうございます。
この修正を Meadow2 に取り込んでおきました。

--
三好 雅則 http://www.boreas.dti.ne.jp/~miyoshi/

>>>>> In <b9yy8n61prv.fsf@jpl.org> 
>>>>>	Katsumi Yamaoka <yamaoka@jpl.org> wrote:
Yamaoka> (defadvice dired-noselect (around dont-use-wildcards activate)
Yamaoka>   "Don't use wildcards."
Yamaoka>   (let (ls-lisp-support-shell-wildcards)
Yamaoka>     ad-do-it))

  御教示ありがとうございます。
  とりあえず、上記の定義を.emacsに入れて、問題を回避することにしました。

#   数ヶ月以上前に、meadow 1.15でも、この問題に気付いていたのですが、
# その時に質問しておけばよかったですね。
#   meadow 1.15だと、「[a]」のようなディクトリ名の後に「/*」を付けると、
# ちょっと不便ですが、ディレクトリを閲覧できたので、遠慮して質問を投稿
# しませんでした。
---
兼松真哉

>>>>> In <h6kvc.3$R55.1829@newsall.dti.ne.jp> 
>>>>>	MIYOSHI Masanori <miyoshi@meadowy.org> wrote:
三好> ありがとうございます。
三好> この修正を Meadow2 に取り込んでおきました。

  きょうnetinstallしてみたところ、ls-lispが更新されているようでしたの
で、diredを試してみたところ、以下の項2のように異常終了しました。

1.  (emacs-version) の結果。
"GNU Emacs 21.1.1 (i386-mingw-nt5.0.2195)
 of 2004-06-02 on STAYHIGH"

2.  Enter Debugger on Errorを有効にして、ディレクトリを開こうとした時
  のエラーメッセージ
Debugger entered--Lisp error: (wrong-type-argument stringp t)
  directory-files-and-attributes("d:/tmp/tmp/[a]/" nil t t)
  ls-lisp-insert-directory("d:/tmp/tmp/[a]/" (97 108) nil nil t)
  insert-directory("d:/tmp/tmp/[a]/" "-al" nil t)
  dired-insert-directory("d:/tmp/tmp/[a]/" "-al" nil t)
  dired-readin-insert("d:/tmp/tmp/[a]/")
  dired-readin("d:/tmp/tmp/[a]/" #<buffer [a]>)
  dired-internal-noselect("d:/tmp/tmp/[a]/" nil)
  dired-noselect("d:/tmp/tmp/[a]")
  run-hook-with-args-until-success(dired-noselect "d:/tmp/tmp/[a]")
  find-file-noselect("d:/tmp/tmp/[a]" nil nil nil)
  find-file("d:/tmp/tmp/[a]")
  ad-Orig-dired-advertised-find-file()
  dired-advertised-find-file()
* call-interactively(dired-advertised-find-file)
---
兼松真哉

>>>>> In <c9pr3d$u3i$1@news-est.ocn.ad.jp> 
>>>>>	Sin'ya <ksinya@quartz.ocn.ne.jp> wrote:

>   きょうnetinstallしてみたところ、ls-lispが更新されているようでしたの
> で、diredを試してみたところ、以下の項2のように異常終了しました。

[...]

> Debugger entered--Lisp error: (wrong-type-argument stringp t)
>   directory-files-and-attributes("d:/tmp/tmp/[a]/" nil t t)
>   ls-lisp-insert-directory("d:/tmp/tmp/[a]/" (97 108) nil nil t)

これから確実に判断できるのは、まだ cvs head の
ls-lisp-insert-directory が取り込まれていないことです。:)
-- 
Katsumi Yamaoka <yamaoka@jpl.org>

>>>>> In <c9pr3d$u3i$1@news-est.ocn.ad.jp> 
>>>>> Sin'ya wrote:
>   きょうnetinstallしてみたところ、ls-lispが更新されているようでしたの
> で、diredを試してみたところ、以下の項2のように異常終了しました。

Meadow.exe-20040605-1-pkg.tar.gz を試してみてください。

;; meadow-develop メーリングリストもごらんください。
-- 
こせき // サポートページ
http://www.NetLaputa.ne.jp/~kose/MeadowBook/

>>>>> In <c9sgoa$8rs$1@news-est.ocn.ad.jp> 
>>>>>	Sin'ya <ksinya@quartz.ocn.ne.jp> wrote:
兼松>   ところで、diredバッファで、d:/tmp/tmp/b.txt を d:/tmp/tmp/tmp9/ に
兼松> 「C」でコピーした際の *Backtrace* バッファの内容を、シグナチャの下に付
兼松> けます。
兼松>   コピーそのものはされるようです。

すみません。CVS HEAD の ls-lisp-insert-directory() の取り込み方が
不完全でしたので、対策しておきました。

--
三好 雅則 http://www.boreas.dti.ne.jp/~miyoshi/

>>>>> In <c9sgoa$8rs$1@news-est.ocn.ad.jp> 
>>>>> “Sin'ya” = Sin'ya wrote:
Sin'ya>   はやとちりして、すみません。もうすこし待ってみるべきでした。

あ、いや、どんどん言ってください。
こちらこそすみません。動作確認していなかったのです。

>>>>> In <FAtwc.1$Q1.45@newsall.dti.ne.jp> 
>>>>> “三好” = MIYOSHI Masanori wrote:
三好> >>>>> In <c9sgoa$8rs$1@news-est.ocn.ad.jp> 
三好> >>>>>	Sin'ya <ksinya@quartz.ocn.ne.jp> wrote:
兼松>   ところで、diredバッファで、d:/tmp/tmp/b.txt を d:/tmp/tmp/tmp9/ に
兼松> 「C」でコピーした際の *Backtrace* バッファの内容を、シグナチャの下に付
兼松> けます。
兼松>   コピーそのものはされるようです。

三好> すみません。CVS HEAD の ls-lisp-insert-directory() の取り込み方が
三好> 不完全でしたので、対策しておきました。

Meadow.exe-20040606-1-pkg.tar.gz を作りました。こんどこそ。

P.S.
: User-Agent: Wanderlust/2.11.26 (Wonderwall) EMIKO/1.14.1
:  (Choanoflagellata) LIMIT/1.14.8 (Hajinosato) APEL/10.6 Emacs/21.3
                                                          ~~~~~~~~~~
:  (i386-msvc-nt5.1.2600) MULE/5.0 (SAKAKI) Meadow/2.10-dev (ASAGAO)
                                            ~~~~~~~~~~~~~~~~~~~~~~~
Netinstall package 作っちゃおうかな。

P.P.S.
Emacs 21.4 リリースの話はどうなっちゃったんでしょうか?
まだなのかなあ。
-- 
こせき // サポートページ
http://www.NetLaputa.ne.jp/~kose/MeadowBook/