X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fmwheel.el;h=03d439215ece52e32efaa8e11106eea386c0bc2c;hb=ed2f1aaada8bbf0a3f52ba159187b943590b604d;hp=57725f26462ec1a786551f39259b0647b556f611;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/mwheel.el b/lisp/mwheel.el
index 57725f2..03d4392 100644
--- a/lisp/mwheel.el
+++ b/lisp/mwheel.el
@@ -100,6 +100,7 @@ This can be slightly disconcerting, but some people may prefer it."
 ;;;###autoload
 (defun mwheel-install ()
   "Enable mouse wheel support."
+  (interactive)
   (let ((keys '([(mouse-4)] [(shift mouse-4)] [(mouse-5)] [(shift mouse-5)])))
     ;; This condition-case is here because Emacs 19 will throw an error
     ;; if you try to define a key that it does not know about.  I for one