Some fixes to follow coding conventions in files maintained by FSF.

[bpt/emacs.git] / lisp / emulation / mlconvert.el

diff --git a/lisp/emulation/mlconvert.el b/lisp/emulation/mlconvert.el
index 491799c..78e3dc2 100644 (file)
--- a/lisp/emulation/mlconvert.el
+++ b/lisp/emulation/mlconvert.el
@@ -1,4 +1,4 @@
-;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp.
+;;; mlconvert.el --- convert buffer of Mocklisp code to real lisp
 
 ;; Copyright (C) 1985 Free Software Foundation, Inc.
 
@@ -18,8 +18,9 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+;; Boston, MA 02111-1307, USA.
 
 ;;; Commentary:
 
@@ -106,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)))
@@ -166,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)"))))