(quoted-insert-character-offset): Initialize more cleanly.

[gnu-emacs] / lisp / tempo.el

diff --git a/lisp/tempo.el b/lisp/tempo.el
index 3d65c6b6eb8348a857ecfd0acc84696123b25e9f..6ee10096afcc7d565ed9c906ef6022650a79e7be 100644 (file)
--- a/lisp/tempo.el
+++ b/lisp/tempo.el
@@ -1,9 +1,10 @@
 ;;; tempo.el --- Flexible template insertion
+
 ;; Copyright (C) 1994, 1995 Free Software Foundation, Inc.
 
 ;; Author: David K}gedal <davidk@lysator.liu.se >
 ;; Created: 16 Feb 1994
-;; K}gedal's last version number: 1.2.3
+;; K}gedal's last version number: 1.2.4
 ;; Keywords: extensions, languages, tools
 
 ;; This file is part of GNU Emacs.
@@ -19,8 +20,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:
 
@@ -95,7 +97,7 @@
 
 ;;; Contributors:
 
-;; These people have given me importand feedback and new ideas for
+;; These people have given me important feedback and new ideas for
 ;; tempo.el. Thanks.
 
 ;; Nelson Minar <nelson@santafe.edu>
@@ -144,7 +146,7 @@ setting it to '(upcase), for example.")
 (defvar tempo-local-tags '((tempo-tags . nil))
   "A list of locally installed tag completion lists.
 It is a association list where the car of every element is a symbol
-whose varable value is a template list. The cdr part, if non-nil, is a
+whose variable value is a template list. The cdr part, if non-nil, is a
 function or a regexp that defines the string to match. See the
 documentation for the function `tempo-complete-tag' for more info.
 
@@ -181,7 +183,7 @@ should be replaced with a template.")
 (defvar tempo-user-elements nil
   "Element handlers for user-defined elements.
 A list of symbols which are bound to functions that take one argument.
-This function should return somthing to be sent to `tempo-insert' if
+This function should return something to be sent to `tempo-insert' if
 it recognizes the argument, and NIL otherwise")
 
 (defvar tempo-named-insertions nil
@@ -304,10 +306,10 @@ TEMPLATE is the template to be inserted.  If ON-REGION is non-nil the
 mode, ON-REGION is ignored and assumed true if the region is active."
   (unwind-protect
       (progn
-       (if (or (and (boundp 'transient-mark-mode) ; For XEmacs
+       (if (or (and (boundp 'transient-mark-mode) ; For Emacs
                     transient-mark-mode
                     mark-active)
-               (and (boundp 'zmacs-regions) ; For Emacs
+               (and (boundp 'zmacs-regions) ; For XEmacs
                     zmacs-regions (mark)))
            (setq on-region t))
        (and on-region
@@ -605,7 +607,7 @@ or to `tempo-tags' if TAG-LIST is nil."
 TAG-LIST is a symbol whose variable value is a tag list created with
 `tempo-add-tag'.
 
-COMPLETION-FUNCTION is an obsolete option for specifyingis an optional
+COMPLETION-FUNCTION is an obsolete option for specifying an optional
 function or string that is used by `\\[tempo-complete-tag]' to find a
 string to match the tag against. It has the same definition as the
 variable `tempo-match-finder'. In this version, supplying a