split-string

[Katsumi Yamaoka]

>>>>> In [apel-ja : No.00648] 
>>>>>	Katsumi Yamaoka <yamaoka ＠ jpl.org> wrote:

山岡> これは文字列の最初と最後の "/" を無視させているだけですが、

`最後の' がダメだったので出し直します。^^;;

(let* ((path "/hoge//fuga")
       (len (length path)))
  (split-string (substring path
			   (if (eq (aref path 0) ?/)
			       1
			     0)
			   (if (eq (aref path (1- len)) ?/)
			       (1- len)
			     len))
		"/"))

;; この例は XEmacs と FSFmacs の違いがプログラマを苦しめる好例で
;; すね。:-p
-- 
Katsumi Yamaoka <yamaoka ＠ jpl.org>