cflowを実行する関数
(defvar *cflow-option-complete-list* nil "Cflow option complete list.") (defvar *cflow-file-complete-list* nil "Cflow file complete list.") (defun cflow() (interactive) (let (current file func) (setq current (get-clipboard-data)) (let (input) (setq input (completing-read "File: (default *.c) " *cflow-file-complete-list*)) (if (equal "" input) (setq file "*.c") (setq file input))) (let (input) (setq input (completing-read (concat "Function: (default " current ") ") *cflow-option-complete-list*)) (if (equal "" input) (setq func current) (setq func input))) (execute-shell-command (concat "cflow -m " func " " file) nil "*CFLOW*")))