(if faces (mapconcat 'symbol-name faces ",")
string-describing-default))
(format "%s: " prompt))
- (complete-in-turn nonaliasfaces aliasfaces)
+ (completion-table-in-turn nonaliasfaces aliasfaces)
nil t nil nil
(if faces (mapconcat 'symbol-name faces ","))))
;; Canonicalize the output.