Mercurial > emacs
comparison lisp/emulation/mlconvert.el @ 29582:9ae7afa3d8d1
(backward-word, forward-word, setq): Don't quote lambda.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 12 Jun 2000 05:10:52 +0000 |
| parents | 83f275dcd93a |
| children | 253f761ad37b |
comparison
equal
deleted
inserted
replaced
| 29581:4d69640ddf11 | 29582:9ae7afa3d8d1 |
|---|---|
| 105 (defun ml-expansion (ml-name lisp-string) | 105 (defun ml-expansion (ml-name lisp-string) |
| 106 (put ml-name 'mocklisp lisp-string)) | 106 (put ml-name 'mocklisp lisp-string)) |
| 107 | 107 |
| 108 (ml-expansion 'defun "ml-defun") | 108 (ml-expansion 'defun "ml-defun") |
| 109 (ml-expansion 'if "ml-if") | 109 (ml-expansion 'if "ml-if") |
| 110 (ml-expansion 'setq '(lambda () | 110 (ml-expansion 'setq (lambda () |
| 111 (if (looking-at "setq[ \t\n]+buffer-modified-p") | 111 (if (looking-at "setq[ \t\n]+buffer-modified-p") |
| 112 (replace-match "set-buffer-modified-p")))) | 112 (replace-match "set-buffer-modified-p")))) |
| 113 | 113 |
| 114 ;;(ml-expansion 'while '(lambda () | 114 ;;(ml-expansion 'while (lambda () |
| 115 ;; (let ((end (progn (forward-sexp 2) (point-marker))) | 115 ;; (let ((end (progn (forward-sexp 2) (point-marker))) |
| 116 ;; (start (progn (forward-sexp -1) (point)))) | 116 ;; (start (progn (forward-sexp -1) (point)))) |
| 117 ;; (let ((cond (buffer-substring start end))) | 117 ;; (let ((cond (buffer-substring start end))) |
| 118 ;; (cond ((equal cond "1") | 118 ;; (cond ((equal cond "1") |
| 119 ;; (delete-region (point) end) | 119 ;; (delete-region (point) end) |
| 165 (ml-expansion 'yank-buffer "insert-buffer") | 165 (ml-expansion 'yank-buffer "insert-buffer") |
| 166 (ml-expansion 'copy-region "copy-region-as-kill") | 166 (ml-expansion 'copy-region "copy-region-as-kill") |
| 167 (ml-expansion 'delete-white-space "delete-horizontal-space") | 167 (ml-expansion 'delete-white-space "delete-horizontal-space") |
| 168 (ml-expansion 'widen-region "widen") | 168 (ml-expansion 'widen-region "widen") |
| 169 | 169 |
| 170 (ml-expansion 'forward-word '(lambda () | 170 (ml-expansion 'forward-word (lambda () |
| 171 (if (looking-at "forward-word[ \t\n]*)") | 171 (if (looking-at "forward-word[ \t\n]*)") |
| 172 (replace-match "forward-word 1)")))) | 172 (replace-match "forward-word 1)")))) |
| 173 (ml-expansion 'backward-word '(lambda () | 173 (ml-expansion 'backward-word (lambda () |
| 174 (if (looking-at "backward-word[ \t\n]*)") | 174 (if (looking-at "backward-word[ \t\n]*)") |
| 175 (replace-match "backward-word 1)")))) | 175 (replace-match "backward-word 1)")))) |
| 176 | 176 |
| 177 (ml-expansion 'forward-paren "forward-list") | 177 (ml-expansion 'forward-paren "forward-list") |
| 178 (ml-expansion 'backward-paren "backward-list") | 178 (ml-expansion 'backward-paren "backward-list") |