lisp/textmodes/table.el (table-generate-source): Fix completing-read call

Doesn't make sense to pass '(("html") ("latex") ("cals")) to
`completing-read'.

diff --git a/lisp/textmodes/table.el b/lisp/textmodes/table.el
index 3502adf5e292049d08c3dc9508a361e135f60dc9..8330e1772d73bca27926ff80468c5e821a560078 100644 (file)
--- a/lisp/textmodes/table.el
+++ b/lisp/textmodes/table.el
@@ -2968,8 +2968,7 @@ CALS (DocBook DTD):
          (default (car table-source-language-history))
          (language (downcase (completing-read
                               (format "Language (default %s): " default)
-                              (mapcar (lambda (s) (list (symbol-name s)))
-                                      table-source-languages)
+                              table-source-languages
                               nil t nil 'table-source-language-history default))))
      (list
       (intern language)