64 |
(defalias 'flymake-float-time |
(defalias 'flymake-float-time |
65 |
(if (fboundp 'float-time) |
(if (fboundp 'float-time) |
66 |
'float-time |
'float-time |
67 |
(with-no-warnings |
(if (featurep 'xemacs) |
68 |
(lambda () |
(lambda () |
69 |
(multiple-value-bind (s0 s1 s2) (current-time) |
(multiple-value-bind (s0 s1 s2) (current-time) |
70 |
(+ (* (float (ash 1 16)) s0) (float s1) (* 0.0000001 s2))))))) |
(+ (* (float (ash 1 16)) s0) (float s1) (* 0.0000001 s2))))))) |
71 |
|
|
72 |
(defsubst flymake-replace-regexp-in-string (regexp rep str) |
(defsubst flymake-replace-regexp-in-string (regexp rep str) |
73 |
(if (fboundp 'replace-regexp-in-string) |
(if (fboundp 'replace-in-string) |
74 |
(replace-regexp-in-string regexp rep str) |
(replace-in-string str regexp rep) |
75 |
(replace-in-string str regexp rep))) |
(replace-regexp-in-string regexp rep str))) |
76 |
|
|
77 |
(defun flymake-split-string (str pattern) |
(defun flymake-split-string (str pattern) |
78 |
"Split STR into a list of substrings bounded by PATTERN. |
"Split STR into a list of substrings bounded by PATTERN. |