Fixes: debbugs:6594

[gnu-emacs] / lisp / emacs-lisp / eieio-custom.el

diff --git a/lisp/emacs-lisp/eieio-custom.el b/lisp/emacs-lisp/eieio-custom.el
index d0661d6f72a6ac1901a28f46d05c778a0faf5d74..e547fa77fe30a2750d1b14c37f314bf83c4e5050 100644 (file)
--- a/lisp/emacs-lisp/eieio-custom.el
+++ b/lisp/emacs-lisp/eieio-custom.el
@@ -1,9 +1,9 @@
 ;;; eieio-custom.el -- eieio object customization
 
-;;; Copyright (C) 1999, 2000, 2001, 2005, 2007, 2008, 2009
-;;; Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2005, 2007, 2008, 2009, 2010, 2011
+;;   Free Software Foundation, Inc.
 
-;; Author: Eric M. Ludlam  <zappo@gnu.org>
+;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Version: 0.2
 ;; Keywords: OO, lisp
 
@@ -25,7 +25,7 @@
 ;;; Commentary:
 ;;
 ;;   This contains support customization of eieio objects.  Enabling
-;; your object to be customizable requires use of the slot attirbute
+;; your object to be customizable requires use of the slot attribute
 ;; `:custom'.
 
 (require 'eieio)
@@ -90,7 +90,7 @@ of these.")
 (defvar eieio-cog nil
   "Buffer local variable in object customize buffers for the current group.")
 
- (defvar eieio-custom-ignore-eieio-co  nil
+ (defvar eieio-custom-ignore-eieio-co nil
    "When true, all customizable slots of the current object are updated.
 Updates occur regardless of the current customization group.")
 
@@ -227,7 +227,7 @@ Optional argument IGNORE is an extraneous parameter."
       (when (and (car fcust)
                 (or (not master-group) (member master-group (car fgroup)))
                 (slot-boundp obj (car slots)))
-       ;; In this case, this slot has a custom type.  Create it's
+       ;; In this case, this slot has a custom type.  Create its
        ;; children widgets.
        (let ((type (eieio-filter-slot-type widget (car fcust)))
              (stuff nil))
@@ -320,9 +320,9 @@ Optional argument IGNORE is an extraneous parameter."
     obj))
 
 (defmethod eieio-done-customizing ((obj eieio-default-superclass))
-  "When a applying change to a widget, call this method.
-This method is called by the default widget-edit commands.  User made
-commands should also call this method when applying changes.
+  "When applying change to a widget, call this method.
+This method is called by the default widget-edit commands.
+User made commands should also call this method when applying changes.
 Argument OBJ is the object that has been customized."
   nil)
 
@@ -374,7 +374,7 @@ These groups are specified with the `:group' slot flag."
 
 (defmethod eieio-custom-object-apply-reset ((obj eieio-default-superclass))
   "Insert an Apply and Reset button into the object editor.
-Argument OBJ os the object being customized."
+Argument OBJ is the object being customized."
   (widget-create 'push-button
                 :notify (lambda (&rest ignore)
                           (widget-apply eieio-wo :value-get)
@@ -385,16 +385,16 @@ Argument OBJ os the object being customized."
   (widget-create 'push-button
                 :notify (lambda (&rest ignore)
                           ;; I think the act of getting it sets
-                          ;; it's value through the get function.
+                          ;; its value through the get function.
                           (message "Applying Changes...")
                           (widget-apply eieio-wo :value-get)
                           (eieio-done-customizing eieio-co)
-                          (message "Applying Changes...Done."))
+                          (message "Applying Changes...Done"))
                 "Apply")
   (widget-insert "   ")
   (widget-create 'push-button
                 :notify (lambda (&rest ignore)
-                          (message "Resetting.")
+                          (message "Resetting")
                           (eieio-customize-object eieio-co eieio-cog))
                 "Reset")
   (widget-insert "   ")
@@ -460,4 +460,5 @@ Return the symbol for the group, or nil"
 
 (provide 'eieio-custom)
 
+;; arch-tag: bc122762-a771-48d5-891b-7835b16dd924
 ;;; eieio-custom.el ends here