product-set-version-string

[TAKAHASHI Kaoru]

高橋です。

product-set-version-string についてです。

現状では単に

(product-provide 'wl-version
  (product-define "Wanderlust" nil '(2 3 0) "Roam"))

としただけでは version-string は設定されず、product-string-1() 
を呼んで

(product-set-version-string
 product (mapconcat (function int-to-string)
                    (product-version product)
                    "."))

を評価させてからでないと version-string を使えません。

product-string-1() のこの部分だけを切り出した関数を用意すると、
ありがちな version-string を設定するときに便利だと思うのですが、
いかがでしょう。

-- 
TAKAHASHI "beatmaria" Kaoru (高橋 郁) <kaoru ＠ kaisei.org>