From b73517d9ecf5efeea0d6cbde56730132f5e1b611 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Tue, 27 Aug 2013 12:02:42 -0700 Subject: [PATCH] Spelling fixes. --- lisp/ChangeLog.12 | 2 +- test/automated/eieio-test-methodinvoke.el | 4 ++-- test/automated/eieio-tests.el | 16 ++++++++-------- 3 files changed, 11 insertions(+), 11 deletions(-) diff --git a/lisp/ChangeLog.12 b/lisp/ChangeLog.12 index 6b34ef55783..7fcc4ff0caf 100644 --- a/lisp/ChangeLog.12 +++ b/lisp/ChangeLog.12 @@ -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 diff --git a/test/automated/eieio-test-methodinvoke.el b/test/automated/eieio-test-methodinvoke.el index 76a28919f21..db8618c811e 100644 --- a/test/automated/eieio-test-methodinvoke.el +++ b/test/automated/eieio-test-methodinvoke.el @@ -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." diff --git a/test/automated/eieio-tests.el b/test/automated/eieio-tests.el index 2d8ae4c7d43..144f0bc919d 100644 --- a/test/automated/eieio-tests.el +++ b/test/automated/eieio-tests.el @@ -21,7 +21,7 @@ ;; along with GNU Emacs. If not, see . ;;; 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 @@ METHOD is the method that was attempting to be called." ;;; 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 @@ METHOD is the method that was attempting to be called." "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 @@ Do not override for `prot-2'." (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 @@ Do not override for `prot-2'." 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.") 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" -- 2.39.2