mirror of
https://github.com/vale981/boon
synced 2025-03-04 17:11:40 -05:00
use boon-read-char where it should
This commit is contained in:
parent
4fda3ee2de
commit
6a71e9e2cc
1 changed files with 1 additions and 1 deletions
|
@ -34,7 +34,7 @@
|
|||
|
||||
(defun boon-spec-enclosure ()
|
||||
"Specify an enclosure style. To be used as an argument to interactive."
|
||||
(let* ((c (read-char "Specify the enclosure"))
|
||||
(let* ((c (boon-read-char "Specify the enclosure"))
|
||||
(s (make-string 1 c))
|
||||
(choice (assoc c boon-enclosures)))
|
||||
(if choice (cdr choice) (list s s))))
|
||||
|
|
Loading…
Add table
Reference in a new issue