# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 743119701 0
# Node ID 90003380b44377b626fc41ecb18932a22623b0db
# Parent  328187f39c3aa55df13622a02d14c2ef68c8d15e
(while): Comment out converter.

diff -r 328187f39c3a -r 90003380b443 lisp/emulation/mlconvert.el
--- a/lisp/emulation/mlconvert.el	Mon Jul 19 21:16:07 1993 +0000
+++ b/lisp/emulation/mlconvert.el	Mon Jul 19 22:08:21 1993 +0000
@@ -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")