m-v corrections.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 21c19c8b95b17494ebdc2ca24f8c50f35023f947..13bc6595658145f9dc6cacb31b111b1d78f33822 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -8,9 +8,12 @@
 
 2009-03-13  D. Goel  <deego3@gmail.com>
 
+
        * ibuf-ext.el: 
        When calling (multiple-value-bind/setq .. ls)
        ls -> (values-list ls)  throughout. 
+
+       * progmodes/flymake.el (flymake-float-time): Ditto.
        
        * progmodes/ebrowse.el: Ditto.
 

diff --git a/lisp/progmodes/flymake.el b/lisp/progmodes/flymake.el
index 20fd68aa959fa84f3c232516e675de33b3ab5a78..549bf4abe63f0d7775e4eeec98b5192fc76306a9 100644 (file)
--- a/lisp/progmodes/flymake.el
+++ b/lisp/progmodes/flymake.el
@@ -79,7 +79,7 @@
       'float-time
     (if (featurep 'xemacs)
        (lambda ()
-         (multiple-value-bind (s0 s1 s2) (current-time)
+         (multiple-value-bind (s0 s1 s2) (values-list (current-time))
            (+ (* (float (ash 1 16)) s0) (float s1) (* 0.0000001 s2)))))))
 
 (defalias 'flymake-replace-regexp-in-string