・ (getstring) で空白（スペース）を許容する

空白を認めない
(setq str_a (getstring "\n文字を入力" ) )

空白を許容する
(setq str_a (getstring T "\n文字を入力" ) )