Re: avoid.el patch correction

|--==> "RT" == Reuben Thomas <rrt(a)sc3d.org&gt; writes: RT> --- avoid.el Wed Apr 3 23:00:24 2002 RT> +++ lib/xemacs/xemacs-packages/lisp/edit-utils/avoid.el Wed Apr 3 23:15:43 2002 RT> ＠＠ -298,20 +298,22 ＠＠ RT> (setq mouse-avoidance-state nil)))))) RT> (defun mouse-avoidance-fancy-hook () RT> + (condition-case nil RT> ;; Used for the "fancy" modes, ie jump et al. RT> - (if (and (not executing-kbd-macro) ; don't check inside macro RT> - (mouse-avoidance-kbd-command (this-command-keys)) RT> - (mouse-avoidance-too-close-p (mouse-position))) RT> - (let ((old-pos (mouse-position))) RT> - (mouse-avoidance-nudge-mouse) RT> - ;; XEmacs change RT> - (if (not (eq (if (and (< emacs-major-version 20) RT> - (< emacs-minor-version 12)) RT> - (selected-frame) RT> - (selected-window)) (car old-pos))) ; move went awry RT> - (set-mouse-position (car old-pos) ; sigh.. RT> - (car (cdr old-pos)) RT> - (cdr (cdr old-pos))))))) RT> + (if (and (not executing-kbd-macro) ; don't check inside macro RT> + (mouse-avoidance-kbd-command (this-command-keys)) RT> + (mouse-avoidance-too-close-p (mouse-position))) RT> + (let ((old-pos (mouse-position))) RT> + (mouse-avoidance-nudge-mouse) RT> + ;; XEmacs change RT> + (if (not (eq (if (and (< emacs-major-version 20) RT> + (< emacs-minor-version 12)) RT> + (selected-frame) RT> + (selected-window)) (car old-pos))) ; move went awry RT> + (set-mouse-position (car old-pos) ; sigh.. RT> + (car (cdr old-pos)) RT> + (cdr (cdr old-pos)))))) RT> + (error nil))) RT> (defun mouse-avoidance-kbd-command (key) RT> "Return t if the KEYSEQENCE is composed of keyboard events only. I don't feel 100% comfortable with applying this. It seems like a bug cover up rather than a bug fix. Does anyone want to have a go at finding the real bug? -- |---<Steve Youngs>---------------<GnuPG KeyID: 10D5C9C5>---| | XEmacs - It's not just an editor. | | It's a way of life. | |------------------------------------&lt;youngs(a)xemacs.org&gt;---|