diff options
| author | Richard M. Stallman | 1993-07-19 22:08:21 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-07-19 22:08:21 +0000 |
| commit | b3f77ca2b8ab0ac6cb0f3077860742893a5aca51 (patch) | |
| tree | e6e518d8732084c24e539fc2d7e7e8ceb0ce5234 | |
| parent | 562378c0c0d659bd2294ade9b4071349c3becea1 (diff) | |
| download | emacs-b3f77ca2b8ab0ac6cb0f3077860742893a5aca51.tar.gz emacs-b3f77ca2b8ab0ac6cb0f3077860742893a5aca51.zip | |
(while): Comment out converter.
| -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 @@ | |||
| 110 | (if (looking-at "setq[ \t\n]+buffer-modified-p") | 110 | (if (looking-at "setq[ \t\n]+buffer-modified-p") |
| 111 | (replace-match "set-buffer-modified-p")))) | 111 | (replace-match "set-buffer-modified-p")))) |
| 112 | 112 | ||
| 113 | (ml-expansion 'while '(lambda () | 113 | ;;(ml-expansion 'while '(lambda () |
| 114 | (let ((end (progn (forward-sexp 2) (point-marker))) | 114 | ;; (let ((end (progn (forward-sexp 2) (point-marker))) |
| 115 | (start (progn (forward-sexp -1) (point)))) | 115 | ;; (start (progn (forward-sexp -1) (point)))) |
| 116 | (let ((cond (buffer-substring start end))) | 116 | ;; (let ((cond (buffer-substring start end))) |
| 117 | (cond ((equal cond "1") | 117 | ;; (cond ((equal cond "1") |
| 118 | (delete-region (point) end) | 118 | ;; (delete-region (point) end) |
| 119 | (insert "t")) | 119 | ;; (insert "t")) |
| 120 | (t | 120 | ;; (t |
| 121 | (insert "(not (zerop ") | 121 | ;; (insert "(not (zerop ") |
| 122 | (goto-char end) | 122 | ;; (goto-char end) |
| 123 | (insert "))"))) | 123 | ;; (insert "))"))) |
| 124 | (set-marker end nil) | 124 | ;; (set-marker end nil) |
| 125 | (goto-char start))))) | 125 | ;; (goto-char start))))) |
| 126 | 126 | ||
| 127 | (ml-expansion 'arg "ml-arg") | 127 | (ml-expansion 'arg "ml-arg") |
| 128 | (ml-expansion 'nargs "ml-nargs") | 128 | (ml-expansion 'nargs "ml-nargs") |