[COMMIT] fix warnings
NOTE: This patch has been committed.
lisp/ChangeLog addition:
2005-01-26 Ben Wing <ben(a)xemacs.org>
* 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>
* 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