kludge (was: interactive function which calls a list of functions: minbuffer)

The following function does more or less what I want. (defun pandoc-text-2-various () "Wrapper to call various function via the prompt. Code is ugly, but the only possiblity due to the restriction of the interactive function call. Code has been rewritten using `princ'. However this will not work nicely for more than say 30 functions!" (interactive) (with-output-to-temp-buffer "pandoc-list-buffer" (princ "List of functions\n") (princ "1: pnc-txt-2-RTF\n") (princ "2: pnc-txt-2-ODT\n") (princ "3: pnc-txt-2-LaTeX\n") (princ "4: pnc-txt-2-html\n") (princ "5: pnc-txt-2-epub\n")) (let ((ch (string-to-char (read-string "Which choice: 1: 2: 3: 4: 5: ")))) ; (setq ch (downcase ch)) ;Steve's Code, Reason??? (call-interactively (cond ((eql ch ?1) #'pandoc-txt-2-rtf) ((eql ch ?2) #'pandoc-txt-2-odt) ((eql ch ?3) #'pandoc-txt-2-latex) ((eql ch ?4) #'pandoc-txt-2-html) ((eql ch ?5) #'pandoc-txt-2-epub) (t (error 'args-out-of-range '(1 2 3 4 5 ch)))))) (kill-buffer "pandoc-list-buffer")) _______________________________________________ XEmacs-Beta mailing list XEmacs-Beta(a)xemacs.org http://lists.xemacs.org/mailman/listinfo/xemacs-beta