--- a/lisp/emulators/teco.el	Mon Aug 13 09:00:04 2007 +0200
+++ b/lisp/emulators/teco.el	Mon Aug 13 09:02:59 2007 +0200
@@ -1,29 +1,6 @@
 ;;; teco.el --- Teco interpreter for Gnu Emacs, version 1.
 
-;; Author: Dale R. Worley.
-;; Keywords: emulators
-
-;; This file is part of XEmacs.
-
-;; XEmacs is free software; you can redistribute it and/or modify it
-;; under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-
-;; XEmacs is distributed in the hope that it will be useful, but
-;; WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
-;; General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with XEmacs; see the file COPYING.  If not, write to the Free
-;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
-;; 02111-1307, USA.
-
-;;; Synched up with: Not in FSF
-
-;;; Commentary:
-
+(require 'backquote)
 ;; This code has been tested some, but no doubt contains a zillion bugs.
 ;; You have been warned.
 
@@ -186,14 +163,11 @@
 ;;	a-z	Treated the same as A-Z
 ;;	{	Not a Teco command
 ;;	|	Conditional 'else'
-;;	}	Not a Teco command
+;;	}	Not a Teco comand
 ;;	~	Not a Teco command
 ;;	DEL	Delete last character typed in
 
 
-;;; Code:
-(require 'backquote)
-
 ;; set a range of elements of an array to a value
 (defun teco-set-elements (array start end value)
   (let ((i start))
@@ -221,7 +195,7 @@
   "Set if we have just executed a digit.")
 
 (defvar teco-exp-exp nil
-  "Expression value preceding operator.")
+  "Expression value preceeding operator.")
 
 (defvar teco-exp-val1 nil
   "Current argument value.")