15/05/06 03:36:15.44 uEZzm+120.net
NTemacs の仕様かわからないけど exec-path の1番目の要素の先頭が小文字になることに気付いた
別に動作的には問題ないのだけど add-to-list で追加するときに大文字と小文字が区別されて
パスがだぶる場合があって気持ち悪い
あと、個人の都合で exec-path の各要素の末尾の"/"は取り除きたい
ってことで以下のようにしてみた
(dotimes (i (length exec-path))
(setf (nth i exec-path) (replace-regexp-in-string "\\([a-z]\\):/" 'upcase (nth i exec-path)))
(setf (nth i exec-path) (replace-regexp-in-string "/\\'" "" (nth i exec-path))))
ただ"replace-regexp-in-string"を2回使ってるのがダサい
もっといいやり方があれば教えてください