Index: emacs/lisp/progmodes/flymake.el
diff -c emacs/lisp/progmodes/flymake.el:1.25
emacs/lisp/progmodes/flymake.el:1.26
*** emacs/lisp/progmodes/flymake.el:1.25 Mon Jul 4 18:54:30 2005
--- emacs/lisp/progmodes/flymake.el Wed Jul 6 19:00:21 2005
***************
*** 64,78 ****
(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)))))))
(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)))
(defun flymake-split-string (str pattern)
"Split STR into a list of substrings bounded by PATTERN.
--- 64,78 ----
(defalias 'flymake-float-time
(if (fboundp 'float-time)
'float-time
! (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-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.
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
