レス数が950を超えています。1000を超えると表示できなくなるよ。

Emacs part3

778 ：名無しさん＠お腹いっぱい。 ：02/01/30 17:28

>>773
(defun my-minibuffer-read-number-list()
(interactive)
(let* ((string (read-from-minibuffer "Input: "))
(num-list (mapcar 'string-to-int
(split-string string "[ \f\t\n\r\v]+"))))
num-list))

使い方: 入力が "78 8.3 12.0" なら arg に (78 8.3 12.0) が入る
(setq arg
(my-minibuffer-read-number-list))

んー、無意味に長い。

read.cgi ver5.26+ (01/10/21-)