procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix typos in docstrings, error messages, etc.

Browse source
This commit is contained in:
Juanma Barranquero 2010-01-18 05:39:40 +01:00
parent 33972e8014
commit db9e401b3b
20 changed files with 235 additions and 148 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/chart.el
View file

@ -644,7 +644,7 @@ SORT-PRED if desired."
;; Lets create the chart!
(chart-bar-quickie 'vertical "Files Extension Distribution"
extlst "File Extensions"
cntlst "# of occurances"
cntlst "# of occurrences"
10
'(lambda (a b) (> (cdr a) (cdr b))))
))
@ -740,9 +740,9 @@ SORT-PRED if desired."
(setcar cell (1+ (car cell))))
(setq nmlst (cons nam nmlst)
cntlst (cons 1 cntlst))))))
(chart-bar-quickie 'vertical "Username Occurance in RMAIL box"
(chart-bar-quickie 'vertical "Username Occurrence in RMAIL box"
nmlst "User Names"
cntlst "# of occurances"
cntlst "# of occurrences"
10
'(lambda (a b) (> (cdr a) (cdr b))))
))

4
lisp/emacs-lisp/eieio-speedbar.el
View file

@ -227,7 +227,7 @@ attributes. These default objects will be pulled up in a custom
object edit buffer doing an in-place edit.
If your object represents some other item, override this method
and take the apropriate action."
and take the appropriate action."
(require 'eieio-custom)
(speedbar-with-attached-buffer
(eieio-customize-object object))
@ -327,7 +327,7 @@ Argument DEPTH is the depth at which the tag line is inserted."
(defmethod eieio-speedbar-expand ((object eieio-speedbar) depth)
"Expand OBJECT at indentation DEPTH.
Inserts a list of new tag lines representing expanded elements withing
Inserts a list of new tag lines representing expanded elements within
OBJECT."
(let ((children (eieio-speedbar-object-children object)))
(cond ((eieio-object-p (car children))

18
lisp/emacs-lisp/eieio.el
View file

@ -79,7 +79,7 @@
"*This hook is executed, then cleared each time `defclass' is called.")
(defvar eieio-error-unsupported-class-tags nil
"*Non nil to throw an error if an encountered tag us unsupported.
"*Non-nil to throw an error if an encountered tag us unsupported.
This may prevent classes from CLOS applications from being used with EIEIO
since EIEIO does not support all CLOS tags.")
@ -2021,7 +2021,7 @@ This should only be called from a generic function."
(run-hook-with-args 'eieio-pre-method-execution-hooks
primarymethodlist)
;; Now loop through all occurances forms which we must execute
;; Now loop through all occurrences forms which we must execute
;; (which are happily sorted now) and execute them all!
(let ((rval nil) (lastval nil) (rvalever nil) (found nil))
(while lambdas
@ -2101,7 +2101,7 @@ for this common case to improve performance."
(setq primarymethodlist ;; Re-use even with bad name here
(eieiomt-method-list method method-primary mclass))
;; Now loop through all occurances forms which we must execute
;; Now loop through all occurrences forms which we must execute
;; (which are happily sorted now) and execute them all!
(let* ((rval nil) (lastval nil) (rvalever nil)
(scoped-class (cdr lambdas))
@ -2331,7 +2331,7 @@ nil for superclasses. This function performs no type checking!"
If CLASS is not a class then use `generic' instead. If class has
no form, but has a parent class, then trace to that parent class.
The first time a form is requested from a symbol, an optimized path
is memorized for future faster use."
is memorized for faster future use."
(let ((emto (aref (get method 'eieio-method-obarray)
(if class key (+ key 3)))))
(if (class-p class)
@ -2814,13 +2814,13 @@ Optional argument NOESCAPE is passed to `prin1-to-string' when appropriate."
;;; Autoloading some external symbols, and hooking into the help system
;;
(autoload 'eieio-help-mode-augmentation-maybee "eieio-opt" "For buffers thrown into help mode, augment for eieio.")
(autoload 'eieio-browse "eieio-opt" "Create an object browser window" t)
(autoload 'eieio-help-mode-augmentation-maybee "eieio-opt" "For buffers thrown into help mode, augment for EIEIO.")
(autoload 'eieio-browse "eieio-opt" "Create an object browser window." t)
(autoload 'eieio-describe-class "eieio-opt" "Describe CLASS defined by a string or symbol" t)
(autoload 'eieio-describe-constructor "eieio-opt" "Describe the constructor function FCN." t)
(autoload 'describe-class "eieio-opt" "Describe CLASS defined by a string or symbol" t)
(autoload 'eieio-describe-generic "eieio-opt" "Describe GENERIC defined by a string or symbol" t)
(autoload 'describe-generic "eieio-opt" "Describe GENERIC defined by a string or symbol" t)
(autoload 'describe-class "eieio-opt" "Describe CLASS defined by a string or symbol." t)
(autoload 'eieio-describe-generic "eieio-opt" "Describe GENERIC defined by a string or symbol." t)
(autoload 'describe-generic "eieio-opt" "Describe GENERIC defined by a string or symbol." t)
(autoload 'customize-object "eieio-custom" "Create a custom buffer editing OBJ.")