# HG changeset patch
# User ben
# Date 1106733212 0
# Node ID 6a9afa282c8e38f744748e9b09ec3ffeec5425e7
# Parent  14f65fa1e69e8ae0881865dac2097e945c03457e
[xemacs-hg @ 2005-01-26 09:53:28 by ben]
fix warnings

frame.el: Fix warning.
cl.el: Conditionalize on coerce-number as Jerry says it's OK.

fakemail.c: Add args to fix warning.

diff -r 14f65fa1e69e -r 6a9afa282c8e lib-src/ChangeLog
--- a/lib-src/ChangeLog	Wed Jan 26 09:51:23 2005 +0000
+++ b/lib-src/ChangeLog	Wed Jan 26 09:53:32 2005 +0000
@@ -1,3 +1,7 @@
+2005-01-26  Ben Wing  <ben@xemacs.org>
+
+	* fakemail.c (main):  Add args to fix warning.
+
 2005-01-25  Ben Wing  <ben@xemacs.org>
 
 	* insert-data-in-exec.c (main):
diff -r 14f65fa1e69e -r 6a9afa282c8e lib-src/fakemail.c
--- a/lib-src/fakemail.c	Wed Jan 26 09:51:23 2005 +0000
+++ b/lib-src/fakemail.c	Wed Jan 26 09:53:32 2005 +0000
@@ -34,7 +34,7 @@
 #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
diff -r 14f65fa1e69e -r 6a9afa282c8e lisp/ChangeLog
--- a/lisp/ChangeLog	Wed Jan 26 09:51:23 2005 +0000
+++ b/lisp/ChangeLog	Wed Jan 26 09:53:32 2005 +0000
@@ -1,3 +1,11 @@
+2005-01-26  Ben Wing  <ben@xemacs.org>
+
+	* frame.el (display-mouse-p):
+	Fix warning.
+
+	* cl.el (cl-random-time):
+	Conditionalize on coerce-number as Jerry says it's OK.
+
 2005-01-26  Ben Wing  <ben@xemacs.org>
 
 	* code-init.el (set-eol-detection):
@@ -10,18 +18,6 @@
 
 2004-11-17  Ben Wing  <ben@xemacs.org>
 
-	* cl.el (cl-random-time):
-	Conditionalize on coerce-number as Jerry says it's OK.
-	
-	* font-lock.el (c-font-lock-keywords-2): Removed.
-	* font-lock.el (xemacs-c-font-lock-keywords-2): New.
-	* font-lock.el (c-font-lock-keywords-3): Removed.
-	* font-lock.el (xemacs-c-font-lock-keywords-3): New.
-	Fix naming problem.
-	
-	* frame.el (display-mouse-p):
-	Fix warning.
-	
 	* fill.el:
 	* fill.el (canonically-space-region):
 	* fill.el (fill-region-as-paragraph):
diff -r 14f65fa1e69e -r 6a9afa282c8e lisp/cl.el
--- a/lisp/cl.el	Wed Jan 26 09:51:23 2005 +0000
+++ b/lisp/cl.el	Wed Jan 26 09:53:32 2005 +0000
@@ -307,8 +307,8 @@
 (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))
diff -r 14f65fa1e69e -r 6a9afa282c8e lisp/frame.el
--- a/lisp/frame.el	Wed Jan 26 09:51:23 2005 +0000
+++ b/lisp/frame.el	Wed Jan 26 09:53:32 2005 +0000
@@ -1186,7 +1186,7 @@
   (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))))