Mercurial > hg > xemacs-beta
changeset 2509:6a9afa282c8e
[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.
| author | ben |
|---|---|
| date | Wed, 26 Jan 2005 09:53:32 +0000 |
| parents | 14f65fa1e69e |
| children | 6f72d9a709c3 |
| files | lib-src/ChangeLog lib-src/fakemail.c lisp/ChangeLog lisp/cl.el lisp/frame.el |
| diffstat | 5 files changed, 16 insertions(+), 16 deletions(-) [+] |
line wrap: on
line diff
--- 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):
--- 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
--- 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):
--- 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))
--- 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))))