297 |
|
|
298 |
(defun ogonek-read-encoding (prompt default-name-var) |
(defun ogonek-read-encoding (prompt default-name-var) |
299 |
"Read encoding name with completion based on `ogonek-name-encoding-alist'. |
"Read encoding name with completion based on `ogonek-name-encoding-alist'. |
300 |
Store the name in the the parameter-variable DEFAULT-NAME-VAR. |
Store the name in the parameter-variable DEFAULT-NAME-VAR. |
301 |
PROMPT is a string to be shown when the user is asked for a name." |
PROMPT is a string to be shown when the user is asked for a name." |
302 |
(let ((encoding |
(let ((encoding |
303 |
(completing-read |
(completing-read |