一番シンプルなものはこういう感じになる. (require 'cl-lib) (defvar company-example-source '("newton" "gauss" "euler" "cauchy")) (defun company-example (command &optional arg &rest ignored) (interactive (list 'interactive)) (cl-case command …