Re: Using flyspell in Emacs on Mac OS X

[Kevin Rodgers]

Pierre Gaston wrote:

> (defun middle-click (click &optional arg)
>   (interactive "e\nP")
>   (let ((event (event-start click)))
>     ;; handle error if the function doesn't use the prefix
>     (condition-case nil
>         (funcall (key-binding (vector (list 'mouse-2 event))) click arg)
>       (error (funcall (key-binding (vector (list 'mouse-2 event))) click)))))

Can that be simplified to:


(defun middle-click (click)
  (interactive "e")
  (let ((event (event-start click))
        (prefix-arg current-prefix-arg))
    (call-interactively (key-binding (vector (list 'mouse-2 event)) t))))

--
Kevin Rodgers