mouse-avoidance-fancy-hook patch

This bug report will be sent to the XEmacs Development Team, not to your local site managers!! Please write in English, because the XEmacs maintainers do not have translators to read other languages for them. Please describe as succinctly as possible: - What happened. - What you thought should have happened. - Precisely what you were doing at the time. Please also include any C or lisp back-traces that you may have. ================================================================ Dear Bug Team! In edit-utils 1.88 the mouse-avoidance-fancy-hook problem is still evident: activating a fancy mouse-avoidance mode causes errors sometimes when switching between buffers (a buffer out of bounds error). The patch below fixes it. I've reported this (and supplied the fix) a few times before. If there's something wrong with it, please tell me. I'm interested in getting it right because at the moment I have to reapply it manually every time edit-utils is updated. I also note the misspelling "KEYSEQENCE" in the bottom line of the patch. --- avoid.el Sat Jun 29 09:56:19 2002 +++ avoid.el.new Thu Jun 27 09:34:58 2002 ＠＠ -299,6 +299,7 ＠＠ (setq mouse-avoidance-state nil)))))) (defun mouse-avoidance-fancy-hook () + (condition-case nil ;; Used for the "fancy" modes, ie jump et al. (if (and (not executing-kbd-macro) ; don't check inside macro (mouse-avoidance-kbd-command (this-command-keys)) ＠＠ -312,7 +313,8 ＠＠ (selected-window)) (car old-pos))) ; move went awry (set-mouse-position (car old-pos) ; sigh.. (car (cdr old-pos)) - (cdr (cdr old-pos))))))) + (cdr (cdr old-pos)))))) + (error nil))) (defun mouse-avoidance-kbd-command (key) "Return t if the KEYSEQENCE is composed of keyboard events only. ================================================================ System Info to help track down your bug: --------------------------------------- uname -a: Linux mnemosyne 2.4.18-4 #1 Thu May 2 18:10:25 EDT 2002 i686 unknown ./configure '--prefix=/home/rrt' '--with-mule' XEmacs 21.4.8 "Honest Recruiter" configured for `i686-pc-linux'. Compilation / Installation: Source code location: /home/rrt/src/xemacs-21.4.8 Installation prefix: /home/rrt Operating system description file: `s/linux.h' Machine description file: `m/intel386.h' Compiler: gcc -g -O3 -Wall -Wno-switch -Winline -Wmissing-prototypes -Wsign-compare -Wshadow Relocating allocator for buffers: no GNU version of malloc: yes - Using Doug Lea's new malloc from the GNU C Library. Linking with `-z nocombreloc'. - Consider configuring with --pdump. Window System: Compiling in support for the X window system: - X Windows headers location: /usr/X11R6/include - X Windows libraries location: /usr/X11R6/lib - Handling WM_COMMAND properly. Using Lucid menubars. Using Lucid scrollbars. TTY: Compiling in support for ncurses. Compiling in support for GPM (General Purpose Mouse). Images: Compiling in support for GIF images (builtin). Compiling in support for XPM images. Compiling in support for PNG images. Compiling in support for JPEG images. Compiling in support for TIFF images. Compiling in support for X-Face message headers. Sound: Compiling in support for sound (native). Databases: Compiling in support for Berkeley database. Compiling in support for PostgreSQL. - Using PostgreSQL header file: libpq-fe.h - Using PostgreSQL V7 bindings. Internationalization: Compiling in support for Mule (multi-lingual Emacs). Compiling in support for XIM (X11R5+ I18N input method). - Using raw Xlib to provide XIM support. Mail: Compiling in support for "dot-locking" mail spool file locking method. Other Features: Inhibiting IPv6 canonicalization at startup. Compiling in support for dynamic shared object modules. Load-Path Lisp Shadows: ---------------------- (/home/rrt/elisp/winring /home/rrt/lib/xemacs/xemacs-packages/lisp/edit-utils/winring /home/rrt/elisp/setnu /home/rrt/lib/xemacs/xemacs-packages/lisp/edit-utils/setnu) Installed XEmacs Packages: ------------------------- ((xslt-process:version 1.07 :type regular) (xslide :version 1.02 :type regular) (xemacs-devel :version 1.44 :type single-file) (xemacs-base :version 1.63 :type regular) (w3 :version 1.23 :type regular) (vm :version 7.07 :type regular) (view-process :version 1.11 :type regular) (vc :version 1.33 :type regular) (tramp :version 1.05 :type regular) (tm :version 1.32 :type regular) (time :version 1.11 :type regular) (textools :version 1.12 :type regular) (text-modes :version 1.46 :type single-file) (texinfo :version 1.2 :type regular) (supercite :version 1.19 :type regular) (strokes :version 1.08 :type regular) (speedbar :version 1.23 :type regular) (sounds-wav :version 1.1 :type regular) (slider :version 1.13 :type regular) (sieve :version 1.07 :type regular) (sh-script :version 1.15 :type regular) (sgml :version 1.08 :type regular) (semantic :version 1.12 :type regular) (scheme :version 1.11 :type regular) (rmail :version 1.13 :type regular) (reftex :version 1.25 :type regular) (psgml :version 1.28 :type regular) (ps-print :version 1.04 :type regular) (prog-modes :version 1 .57 :type single-file) (pcomplete :version 1.01 :type regular) (pcl-cvs :version 1.63 :type regular) (pc :version 1.25 :type single-file) (os-utils :version 1.28 :type single-file) (net-utils :version 1.25 :type single-file) (mmm-mode :version 1.0 :type regular) (misc-games :version 1.15 :type single-file) (mine :version 1.14 :type regular) (mailcrypt :version 2.11 :type regular) (mail-lib :version 1.46 :type regular) (liece :version 1.05 :type regular) (jde :version 1.35 :type regular) (ispell :version 1.24 :type regular) (ilisp :version 1.26 :type regular) (igrep :version 1.08 :type regular) (ibuffer :version 1.07 :type regular) (hm--html-menus :version 1.18 :type regular) (haskell-mode :version 1.04 :type regular) (gnus :version 1.61 :type regular) (gnats :version 1.14 :type regular) (games :version 1.13 :type regular) (fsf-compat :version 1.11 :type single-file) (frame-icon :version 1.09 :type regular) (forms :version 1.14 :type regular) (footnote :version 1.15 :type regular) (eudc :version 1.36 :type regular) (eterm :version 1.13 :type regular) (eshell :version 1.03 :type regular) (emerge :version 1.09 :type regular) (elib :version 1.1 :type single-file) (eieio :version 1.02 :type regular) (efs :version 1.29 :type regular) (edt :version 1.12 :type regular) (edit-utils :version 1.88 :type single-file) (ediff :version 1.41 :type regular) (edebug :version 1.14 :type regular) (dired :version 1.12 :type regular) (dictionary :version 1.11 :type regular) (debug :version 1.15 :type regular) (cookie :version 1.14 :type regular) (cc-mode :version 1.28 :type regular) (calendar :version 1.18 :type regular) (calc :version 1.23 :type regular) (c-support :version 1.16 :type single-file) (build :version 1.05 :type regular) (bbdb :version 1.2 :type regular) (auctex :version 1.31 :type regular) (apel :version 1.23 :type regular) (ada :version 1.1 :type regular) (mule-ucs :version 1.04 :type regular) (mule-base :version 1.4 :type regular) (lookup :version 1.1 :type regular) (leim :version 1.18 :type regular) (latin-unity :version 1.05 :type regular) (egg-its :version 1.26 :type regular)) Features: -------- (xemacsbug shadow package-ui package-get package-admin config shell netrc smtpmail time-stamp vm-mime vm-reply vm-virtual vm-toolbar vm-motion vm-summary tapestry vm-menu vm-folder vm-misc vm-mouse vm-window message mml mm-decode mm-encode mailcap mm-bodies uudecode mail-parse rfc2045 rfc2231 rfc2047 gnus-util qp ietf-drums time-date parse-time mailheader vm-grepmail mailcrypt comint vm-pine vm-macro vm-message bbdb-vm bbdb-snarf mail-extr bbdb-com mail-abbrevs sendmail rfc822 vm-summary-faces smiley annotations messagexmas nnheader nnheaderxm mm-util mail-prsvr mail-utils vm-autoload highlight-headers vm-vars vm-version vm vm-startup cl-specs info cperl-mode font disp-table blink-cursor permanent-buffers desktop lazy-lock lazy-shot balloon-help avoid filladapt paren blink-paren after-save-commands env scroll-in-place rsz-minibuf func-menu font-lock crypt crypt++ completer efs-cu efs-x19.15 efs-fnh efs-ovwrt efs-auto dired-faces dired-xemacs dired gnuserv pending-del change-mode advice advice-preload fm vc ring vc-hooks ansi-color tex-site cc-styles cc-vars wid-edit cc-defs mmm-auto mmm-vars mmm-compat overlay regexp-opt newcomment edebug eval-reg ffap edmacro iswitchb find-files bbdb timezone recent-files jka-compr mwheel time cus-face xslt-process-autoloads xslide-autoloads xemacs-devel-autoloads xemacs-base-autoloads w3-autoloads vm-autoloads view-process-autoloads vc-autoloads tramp-autoloads tm-autoloads time-autoloads textools-autoloads text-modes-autoloads texinfo-autoloads supercite-autoloads strokes-autoloads speedbar-autoloads sounds-wav-autoloads slider-autoloads sieve-autoloads sh-script-autoloads sgml-autoloads semantic-autoloads scheme-autoloads rmail-autoloads reftex-autoloads psgml-autoloads ps-print-autoloads prog-modes-autoloads pcomplete-autoloads pcl-cvs-autoloads pc-autoloads os-utils-autoloads net-utils-autoloads mmm-mode-autoloads misc-games-autoloads mine-autoloads mailcrypt-autoloads mail-lib-autoloads liece-autoloads jde-autoloads ispell-autoloads ilisp-autoloads igrep-autoloads ibuffer-autoloads hm--html-menus-autoloads haskell-mode-autoloads gnus-autoloads gnats-autoloads games-autoloads fsf-compat-autoloads frame-icon-autoloads forms-autoloads footnote-autoloads eudc-autoloads eterm-autoloads eshell-autoloads emerge-autoloads elib-autoloads eieio-autoloads efs-autoloads edt-autoloads edit-utils-autoloads ediff-autoloads edebug-autoloads dired-autoloads dictionary-autoloads debug-autoloads cookie-autoloads cc-mode-autoloads calendar-autoloads calc-autoloads c-support-autoloads build-autoloads bbdb-autoloads auctex-autoloads apel-autoloads ada-autoloads mule-ucs-autoloads mule-base-autoloads lookup-autoloads leim-autoloads latin-unity-autoloads egg-its-autoloads lisp-autoloads loadhist auto-show fontl-hooks x-iso8859-1 slovenian czech romanian ccl mule-help code-cmds gutter-items menubar-items x-menubar mode-motion mouse itimer auto-save lisp-mode easymenu iso8859-1 page buff-menu lib-complete cus-file derived frame text-props obsolete cus-start custom widget cl-extra mini-cl cl cl-19 packages backquote very-early-lisp postgresqlv7 postgresql file-coding mule lucid-scrollbars cut-buffer lucid-menubars x c-balloon-help tty-frames tty toolbar native-sound scrollbar unix-processes multicast network-streams subprocesses modules menu-accelerator-support menubar berkeley-db md5 xemacs xim gutter tiff png gif jpeg xface xpm xbm lisp-float-type linux devices window-system base64) Recent keystrokes: ----------------- down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down down q M-x r e p TAB o TAB r TAB x TAB RET Recent messages (most recent first): ----------------------------------- Loading xemacsbug...done Loading xemacsbug... Making completion list... Making completion list... Creating package list ... Updated package-get database Got 101 package-get database entries Loading package-ui...done Loading package-ui... Loading package-get...done Loading package-get... History item: 1 Wrote /home/rrt/lib/xemacs/xemacs-packages/lisp/edit-utils/avoid.el Matches: (if (and (not executing-kbd-macro) ; don't check inside macro Matches: (defun mouse-avoidance-fancy-hook () Matches: (defun mouse-avoidance-fancy-hook () ~/lib/xemacs/xemacs-packages/lisp/edit-utils/ Loading shell...done Loading shell... Quit -- http://www.mupsych.org/rrt/ | Slow Pedestrian Crossing