Mercurial > emacs

comparison lisp/emulation/mlconvert.el @ 4166:90003380b443

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(while): Comment out converter.
author Richard M. Stallman <rms@gnu.org>
date Mon, 19 Jul 1993 22:08:21 +0000
parents 507f64624555
children c20013843cb1
comparison
equal deleted inserted replaced
4165:328187f39c3a 4166:90003380b443
108 (ml-expansion 'if "ml-if") 108 (ml-expansion 'if "ml-if")
109 (ml-expansion 'setq '(lambda () 109 (ml-expansion 'setq '(lambda ()
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")
129 (ml-expansion 'interactive "ml-interactive") 129 (ml-expansion 'interactive "ml-interactive")
130 (ml-expansion 'message "ml-message") 130 (ml-expansion 'message "ml-message")