From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 6 Jul 2005 19:03:21 +0000 (+0000)
Subject: (flymake-float-time): Instead of with-no-warnings, test for xemacs.
X-Git-Tag: emacs-pretest-22.0.90~8339
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7ea8834e0885fe1fe4012ecb1cefd21a08db902f;p=emacs.git

(flymake-float-time): Instead of with-no-warnings, test for xemacs.
(flymake-replace-regexp-in-string): Test fboundp of replace-in-string
to avoid warning.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index f598df3cd1d..df7a4b270ea 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,10 @@
+2005-07-06  Richard M. Stallman  <rms@gnu.org>
+
+	* progmodes/flymake.el (flymake-float-time): Instead of
+	with-no-warnings, test for xemacs.
+	(flymake-replace-regexp-in-string): Test fboundp of replace-in-string
+	to avoid warning.
+
 2005-07-06  Juanma Barranquero  <lekktu@gmail.com>
 
 	* w32-vars.el (w32-fixed-font-alist): Fix typo in `defcustom' tag.
diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index 0fb5411e798..4c5f3ad12b9 100644
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -64,15 +64,15 @@
 (defalias 'flymake-float-time
   (if (fboundp 'float-time)
       'float-time
-    (with-no-warnings
-      (lambda ()
-        (multiple-value-bind (s0 s1 s2) (current-time)
-          (+ (* (float (ash 1 16)) s0) (float s1) (* 0.0000001 s2)))))))
+    (if (featurep 'xemacs)
+	(lambda ()
+	  (multiple-value-bind (s0 s1 s2) (current-time)
+	    (+ (* (float (ash 1 16)) s0) (float s1) (* 0.0000001 s2)))))))
 
 (defsubst flymake-replace-regexp-in-string (regexp rep str)
-  (if (fboundp 'replace-regexp-in-string)
-      (replace-regexp-in-string regexp rep str)
-    (replace-in-string str regexp rep)))
+  (if (fboundp 'replace-in-string)
+      (replace-in-string str regexp rep)
+    (replace-regexp-in-string regexp rep str)))
 
 (defun flymake-split-string (str pattern)
   "Split STR into a list of substrings bounded by PATTERN.