use boon-read-char where it should

This commit is contained in:
Jean-Philippe Bernardy 2015-10-16 14:31:03 +02:00
parent 4fda3ee2de
commit 6a71e9e2cc

View file

@ -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))))