avoid.el: same old problem in mouse-avoidance-fancy-hook

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! I noticed just now when upgrading edit-utils that the problem I've reported several times with mouse-avoidance-fancy-hook (that it causes post-command-hook to be set to nil by causing an error) has still not been fixed. I include below my "fix", which is simply to wrap a condition-case around it, in the hope that it can be included in the next release. I guess there's an underlying bug that really needs fixing, but until such time as that is done (I have no incentive, since this fix works fine for me, and mouse-avoidance is hardly mission critical), this might help people who, like me, use mouse-avoidance-fancy-mode. --- avoid.el Wed Apr 3 23:00:24 2002 +++ lib/xemacs/xemacs-packages/lisp/edit-utils/avoid.el Wed Apr 3 22:58:50 2002 ＠＠ -298,6 +298,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,6 +313,7 ＠＠ (set-mouse-position (car old-pos) ; sigh.. (car (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. ---- cut here ================================================================ System Info to help track down your bug: --------------------------------------- uname -a: Linux emotion 2.4.9 #4 Thu Oct 4 18:45:05 BST 2001 i686 unknown ./configure '--prefix=/home/rrt' XEmacs 21.4.6 "Common Lisp" configured for `i686-pc-linux'. Compilation / Installation: Source code location: /home/rrt/src/xemacs-21.4.6 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. 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. Images: Compiling in support for GIF images (builtin). Compiling in support for XPM images. WARNING: ----------------------------------------------------------- WARNING: Compiling without PNG image support. WARNING: You should strongly consider installing the PNG libraries. WARNING: Otherwise certain images and glyphs may not display. WARNING: (a copy may be found in ftp://ftp.xemacs.org/pub/xemacs/aux) WARNING: ----------------------------------------------------------- Compiling in support for X-Face message headers. Sound: Compiling in support for sound (native). Databases: Compiling in support for Berkeley database. Internationalization: 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/bbdb-vm /home/rrt/lib/xemacs/xemacs-packages/lisp/bbdb/bbdb-vm /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 /home/rrt/elisp/vm-mime /home/rrt/lib/xemacs/xemacs-packages/lisp/vm/vm-mime) Installed XEmacs Packages: ------------------------- ((xemacs-devel:version 1.43 :type single-file) (xemacs-base :version 1.61 :type regular) (w3 :version 1.22 :type regular) (vm :version 7.03 :type regular) (view-process :version 1.11 :type regular) (vc :version 1.3 :type regular) (tm :version 1.32 :type regular) (time :version 1.11 :type regular) (textools :version 1.12 :type regular) (text-modes :version 1.4 :type single-file) (texinfo :version 1.2 :type regular) (strokes :version 1.08 :type regular) (speedbar :version 1.23 :type regular) (slider :version 1.13 :type regular) (sh-script :version 1.14 :type regular) (sgml :version 1.08 :type regular) (scheme :version 1.11 :type regular) (rmail :version 1.13 :type regular) (reftex :version 1.25 :type regular) (psgml :version 1.27 :type regular) (ps-print :version 1.03 :type regular) (prog-modes :version 1 .53 :type single-file) (pcomplete :version 1.01 :type regular) (pcl-cvs :version 1.6 :type regular) (pc :version 1.21 :type single-file) (os-utils :version 1.26 :type single-file) (net-utils :version 1.24 :type single-file) (mule-ucs :version 1.04 :type regular) (mule-base :version 1.39 :type regular) (mmm-mode :version 1.0 :type regular) (misc-games :version 1.15 :type single-file) (mailcrypt :version 2.11 :type regular) (mail-lib :version 1.44 :type regular) (leim :version 1.17 :type regular) (ispell :version 1.24 :type regular) (igrep :version 1.08 :type regular) (ibuffer :version 1.04 :type regular) (hm--html-menus :version 1.18 :type regular) (gnus :version 1.59 :type regular) (fsf-compat :version 1.11 :type single-file) (eterm :version 1.13 :type regular) (emerge :version 1.09 :type regular) (elib :version 1.1 :type single-file) (eieio :version 1.02 :type regular) (eicq :version 1.05 :type regular) (efs :version 1.28 :type regular) (edit-utils :version 1.82 :type single-file) (ediff :version 1.39 :type regular) (edebug :version 1.14 :type regular) (dired :version 1.11 :type regular) (dictionary :version 1.08 :type regular) (debug :version 1.14 :type regular) (cookie :version 1.14 :type regular) (cc-mode :version 1.27 :type regular) (calendar :version 1.18 :type regular) (calc :version 1.19 :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.3 :type regular) (apel :version 1.21 :type regular)) Features: -------- (mail-abbrevs xemacsbug shadow sendmail rfc822 efs-cu ffap shell comint font disp-table blink-cursor permanent-buffers where-was-i-db lazy-shot font-lock balloon-help avoid filladapt paren blink-paren after-save-commands advice advice-preload env tex-site cc-styles cc-vars wid-edit cc-defs mmm-auto mmm-vars mmm-compat regexp-opt ansi-color edmacro iswitchb find-files fm overlay bbdb timezone sb-info info speedbar sb-image dframe assoc vc ring vc-hooks jka-compr mwheel gnuserv time cus-face xemacs-devel-autoloads xemacs-base-autoloads w3-autoloads vm-autoloads view-process-autoloads vc-autoloads tm-autoloads time-autoloads textools-autoloads text-modes-autoloads texinfo-autoloads strokes-autoloads speedbar-autoloads slider-autoloads sh-script-autoloads sgml-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 mule-ucs-autoloads mule-base-autoloads mmm-mode-autoloads misc-games-autoloads mailcrypt-autoloads mail-lib-autoloads leim-autoloads ispell-autoloads igrep-autoloads ibuffer-autoloads hm--html-menus-autoloads gnus-autoloads fsf-compat-autoloads eterm-autoloads emerge-autoloads elib-autoloads eieio-autoloads eicq-autoloads efs-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 lisp-autoloads loadhist auto-show fontl-hooks x-iso8859-1 gutter-items menubar-items x-menubar mode-motion mouse itimer auto-save lisp-mode easymenu iso8859-1 page buff-menu lib-complete help-nomule cus-file derived frame text-props obsolete cus-start custom widget cl-extra mini-cl cl cl-19 packages backquote very-early-lisp 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 gutter gif xface xpm xbm lisp-float-type linux devices window-system base64) Recent keystrokes: ----------------- up up up up up up up up up up up up down down down down down down down down down down down down down down down down up C-e C-x C-s C-x k RET C-x k RET down M-p RET C-x 1 up up up up up up up up up up up up up up up up up up up up down down C-a C-SPC down down down down down down down down down down down down down down down down down down M-w M-x r e p o TAB r TAB - BS x e TAB RET Recent messages (most recent first): ----------------------------------- Loading xemacsbug...done Loading xemacsbug... Making completion list... History item: 1 Wrote /home/rrt/avoid.el Matches: (defun mouse-avoidance-fancy-hook () Matches: (defun mouse-avoidance-fancy-hook () Matches: (defun mouse-avoidance-fancy-hook () Matches: (car (cdr old-pos)) Matches: (defun mouse-avoidance-fancy-hook () Reading ~/avoid.el Loading efs-cu...done Loading efs-cu... Loading ffap...done Loading ffap... Partially completed Completing file name... Completed Completing file name... Press space to flush