[Emacs-diffs] trunk r114032: Spelling fixes.

[Paul Eggert]

------------------------------------------------------------
revno: 114032
revision-id: address@hidden
parent: address@hidden
committer: Paul Eggert <address@hidden>
branch nick: trunk
timestamp: Tue 2013-08-27 12:02:42 -0700
message:
  Spelling fixes.
modified:
  lisp/ChangeLog.12              
changelog.12-20091113204419-o5vbwnq5f7feedwu-5049
  test/automated/eieio-test-methodinvoke.el 
eieiotestmethodinvok-20130821193901-tp4d327w5hn2xwuw-1
  test/automated/eieio-tests.el  eieiotests.el-20130821193910-z2ci0jdy8tkatvig-1

=== modified file 'lisp/ChangeLog.12'
--- a/lisp/ChangeLog.12 2013-01-01 09:11:05 +0000
+++ b/lisp/ChangeLog.12 2013-08-27 19:02:42 +0000
@@ -17355,7 +17355,7 @@
 
        * calc/calc-embed.el (calc-do-embedded): Update help message.
 
-       * calc/calc-prog.el (calc-user-define-invokation): Update help message.
+       * calc/calc-prog.el (calc-user-define-invocation): Update help message.
 
 2005-11-28  Stefan Monnier  <address@hidden>
 

=== modified file 'test/automated/eieio-test-methodinvoke.el'
--- a/test/automated/eieio-test-methodinvoke.el 2013-08-21 19:42:52 +0000
+++ b/test/automated/eieio-test-methodinvoke.el 2013-08-27 19:02:42 +0000
@@ -1,4 +1,4 @@
-;;; eieio-testsinvoke.el -- eieio tests for method invokation
+;;; eieio-testsinvoke.el -- eieio tests for method invocation
 
 ;; Copyright (C) 2005, 2008, 2010, 2013 Free Software Foundation, Inc.
 
@@ -136,7 +136,7 @@
     (setq eieio-test-method-order-list (nreverse eieio-test-method-order-list))
     (eieio-test-match ans)))
 
-;;; Test static invokation
+;;; Test static invocation
 ;;
 (defmethod eitest-H :STATIC ((class eitest-A))
   "No need to do work in here."

=== modified file 'test/automated/eieio-tests.el'
--- a/test/automated/eieio-tests.el     2013-08-21 19:42:52 +0000
+++ b/test/automated/eieio-tests.el     2013-08-27 19:02:42 +0000
@@ -21,7 +21,7 @@
 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;; Commentary:
-;;  
+;;
 ;; Test the various features of EIEIO.
 
 (require 'ert)
@@ -66,7 +66,7 @@
           :initform moose
           :type symbol
           :allocation :instance
-          :documentation "Fisrt slot testing slot arguments."
+          :documentation "First slot testing slot arguments."
           :custom symbol
           :label "Wild Animal"
           :group borg
@@ -166,7 +166,7 @@
   (defun anormalfunction () "A plain function for error testing." nil)
   (should-error
    (progn
-     (defgeneric anormalfunction () 
+     (defgeneric anormalfunction ()
        "Attempt to turn it into a generic.")))
 
   ;; Check that generic-p works
@@ -589,7 +589,7 @@
   ;;; HACK ALERT: The new value of a class slot is inherited by the
   ;; subclass!  This is probably a bug.  We should either share the slot
   ;; so sets on the baseclass change the subclass, or we should inherit
-  ;; the original value. 
+  ;; the original value.
 ;;  (should (eq (get-slot-3 eitest-t2) 'emu))
 ;;  (should (eq (get-slot-3 class-subc) 'emu))
 ;;  (setf (get-slot-3 eitest-t2) 'setf-emu)
@@ -604,7 +604,7 @@
   "Try to access slot-2 from this class which doesn't have it.
 The object S2 passed in will be of class prot-1, which does have
 the slot.  This could be allowed, and currently is in EIEIO.
-Needed by the eieio persistant base class."
+Needed by the eieio persistent base class."
   (oref s2 slot-2))
 
 (defclass prot-1 (prot-0)
@@ -662,7 +662,7 @@
   (prot0-slot-2 eitest-p1)
   ;; Accessing private slot out of context must fail
   (should-error (oref eitest-p1 slot-3) :type 'invalid-slot-name)
-  ;; Access private slot in ethod
+  ;; Access private slot in method
   (prot1-slot-3 eitest-p1)
   ;; Access private slot in subclass method must fail
   (should-error (prot1-slot-3 eitest-p2) :type 'invalid-slot-name)
@@ -713,7 +713,7 @@
 Subclasses to override slot attributes.")
 
 (defclass slotattr-ok (slotattr-base)
-  ((initform :initform no-init)   
+  ((initform :initform no-init)
    (initarg :initarg :initblarg)
    (custom :custom string
           :label "One String"
@@ -767,7 +767,7 @@
 Subclasses to override slot attributes.")
 
 (defclass slotattr-class-ok (slotattr-class-base)
-  ((initform :initform no-init)   
+  ((initform :initform no-init)
    (initarg :initarg :initblarg)
    (custom :custom string
           :label "One String"