コマンドを定義する

(defun hello-world()
  (interactive) ;; このおまじないで関数をコマンドにする
  (message "%s" "Hello, world!"))
;; 文字列をエコーエリアに表示するmessage関数を利用している
(defun testint-b (arg) (interactive "b既存バッファ: ") (message "%s" arg)) ; => testint-b
(defun testint-B (arg) (interactive "Bバッファ: ") (message "%s" arg)) ; => testint-B
(defun testint-D (arg) (interactive "Dディレクトリ: ") (message "%s" arg)) ; => testint-D
(defun testint-f (arg) (interactive "f既存ファイル名: ") (message "%s" arg)) ; => testint-f
(defun testint-F (arg) (interactive "Fファイル名: ") (message "%s" arg)) ; => testint-F
(defun testint-n (arg) (interactive "n数値: ") (message "%s" arg)) ; => testint-n
(defun testint-s (arg) (interactive "s文字列: ") (message "%s" arg)) ; => testint-s

でもいきなりanythingで補完してくれません。

Emacs Lispテクニックバイブル