Commit a8f316ca authored by Juanma Barranquero's avatar Juanma Barranquero

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
parent 4a827e0a
2009-10-05 Juanma Barranquero <lekktu@gmail.com>
* emacs-lisp/chart.el (chart-face-pixmap-list, chart-new-buffer, chart)
(chart-axis-range, chart-axis-names, chart-sequece, chart-bar)
(chart-draw, chart-axis-draw, chart-sort, chart-sort-matchlist)
(chart-draw-line, chart-bar-quickie): Fix typos in docstrings.
* emacs-lisp/eieio.el (generic-p, eieiomt-next, eieio-generic-form)
(eieio-default-superclass): Reflow docstrings.
(this, class-option-assoc, defclass, eieio-class-un-autoload)
(eieio-unbind-method-implementations, defmethod)
(eieio-validate-slot-value, eieio-validate-class-slot-value)
(oref-default, eieio-oref-default, eieio-oset, eieio-oset-default)
(with-slots, eieio-add-new-slot, object-assoc, object-remove-from-list)
(eieio-slot-originating-class-p, eieio-slot-name-index)
(eieio-pre-method-execution-hooks, eieio-initarg-to-attribute)
(constructor, initialize-instance, no-next-method, object-print)
(object-write, eieio-override-prin1, eieio-edebug-prin1-to-string):
Fix typos in docstrings.
(eieio-defclass, eieio-perform-slot-validation-for-default, defgeneric)
(child-of-class-p, object-slots, slot-boundp, slot-exists-p)
(next-method-p): Doc fixes.
(eieio-add-new-slot, call-next-method, eieiomt-add, change-class):
Fix typos in error messages.
(eieio-defmethod): Fix typo in description of generic method.
* emacs-lisp/eieio-base.el (eieio-instance-inheritor, slot-unbound)
(eieio-persistent-save-interactive, slot-missing):
Fix typos in docstrings.
(eieio-instance-inheritor-slot-boundp): Doc fix.
* emacs-lisp/eieio-comp.el (byte-compile-file-form-defmethod)
(byte-compile-defmethod-param-convert): Fix typos in docstrings.
* emacs-lisp/eieio-custom.el (eieio-done-customizing)
(eieio-custom-object-apply-reset):
Fix typos in docstrings and error messages.
* emacs-lisp/eieio-datadebug.el (data-debug-show):
Fix typo in docstring.
* emacs-lisp/eieio-opt.el (top): Fix typo in error message.
(eieio-browse-tree): Doc fix.
(eieio-all-generic-functions, eieio-class-speedbar): Reflow docstrings.
(eieio-help-mode-augmentation-maybee, eieio-class-speedbar-make-map):
Fix typos in docstrings.
* emacs-lisp/eieio-speedbar.el (eieio-speedbar-file-button): Doc fix.
(eieio-speedbar-key-map, eieio-speedbar-create-engine)
(eieio-speedbar-buttons, eieio-speedbar, eieio-speedbar-object-children)
(eieio-speedbar-make-tag-line, eieio-speedbar-object-expand):
Reflow docstrings.
2009-10-05 Dan Nicolaescu <dann@ics.uci.edu> 2009-10-05 Dan Nicolaescu <dann@ics.uci.edu>
* vc-hg.el (log-view-vc-backend): Declare for compiler. * vc-hg.el (log-view-vc-backend): Declare for compiler.
...@@ -24,14 +77,13 @@ ...@@ -24,14 +77,13 @@
(tramp-methods): Add recursive option to `tramp-copy-args'. Add (tramp-methods): Add recursive option to `tramp-copy-args'. Add
`tramp-copy-recursive'. Valid for "rcp", "scp", "scp1", "scp2", `tramp-copy-recursive'. Valid for "rcp", "scp", "scp1", "scp2",
"scp1_old", "scp2_old", "rsync", "rsyncc". "scp1_old", "scp2_old", "rsync", "rsyncc".
(tramp-default-method): Check also for (tramp-default-method): Check also for `auth-source-user-or-password'.
`auth-source-user-or-password'.
(tramp-file-name-handler-alist, tramp-file-name-for-operation): (tramp-file-name-handler-alist, tramp-file-name-for-operation):
Add handler for `copy-directory'. Add handler for `copy-directory'.
(tramp-handle-copy-directory): New defun. (tramp-handle-copy-directory): New defun.
(tramp-do-copy-or-rename-file-out-of-band): Handle directory case. (tramp-do-copy-or-rename-file-out-of-band): Handle directory case.
(tramp-handle-start-file-process): Raise an error when PROGRAM is (tramp-handle-start-file-process): Raise an error when PROGRAM is nil.
nil. Optimize sent command. Optimize sent command.
2009-10-05 Stefan Monnier <monnier@iro.umontreal.ca> 2009-10-05 Stefan Monnier <monnier@iro.umontreal.ca>
...@@ -4741,7 +4793,7 @@ ...@@ -4741,7 +4793,7 @@
blocks. blocks.
(verilog-init-font) Remove definition & use of verilog-init-font, (verilog-init-font) Remove definition & use of verilog-init-font,
as it is redundant with font-lock-defaults. as it is redundant with font-lock-defaults.
(verilog-mode): Alter the definition of verilog-font-lock-defualts (verilog-mode): Alter the definition of verilog-font-lock-defaults
to avoid circular calls if syntax-ppss is a function (as is the to avoid circular calls if syntax-ppss is a function (as is the
case now in 22.x GNU Emacs) as that function would sometimes call case now in 22.x GNU Emacs) as that function would sometimes call
itself, leading to (nearly) infinite recursion. itself, leading to (nearly) infinite recursion.
......
...@@ -87,7 +87,7 @@ Colors will be the background color.") ...@@ -87,7 +87,7 @@ Colors will be the background color.")
(display-graphic-p)) (display-graphic-p))
'("dimple1" "scales" "dot" "cross_weave" "boxes" "dimple3")) '("dimple1" "scales" "dot" "cross_weave" "boxes" "dimple3"))
"If pixmaps are allowed, display these background pixmaps. "If pixmaps are allowed, display these background pixmaps.
Useful if new Emacs is used on B&W display") Useful if new Emacs is used on B&W display.")
(defcustom chart-face-use-pixmaps nil (defcustom chart-face-use-pixmaps nil
"*Non-nil to use fancy pixmaps in the background of chart face colors." "*Non-nil to use fancy pixmaps in the background of chart face colors."
...@@ -133,7 +133,7 @@ Useful if new Emacs is used on B&W display") ...@@ -133,7 +133,7 @@ Useful if new Emacs is used on B&W display")
(defun chart-new-buffer (obj) (defun chart-new-buffer (obj)
"Create a new buffer NAME in which the chart OBJ is displayed. "Create a new buffer NAME in which the chart OBJ is displayed.
Returns the newly created buffer" Returns the newly created buffer."
(save-excursion (save-excursion
(set-buffer (get-buffer-create (format "*%s*" (oref obj title)))) (set-buffer (get-buffer-create (format "*%s*" (oref obj title))))
(chart-mode) (chart-mode)
...@@ -162,7 +162,7 @@ Returns the newly created buffer" ...@@ -162,7 +162,7 @@ Returns the newly created buffer"
(sequences :initarg :sequences (sequences :initarg :sequences
:initform nil) :initform nil)
) )
"Superclass for all charts to be displayed in an emacs buffer") "Superclass for all charts to be displayed in an Emacs buffer.")
(defmethod initialize-instance :AFTER ((obj chart) &rest fields) (defmethod initialize-instance :AFTER ((obj chart) &rest fields)
"Initialize the chart OBJ being created with FIELDS. "Initialize the chart OBJ being created with FIELDS.
...@@ -188,13 +188,13 @@ Make sure the width/height is correct." ...@@ -188,13 +188,13 @@ Make sure the width/height is correct."
((bounds :initarg :bounds ((bounds :initarg :bounds
:initform '(0.0 . 50.0)) :initform '(0.0 . 50.0))
) )
"Class used to display an axis defined by a range of values") "Class used to display an axis defined by a range of values.")
(defclass chart-axis-names (chart-axis) (defclass chart-axis-names (chart-axis)
((items :initarg :items ((items :initarg :items
:initform nil) :initform nil)
) )
"Class used to display an axis which represents different named items") "Class used to display an axis which represents different named items.")
(defclass chart-sequece () (defclass chart-sequece ()
((data :initarg :data ((data :initarg :data
...@@ -202,16 +202,16 @@ Make sure the width/height is correct." ...@@ -202,16 +202,16 @@ Make sure the width/height is correct."
(name :initarg :name (name :initarg :name
:initform "Data") :initform "Data")
) )
"Class used for all data in different charts") "Class used for all data in different charts.")
(defclass chart-bar (chart) (defclass chart-bar (chart)
((direction :initarg :direction ((direction :initarg :direction
:initform vertical)) :initform vertical))
"Subclass for bar charts. (Vertical or horizontal)") "Subclass for bar charts (vertical or horizontal).")
(defmethod chart-draw ((c chart) &optional buff) (defmethod chart-draw ((c chart) &optional buff)
"Start drawing a chart object C in optional BUFF. "Start drawing a chart object C in optional BUFF.
Erases current contents of buffer" Erases current contents of buffer."
(save-excursion (save-excursion
(if buff (set-buffer buff)) (if buff (set-buffer buff))
(erase-buffer) (erase-buffer)
...@@ -256,7 +256,7 @@ Argument C is the chart object." ...@@ -256,7 +256,7 @@ Argument C is the chart object."
) )
(defmethod chart-axis-draw ((a chart-axis) &optional dir margin zone start end) (defmethod chart-axis-draw ((a chart-axis) &optional dir margin zone start end)
"Draw some axis for A in direction DIR at with MARGIN in boundry. "Draw some axis for A in direction DIR with MARGIN in boundary.
ZONE is a zone specification. ZONE is a zone specification.
START and END represent the boundary." START and END represent the boundary."
(chart-draw-line dir (+ margin (if zone zone 0)) start end) (chart-draw-line dir (+ margin (if zone zone 0)) start end)
...@@ -339,8 +339,8 @@ Automatically compensates for for direction." ...@@ -339,8 +339,8 @@ Automatically compensates for for direction."
(defmethod chart-axis-draw ((a chart-axis-names) &optional dir margin zone start end) (defmethod chart-axis-draw ((a chart-axis-names) &optional dir margin zone start end)
"Draw axis information based upon A range to be spread along the edge. "Draw axis information based upon A range to be spread along the edge.
Optional argument DIR the direction of the chart. Optional argument DIR is the direction of the chart.
Optional argument MARGIN , ZONE, START and END specify boundaries of the drawing." Optional arguments MARGIN, ZONE, START and END specify boundaries of the drawing."
(call-next-method) (call-next-method)
;; We prefer about 5 spaces between each value ;; We prefer about 5 spaces between each value
(let* ((i 0) (let* ((i 0)
...@@ -465,7 +465,7 @@ or is created with the bounds of SEQ." ...@@ -465,7 +465,7 @@ or is created with the bounds of SEQ."
(defmethod chart-sort ((c chart) pred) (defmethod chart-sort ((c chart) pred)
"Sort the data in chart C using predicate PRED. "Sort the data in chart C using predicate PRED.
See `chart-sort-matchlist' for more details" See `chart-sort-matchlist' for more details."
(let* ((sl (oref c sequences)) (let* ((sl (oref c sequences))
(s1 (car sl)) (s1 (car sl))
(s2 (car (cdr sl))) (s2 (car (cdr sl)))
...@@ -486,9 +486,9 @@ See `chart-sort-matchlist' for more details" ...@@ -486,9 +486,9 @@ See `chart-sort-matchlist' for more details"
) )
(defun chart-sort-matchlist (namelst numlst pred) (defun chart-sort-matchlist (namelst numlst pred)
"Sort NAMELST and NUMLST (both SEQUENCE objects) based on predicate PRED. "Sort NAMELST and NUMLST (both sequence objects) based on predicate PRED.
PRED should be the equivalent of '<, except it must expect two PRED should be the equivalent of '<, except it must expect two
cons cells of the form (NAME . NUM). See SORT for more details." cons cells of the form (NAME . NUM). See `sort' for more details."
;; 1 - create 1 list of cons cells ;; 1 - create 1 list of cons cells
(let ((newlist nil) (let ((newlist nil)
(alst (oref namelst data)) (alst (oref namelst data))
...@@ -557,7 +557,7 @@ Optional argument FACE is the property we wish to place on this text." ...@@ -557,7 +557,7 @@ Optional argument FACE is the property we wish to place on this text."
(defun chart-draw-line (dir zone start end) (defun chart-draw-line (dir zone start end)
"Draw a line using line-drawing characters in direction DIR. "Draw a line using line-drawing characters in direction DIR.
Use column or row ZONE between START and END" Use column or row ZONE between START and END."
(chart-display-label (chart-display-label
(make-string (- end start) (if (eq dir 'vertical) ?| ?\-)) (make-string (- end start) (if (eq dir 'vertical) ?| ?\-))
dir zone start end)) dir zone start end))
...@@ -578,12 +578,12 @@ R1 and R2 are dotted pairs. Colorize it with FACE." ...@@ -578,12 +578,12 @@ R1 and R2 are dotted pairs. Colorize it with FACE."
(defun chart-bar-quickie (dir title namelst nametitle numlst numtitle (defun chart-bar-quickie (dir title namelst nametitle numlst numtitle
&optional max sort-pred) &optional max sort-pred)
"Wash over the complex eieio stuff and create a nice bar chart. "Wash over the complex EIEIO stuff and create a nice bar chart.
Create it going in direction DIR ['horizontal 'vertical] with TITLE Create it going in direction DIR ['horizontal 'vertical] with TITLE
using a name sequence NAMELST labeled NAMETITLE with values NUMLST using a name sequence NAMELST labeled NAMETITLE with values NUMLST
labeled NUMTITLE. labeled NUMTITLE.
Optional arguments: Optional arguments:
Set the charts' max element display to MAX, and sort lists with Set the chart's max element display to MAX, and sort lists with
SORT-PRED if desired." SORT-PRED if desired."
(let ((nc (make-instance chart-bar (let ((nc (make-instance chart-bar
:title title :title title
......
...@@ -42,7 +42,7 @@ ...@@ -42,7 +42,7 @@
:type eieio-instance-inheritor-child :type eieio-instance-inheritor-child
:documentation :documentation
"The parent of this instance. "The parent of this instance.
If a slot of this class is reference, and is unbound, then the parent If a slot of this class is referenced, and is unbound, then the parent
is checked for a value.") is checked for a value.")
) )
"This special class can enable instance inheritance. "This special class can enable instance inheritance.
...@@ -53,7 +53,7 @@ not been set, use values from the parent." ...@@ -53,7 +53,7 @@ not been set, use values from the parent."
(defmethod slot-unbound ((object eieio-instance-inheritor) class slot-name fn) (defmethod slot-unbound ((object eieio-instance-inheritor) class slot-name fn)
"If a slot OBJECT in this CLASS is unbound, try to inherit, or throw a signal. "If a slot OBJECT in this CLASS is unbound, try to inherit, or throw a signal.
SLOT-NAME, is the offending slot. FN is the function signalling the error." SLOT-NAME is the offending slot. FN is the function signalling the error."
(if (slot-boundp object 'parent-instance) (if (slot-boundp object 'parent-instance)
;; It may not look like it, but this line recurses back into this ;; It may not look like it, but this line recurses back into this
;; method if the parent instance's slot is unbound. ;; method if the parent instance's slot is unbound.
...@@ -85,9 +85,9 @@ All slots are unbound, except those initialized with PARAMS." ...@@ -85,9 +85,9 @@ All slots are unbound, except those initialized with PARAMS."
(defmethod eieio-instance-inheritor-slot-boundp ((object eieio-instance-inheritor) (defmethod eieio-instance-inheritor-slot-boundp ((object eieio-instance-inheritor)
slot) slot)
"Non-nil if the instance inheritor OBJECT's SLOT is bound. "Return non-nil if the instance inheritor OBJECT's SLOT is bound.
See `slot-boundp' for for details on binding slots. See `slot-boundp' for details on binding slots.
The instance inheritor uses unbound slots as a way cascading cloned The instance inheritor uses unbound slots as a way of cascading cloned
slot values, so testing for a slot being bound requires extra steps slot values, so testing for a slot being bound requires extra steps
for this kind of object." for this kind of object."
(if (slot-boundp object slot) (if (slot-boundp object slot)
...@@ -213,7 +213,7 @@ specified will not be saved." ...@@ -213,7 +213,7 @@ specified will not be saved."
(defmethod eieio-persistent-save-interactive ((this eieio-persistent) prompt (defmethod eieio-persistent-save-interactive ((this eieio-persistent) prompt
&optional name) &optional name)
"Perpare to save THIS. Use in an `interactive' statement. "Prepare to save THIS. Use in an `interactive' statement.
Query user for file name with PROMPT if THIS does not yet specify Query user for file name with PROMPT if THIS does not yet specify
a file. Optional argument NAME specifies a default file name." a file. Optional argument NAME specifies a default file name."
(unless (slot-boundp this 'file) (unless (slot-boundp this 'file)
...@@ -308,7 +308,7 @@ access to it." ...@@ -308,7 +308,7 @@ access to it."
slot-name operation &optional new-value) slot-name operation &optional new-value)
"Called when a on-existant slot is accessed. "Called when a on-existant slot is accessed.
For variable `eieio-named', provide an imaginary `object-name' slot. For variable `eieio-named', provide an imaginary `object-name' slot.
Argument OBJ is the Named object. Argument OBJ is the named object.
Argument SLOT-NAME is the slot that was attempted to be accessed. Argument SLOT-NAME is the slot that was attempted to be accessed.
OPERATION is the type of access, such as `oref' or `oset'. OPERATION is the type of access, such as `oref' or `oset'.
NEW-VALUE is the value that was being set into SLOT if OPERATION were NEW-VALUE is the value that was being set into SLOT if OPERATION were
......
...@@ -52,9 +52,9 @@ ...@@ -52,9 +52,9 @@
(defun byte-compile-file-form-defmethod (form) (defun byte-compile-file-form-defmethod (form)
"Mumble about the method we are compiling. "Mumble about the method we are compiling.
This function is mostly ripped from `byte-compile-file-form-defun', but This function is mostly ripped from `byte-compile-file-form-defun',
it's been modified to handle the special syntax of the defmethod but it's been modified to handle the special syntax of the `defmethod'
command. There should probably be one for defgeneric as well, but command. There should probably be one for `defgeneric' as well, but
that is called but rarely. Argument FORM is the body of the method." that is called but rarely. Argument FORM is the body of the method."
(setq form (cdr form)) (setq form (cdr form))
(let* ((meth (car form)) (let* ((meth (car form))
...@@ -125,7 +125,7 @@ that is called but rarely. Argument FORM is the body of the method." ...@@ -125,7 +125,7 @@ that is called but rarely. Argument FORM is the body of the method."
nil)) nil))
(defun byte-compile-defmethod-param-convert (paramlist) (defun byte-compile-defmethod-param-convert (paramlist)
"Convert method params into the params used by the defmethod thingy. "Convert method params into the params used by the `defmethod' thingy.
Argument PARAMLIST is the parameter list to convert." Argument PARAMLIST is the parameter list to convert."
(let ((argfix nil)) (let ((argfix nil))
(while paramlist (while paramlist
......
...@@ -90,7 +90,7 @@ of these.") ...@@ -90,7 +90,7 @@ of these.")
(defvar eieio-cog nil (defvar eieio-cog nil
"Buffer local variable in object customize buffers for the current group.") "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. "When true, all customizable slots of the current object are updated.
Updates occur regardless of the current customization group.") Updates occur regardless of the current customization group.")
...@@ -227,7 +227,7 @@ Optional argument IGNORE is an extraneous parameter." ...@@ -227,7 +227,7 @@ Optional argument IGNORE is an extraneous parameter."
(when (and (car fcust) (when (and (car fcust)
(or (not master-group) (member master-group (car fgroup))) (or (not master-group) (member master-group (car fgroup)))
(slot-boundp obj (car slots))) (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. ;; children widgets.
(let ((type (eieio-filter-slot-type widget (car fcust))) (let ((type (eieio-filter-slot-type widget (car fcust)))
(stuff nil)) (stuff nil))
...@@ -320,9 +320,9 @@ Optional argument IGNORE is an extraneous parameter." ...@@ -320,9 +320,9 @@ Optional argument IGNORE is an extraneous parameter."
obj)) obj))
(defmethod eieio-done-customizing ((obj eieio-default-superclass)) (defmethod eieio-done-customizing ((obj eieio-default-superclass))
"When a applying change to a widget, call this method. "When applying change to a widget, call this method.
This method is called by the default widget-edit commands. User made This method is called by the default widget-edit commands.
commands should also call this method when applying changes. User made commands should also call this method when applying changes.
Argument OBJ is the object that has been customized." Argument OBJ is the object that has been customized."
nil) nil)
...@@ -374,7 +374,7 @@ These groups are specified with the `:group' slot flag." ...@@ -374,7 +374,7 @@ These groups are specified with the `:group' slot flag."
(defmethod eieio-custom-object-apply-reset ((obj eieio-default-superclass)) (defmethod eieio-custom-object-apply-reset ((obj eieio-default-superclass))
"Insert an Apply and Reset button into the object editor. "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 (widget-create 'push-button
:notify (lambda (&rest ignore) :notify (lambda (&rest ignore)
(widget-apply eieio-wo :value-get) (widget-apply eieio-wo :value-get)
...@@ -385,16 +385,16 @@ Argument OBJ os the object being customized." ...@@ -385,16 +385,16 @@ Argument OBJ os the object being customized."
(widget-create 'push-button (widget-create 'push-button
:notify (lambda (&rest ignore) :notify (lambda (&rest ignore)
;; I think the act of getting it sets ;; I think the act of getting it sets
;; it's value through the get function. ;; its value through the get function.
(message "Applying Changes...") (message "Applying Changes...")
(widget-apply eieio-wo :value-get) (widget-apply eieio-wo :value-get)
(eieio-done-customizing eieio-co) (eieio-done-customizing eieio-co)
(message "Applying Changes...Done.")) (message "Applying Changes...Done"))
"Apply") "Apply")
(widget-insert " ") (widget-insert " ")
(widget-create 'push-button (widget-create 'push-button
:notify (lambda (&rest ignore) :notify (lambda (&rest ignore)
(message "Resetting.") (message "Resetting")
(eieio-customize-object eieio-co eieio-cog)) (eieio-customize-object eieio-co eieio-cog))
"Reset") "Reset")
(widget-insert " ") (widget-insert " ")
......
...@@ -122,7 +122,7 @@ PREBUTTONTEXT is some text between PREFIX and the object button." ...@@ -122,7 +122,7 @@ PREBUTTONTEXT is some text between PREFIX and the object button."
;; A generic function to run DDEBUG on an object and popup a new buffer. ;; A generic function to run DDEBUG on an object and popup a new buffer.
;; ;;
(defmethod data-debug-show ((obj eieio-default-superclass)) (defmethod data-debug-show ((obj eieio-default-superclass))
"Run ddebug against any EIEIO object OBJ" "Run ddebug against any EIEIO object OBJ."
(data-debug-new-buffer (format "*%s DDEBUG*" (object-name obj))) (data-debug-new-buffer (format "*%s DDEBUG*" (object-name obj)))
(data-debug-insert-object-slots obj "]")) (data-debug-insert-object-slots obj "]"))
......
...@@ -51,7 +51,7 @@ variable `eieio-default-superclass'." ...@@ -51,7 +51,7 @@ variable `eieio-default-superclass'."
)) ))
(defun eieio-browse-tree (this-root prefix ch-prefix) (defun eieio-browse-tree (this-root prefix ch-prefix)
"Recursively, draws the children of the given class on the screen. "Recursively draw the children of the given class on the screen.
Argument THIS-ROOT is the local root of the tree. Argument THIS-ROOT is the local root of the tree.
Argument PREFIX is the character prefix to use. Argument PREFIX is the character prefix to use.
Argument CH-PREFIX is another character prefix to display." Argument CH-PREFIX is another character prefix to display."
...@@ -389,7 +389,8 @@ Also extracts information about all methods specific to this generic." ...@@ -389,7 +389,8 @@ Also extracts information about all methods specific to this generic."
(defun eieio-all-generic-functions (&optional class) (defun eieio-all-generic-functions (&optional class)
"Return a list of all generic functions. "Return a list of all generic functions.
Optional CLASS argument returns only those functions that contain methods for CLASS." Optional CLASS argument returns only those functions that contain
methods for CLASS."
(let ((l nil) tree (cn (if class (symbol-name class) nil))) (let ((l nil) tree (cn (if class (symbol-name class) nil)))
(mapatoms (mapatoms
(lambda (symbol) (lambda (symbol)
...@@ -552,7 +553,7 @@ Optional argument HISTORYVAR is the variable to use as history." ...@@ -552,7 +553,7 @@ Optional argument HISTORYVAR is the variable to use as history."
;;; HELP AUGMENTATION ;;; HELP AUGMENTATION
;; ;;
(defun eieio-help-mode-augmentation-maybee (&rest unused) (defun eieio-help-mode-augmentation-maybee (&rest unused)
"For buffers thrown into help mode, augment for eieio. "For buffers thrown into help mode, augment for EIEIO.
Arguments UNUSED are not used." Arguments UNUSED are not used."
;; Scan created buttons so far if we are in help mode. ;; Scan created buttons so far if we are in help mode.
(when (eq major-mode 'help-mode) (when (eq major-mode 'help-mode)
...@@ -600,13 +601,13 @@ Arguments UNUSED are not used." ...@@ -600,13 +601,13 @@ Arguments UNUSED are not used."
(eval-when-compile (eval-when-compile
(condition-case nil (condition-case nil
(require 'speedbar) (require 'speedbar)
(error (message "Error loading speedbar... ignored.")))) (error (message "Error loading speedbar... ignored"))))
(defvar eieio-class-speedbar-key-map nil (defvar eieio-class-speedbar-key-map nil
"Keymap used when working with a project in speedbar.") "Keymap used when working with a project in speedbar.")
(defun eieio-class-speedbar-make-map () (defun eieio-class-speedbar-make-map ()
"Make a keymap for eieio under speedbar." "Make a keymap for EIEIO under speedbar."
(setq eieio-class-speedbar-key-map (speedbar-make-specialized-keymap)) (setq eieio-class-speedbar-key-map (speedbar-make-specialized-keymap))
;; General viewing stuff ;; General viewing stuff
...@@ -637,8 +638,8 @@ Arguments UNUSED are not used." ...@@ -637,8 +638,8 @@ Arguments UNUSED are not used."
(defun eieio-class-speedbar (dir-or-object depth) (defun eieio-class-speedbar (dir-or-object depth)
"Create buttons in speedbar that represents the current project. "Create buttons in speedbar that represents the current project.
DIR-OR-OBJECT is the object to expand, or nil, and DEPTH is the current DIR-OR-OBJECT is the object to expand, or nil, and DEPTH is the
expansion depth." current expansion depth."
(when (eq (point-min) (point-max)) (when (eq (point-min) (point-max))
;; This function is only called once, to start the whole deal. ;; This function is only called once, to start the whole deal.
;; Ceate, and expand the default object. ;; Ceate, and expand the default object.
......
...@@ -113,7 +113,7 @@ ...@@ -113,7 +113,7 @@
map)) map))
(defvar eieio-speedbar-key-map (eieio-speedbar-make-map) (defvar eieio-speedbar-key-map (eieio-speedbar-make-map)
"A Generic object based speedbar display keymap.") "A generic object based speedbar display keymap.")
(defvar eieio-speedbar-menu (defvar eieio-speedbar-menu
'([ "Edit Object/Field" speedbar-edit-line t] '([ "Edit Object/Field" speedbar-edit-line t]
...@@ -150,7 +150,7 @@ creating the speedbar display." ...@@ -150,7 +150,7 @@ creating the speedbar display."
(defun eieio-speedbar-create-engine (map-fn map-var menu-var modename fetcher) (defun eieio-speedbar-create-engine (map-fn map-var menu-var modename fetcher)
"Create a speedbar mode for displaying an object hierarchy. "Create a speedbar mode for displaying an object hierarchy.
Called from `eieio-speedbar-create', or the speedbar load-hook. Called from `eieio-speedbar-create', or the speedbar load-hook.
MAP-FN, MAP-VAR, MENU-VAR, MODENAME, and FETCHER are the same as MAP-FN, MAP-VAR, MENU-VAR, MODENAME, and FETCHER are the same as in
`eieio-speedbar-create'." `eieio-speedbar-create'."
;; make sure the keymap exists ;; make sure the keymap exists
(funcall map-fn) (funcall map-fn)
...@@ -171,7 +171,7 @@ MAP-FN, MAP-VAR, MENU-VAR, MODENAME, and FETCHER are the same as ...@@ -171,7 +171,7 @@ MAP-FN, MAP-VAR, MENU-VAR, MODENAME, and FETCHER are the same as
(defun eieio-speedbar-buttons (dir-or-object depth fetcher) (defun eieio-speedbar-buttons (dir-or-object depth fetcher)
"Create buttons for the speedbar display. "Create buttons for the speedbar display.
Start in directory DIR-OR-OBJECT. If it is an object, just display that Start in directory DIR-OR-OBJECT. If it is an object, just display that
objects subelements. object's subelements.
Argument DEPTH specifies how far down we have already been displayed. Argument DEPTH specifies how far down we have already been displayed.
If it is a directory, use FETCHER to fetch all objects associated with If it is a directory, use FETCHER to fetch all objects associated with
that path." that path."
...@@ -263,7 +263,7 @@ See `speedbar-make-tag-line' for details." ...@@ -263,7 +263,7 @@ See `speedbar-make-tag-line' for details."
"State of an object being expanded in speedbar.") "State of an object being expanded in speedbar.")
) )
"Class which provides basic speedbar support for child classes. "Class which provides basic speedbar support for child classes.
Add one of thie child classes to this class to the parent list of a class." Add one of the child classes to this class to the parent list of a class."
:method-invocation-order :depth-first :method-invocation-order :depth-first
:abstract t) :abstract t)
...@@ -277,7 +277,7 @@ Add one of thie child classes to this class to the parent list of a class." ...@@ -277,7 +277,7 @@ Add one of thie child classes to this class to the parent list of a class."
(defclass eieio-speedbar-file-button (eieio-speedbar) (defclass eieio-speedbar-file-button (eieio-speedbar)
((buttontype :initform bracket) ((buttontype :initform bracket)
(buttonface :initform speedbar-file-face))