20.2.3 interactive
の使用例
ここではinteractive
の例を示します。
(defun foo1 () ; foo1
は引数なし
(interactive) ; 2単語分先へ進める
(forward-word 2))
=> foo1
(defun foo2 (n) ; foo2
は1引数
(interactive "p") ; 数値前置引数
(forward-word (* 2 n)))
=> foo2
(defun foo3 (n) ; foo3
は1引数
(interactive "nCount:") ; ミニバッファで読む
(forward-word (* 2 n)))
=> foo3
(defun three-b (b1 b2 b3)
"Select three existing buffers.
Put them into three windows, selecting the last one."
(interactive "bBuffer1:\nbBuffer2:\nbBuffer3:")
(delete-other-windows)
(split-window (selected-window) 8)
(switch-to-buffer b1)
(other-window 1)
(split-window (selected-window) 8)
(switch-to-buffer b2)
(other-window 1)
(switch-to-buffer b3))
=> three-b
(three-b "*scratch*" "declarations.texi" "*mail*")
=> nil