From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 19 Jul 1993 22:08:21 +0000 (+0000)
Subject: (while): Comment out converter.
X-Git-Tag: emacs-19.34~11685
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b3f77ca2b8ab0ac6cb0f3077860742893a5aca51;p=emacs.git

(while): Comment out converter.
---

diff --git a/lisp/emulation/mlconvert.el b/lisp/emulation/mlconvert.el
index 9a8d9f4e2ea..ff618d9b62c 100644
--- 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")