diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-06-12 05:10:52 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-06-12 05:10:52 +0000 |
| commit | eade2e80a7187b770d3e95a1ed4a074008b37cd8 (patch) | |
| tree | 66bdb99b9f03d9f65b450508a0818b733d426c93 /lisp/emulation | |
| parent | 811ec3a8df8a14b490f4309f566c2b4ce93b955f (diff) | |
| download | emacs-eade2e80a7187b770d3e95a1ed4a074008b37cd8.tar.gz | |
(backward-word, forward-word, setq): Don't quote lambda.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/mlconvert.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emulation/mlconvert.el b/lisp/emulation/mlconvert.el index 3ded26469ff..5b56358d3a3 100644 --- a/lisp/emulation/mlconvert.el +++ b/lisp/emulation/mlconvert.el @@ -107,11 +107,11 @@ (ml-expansion 'defun "ml-defun") (ml-expansion 'if "ml-if") -(ml-expansion 'setq '(lambda () +(ml-expansion 'setq (lambda () (if (looking-at "setq[ \t\n]+buffer-modified-p") (replace-match "set-buffer-modified-p")))) -;;(ml-expansion 'while '(lambda () +;;(ml-expansion 'while (lambda () ;; (let ((end (progn (forward-sexp 2) (point-marker))) ;; (start (progn (forward-sexp -1) (point)))) ;; (let ((cond (buffer-substring start end))) @@ -167,10 +167,10 @@ (ml-expansion 'delete-white-space "delete-horizontal-space") (ml-expansion 'widen-region "widen") -(ml-expansion 'forward-word '(lambda () +(ml-expansion 'forward-word (lambda () (if (looking-at "forward-word[ \t\n]*)") (replace-match "forward-word 1)")))) -(ml-expansion 'backward-word '(lambda () +(ml-expansion 'backward-word (lambda () (if (looking-at "backward-word[ \t\n]*)") (replace-match "backward-word 1)")))) |