diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2009-10-05 15:32:08 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2009-10-05 15:32:08 +0000 |
| commit | a8f316cab06c8d72c0e6d7159cf80ae0bb4da2ca (patch) | |
| tree | 47e4d9a036353adfb1aeb183a45bc4835b2d1388 /lisp/emacs-lisp/eieio-custom.el | |
| parent | 4a827e0af1fd28cdaafb0b718fd679b76e249e01 (diff) | |
| download | emacs-a8f316cab06c8d72c0e6d7159cf80ae0bb4da2ca.tar.gz emacs-a8f316cab06c8d72c0e6d7159cf80ae0bb4da2ca.tar.bz2 emacs-a8f316cab06c8d72c0e6d7159cf80ae0bb4da2ca.zip | |
Fix typos.
* emacs-lisp/chart.el, emacs-lisp/eieio.el, emacs-lisp/eieio-base.el
* emacs-lisp/eieio-comp.el, emacs-lisp/eieio-custom.el
* emacs-lisp/eieio-datadebug.el, emacs-lisp/eieio-opt.el
* emacs-lisp/eieio-speedbar.el
Diffstat (limited to 'lisp/emacs-lisp/eieio-custom.el')
| -rw-r--r-- | lisp/emacs-lisp/eieio-custom.el | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/lisp/emacs-lisp/eieio-custom.el b/lisp/emacs-lisp/eieio-custom.el index bd281f9d07e..7fa4e7cd4dc 100644 --- a/lisp/emacs-lisp/eieio-custom.el +++ b/lisp/emacs-lisp/eieio-custom.el @@ -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 " ") |