(while): Comment out converter.

diff --git a/lisp/emulation/mlconvert.el b/lisp/emulation/mlconvert.el
index 9a8d9f4..ff618d9 100644 (file)
--- a/lisp/emulation/mlconvert.el
+++ b/lisp/emulation/mlconvert.el
@@ -110,19 +110,19 @@
                       (if (looking-at "setq[ \t\n]+buffer-modified-p")
                           (replace-match "set-buffer-modified-p"))))
 
-(ml-expansion 'while '(lambda ()
-                        (let ((end (progn (forward-sexp 2) (point-marker)))
-                              (start (progn (forward-sexp -1) (point))))
-                          (let ((cond (buffer-substring start end)))
-                            (cond ((equal cond "1")
-                                   (delete-region (point) end)
-                                   (insert "t"))
-                                  (t
-                                   (insert "(not (zerop ")
-                                   (goto-char end)
-                                   (insert "))")))
-                            (set-marker end nil)
-                            (goto-char start)))))
+;;(ml-expansion 'while '(lambda ()
+;;                      (let ((end (progn (forward-sexp 2) (point-marker)))
+;;                            (start (progn (forward-sexp -1) (point))))
+;;                        (let ((cond (buffer-substring start end)))
+;;                          (cond ((equal cond "1")
+;;                                 (delete-region (point) end)
+;;                                 (insert "t"))
+;;                                (t
+;;                                 (insert "(not (zerop ")
+;;                                 (goto-char end)
+;;                                 (insert "))")))
+;;                          (set-marker end nil)
+;;                          (goto-char start)))))
 
 (ml-expansion 'arg "ml-arg")
 (ml-expansion 'nargs "ml-nargs")