getstring

(getstring [espacios] [pregunta])

Pide un texto. Si el primer argumento no es nil, el espacio forma parte del texto y solo Intro lo termina. Devuelve "" con Intro.

(setq nombre (getstring T "\nNombre de la capa: "))