help-gnu-emacs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: Using flyspell in Emacs on Mac OS X


From: Kevin Rodgers
Subject: Re: Using flyspell in Emacs on Mac OS X
Date: Fri, 11 Jul 2003 11:18:09 -0600
User-agent: Mozilla/5.0 (X11; U; SunOS i86pc; en-US; rv:0.9.4.1) Gecko/20020406 Netscape6/6.2.2

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]