Mercurial > emacs
diff lisp/emacs-lisp/eieio-custom.el @ 105474:0a64442c10e3
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
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Mon, 05 Oct 2009 15:32:08 +0000 |
parents | 7f4c7f5c0eba |
children | 1d1d5d9bd884 |
line wrap: on
line diff
--- a/lisp/emacs-lisp/eieio-custom.el Mon Oct 05 15:12:29 2009 +0000 +++ b/lisp/emacs-lisp/eieio-custom.el Mon Oct 05 15:32:08 2009 +0000 @@ -90,7 +90,7 @@ (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 @@ (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 @@ 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 @@ (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 @@ (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 " ")