[xyzzy:08852] glob.l について

["Ohkubo Hiroshi" <konata_o@xxxxxxxxxxx>]

亀井さん、ML の皆さんこんにちは。
OHKUBO Hiroshi です。

へなちょこなものを記述している際に 0.2.2.233 にて lisp/glob.l について
2 点気が付いたので報告します。

■修正
・glob-enumerator
number を期待している場所に文字列が渡されている点を修正。
----------------------------------------------------------------------
diff.exe --dos -ab "glob.l" "glob.l.new"
113c113
< 		  (setq dir (if slash (subseq dir 0 (1+ dir)) ""))))
---
> 		  (setq dir (if slash (subseq dir 0 (1+ (length dir))) ""))))
----------------------------------------------------------------------

■仕様確認
・glob-common-length dirs
・glob-common-path dirs
引数の dirs に同一文字列が存在すると glob-common-length の戻り値が 0 に、
結果として glob-common-path の戻り値が "" になります。

現在以下のような動作ですが、期待通りの動作でしょうか。
期待通りの動作のような気もしますし、そうでないような気もします。
ご確認お願いいたします。

----------------------------------------------------------------------
(require "glob")

;; 1. : 正常パターン 1
(setq dirlist '("d:/utils/xyzzy/etc/" "d:/utils/xyzzy/html/"))
=> ("d:/utils/xyzzy/etc/" "d:/utils/xyzzy/html/")
(glob-common-length dirlist)
=> 15
(glob-common-path dirlist)
=> "d:/utils/xyzzy/"

;; 2. : 疑問パターン 1
(setq dirlist '("d:/utils/xyzzy/etc/" "d:/utils/xyzzy/etc/"))
=> ("d:/utils/xyzzy/etc/" "d:/utils/xyzzy/etc/")
(glob-common-length dirlist)
=> 0
(glob-common-path dirlist)
=> ""

;; 3. : 正常パターン 2
(setq dirlist '("d:/utils/xyzzy/etc/" "d:/utils/xyzzy/etc"))
=> ("d:/utils/xyzzy/etc/" "d:/utils/xyzzy/etc")
(glob-common-length dirlist)
=> 15
(glob-common-path dirlist)
=> "d:/utils/xyzzy/"

;; 4. : 疑問パターン 2
(setq dirlist '("d:/utils/xyzzy/etc/C" "d:/utils/xyzzy/etc/C"))
=> ("d:/utils/xyzzy/etc/C" "d:/utils/xyzzy/etc/C")
(glob-common-length dirlist)
=> 0
(glob-common-path dirlist)
=> ""
----------------------------------------------------------------------

以上、宜しくお願いいたします。

---
OHKUBO Hiroshi
konata_o@xxxxxxxxxxx
http://members.tripod.co.jp/ohkubo/index.html

_________________________________________________________________
会員登録は無料  充実した出品アイテムなら MSN オークション  
http://auction.msn.co.jp/