diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-07-19 22:08:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-07-19 22:08:21 +0000 |
| commit | 9c62286e453d6d0c0ec3afe04870018098d1f242 (patch) | |
| tree | cd5e59a83597a0ec392e847a7e0dd4c928094bf0 /lisp/emulation/mlconvert.el | |
| parent | 4ec478486c3b2a1e9a5f4fe386dc340e9db874af (diff) | |
| download | emacs-9c62286e453d6d0c0ec3afe04870018098d1f242.tar.gz | |
(while): Comment out converter.
Diffstat (limited to 'lisp/emulation/mlconvert.el')
| -rw-r--r-- | lisp/emulation/mlconvert.el | 26 |
1 files changed, 13 insertions, 13 deletions
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") |