NOTE: This patch has been committed. lisp/ChangeLog addition: 2005-01-26 Ben Wing <ben(a)xemacs.org&gt; * frame.el (display-mouse-p): Fix warning. * cl.el (cl-random-time): Conditionalize on coerce-number as Jerry says it's OK. lib-src/ChangeLog addition: 2005-01-26 Ben Wing <ben(a)xemacs.org&gt; * fakemail.c (main): Add args to fix warning. symlink source patch: Diff command: bash -ci "cvs-diff --show-c-function -no-changelog " Files affected: lib-src/fakemail.c lisp/cl.el lisp/frame.el Index: lisp/frame.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/frame.el,v retrieving revision 1.22 diff -u -p -r1.22 frame.el --- lisp/frame.el 2004/11/04 23:05:55 1.22 +++ lisp/frame.el 2005/01/26 09:52:19 ＠＠ -1186,7 +1186,7 ＠＠ selected frame)." (case (framep-on-display display) ;; We assume X, NeXTstep, and GTK *always* have a pointing device ((x ns gtk) t) - (mswindows (> mswindows-num-mouse-buttons 0)) + (mswindows (> (declare-boundp mswindows-num-mouse-buttons) 0)) (tty (and-fboundp 'gpm-is-supported-p (gpm-is-supported-p (display-device display)))) Index: lisp/cl.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/cl.el,v retrieving revision 1.14 diff -u -p -r1.14 cl.el --- lisp/cl.el 2004/11/04 23:05:54 1.14 +++ lisp/cl.el 2005/01/26 09:52:21 ＠＠ -307,8 +307,8 ＠＠ definitions to shadow the loaded ones fo (defun cl-random-time () (let* ((time (copy-sequence (current-time-string))) (i (length time)) (v 0)) (while (>= (decf i) 0) (setq v (+ (* v 3) (aref time i)))) - (if (featurep 'bignum) - (declare-fboundp (coerce-number v 'fixnum)) + (if-fboundp 'coerce-number + (coerce-number v 'fixnum) v))) (defvar *gensym-counter* (* (logand (cl-random-time) 1023) 100)) Index: lib-src/fakemail.c =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lib-src/fakemail.c,v retrieving revision 1.7 diff -u -p -r1.7 fakemail.c --- lib-src/fakemail.c 2004/09/20 19:19:10 1.7 +++ lib-src/fakemail.c 2005/01/26 09:52:22 ＠＠ -34,7 +34,7 ＠＠ main (int argc, char *argv[]) #include <stdio.h> #include <stdlib.h> int -main () +main (int argc, char *argv[]) { /* Linux /bin/mail, if it exists, is NOT the Unix v7 mail that fakemail depends on! This causes garbled mail. Better to