Mercurial > emacs

changeset 29582:9ae7afa3d8d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 4d69640ddf11
children f1b4be7fce6d
files lisp/emulation/mlconvert.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/emulation/mlconvert.el	Mon Jun 12 05:08:46 2000 +0000
+++ b/lisp/emulation/mlconvert.el	Mon Jun 12 05:10:52 2000 +0000
@@ -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)"))))