mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-09 07:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Doc/message fixes.

Browse source
This commit is contained in:
Glenn Morris 2009-10-01 02:50:00 +00:00
parent d8edf09f37
commit 9ffe3f52fe
7 changed files with 39 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -1,7 +1,7 @@
;;; chart.el --- Draw charts (bar charts, etc)
;;; Copyright (C) 1996, 1998, 1999, 2001, 2004, 2005, 2007, 2008, 2009
;;; Free Software Foundation, Inc.
;; Copyright (C) 1996, 1998, 1999, 2001, 2004, 2005, 2007, 2008, 2009
;; Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Version: 0.2
@ -528,7 +528,7 @@ cons cells of the form (NAME . NUM). See SORT for more details."
(remove-text-properties p (point) '(face))))))
(defun chart-zap-chars (n)
"Zap up to N chars without deleteting EOLs."
"Zap up to N chars without deleting EOLs."
(if (not (eobp))
(if (< n (- (save-excursion (end-of-line) (point)) (point)))
(delete-char n)
@ -579,7 +579,7 @@ R1 and R2 are dotted pairs. Colorize it with FACE."
(defun chart-bar-quickie (dir title namelst nametitle numlst numtitle
&optional max sort-pred)
"Wash over the complex eieio stuff and create a nice bar chart.
Creat 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
labeled NUMTITLE.
Optional arguments:
@ -619,7 +619,7 @@ SORT-PRED if desired."
;;; Sample utility function
(defun chart-file-count (dir)
"Draw a chart displaying the number of different file extentions in DIR."
"Draw a chart displaying the number of different file extensions in DIR."
(interactive "DDirectory: ")
(if (not (string-match "/$" dir))
(setq dir (concat dir "/")))

8
lisp/emacs-lisp/eieio-comp.el
View file

@ -1,9 +1,9 @@
;;; eieio-comp.el -- eieio routines to help with byte compilation
;;; Copyright (C) 1995,1996, 1998, 1999, 2000, 2001, 2002, 2005, 2008,
;;; 2009 Free Software Foundation, Inc.
;; Copyright (C) 1995,1996, 1998, 1999, 2000, 2001, 2002, 2005, 2008,
;; 2009 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Version: 0.2
;; Keywords: oop, lisp, tools
@ -126,7 +126,7 @@ that is called but rarely. Argument FORM is the body of the method."
(defun byte-compile-defmethod-param-convert (paramlist)
"Convert method params into the params used by the defmethod thingy.
Argument PARAMLIST is the paramter list to convert."
Argument PARAMLIST is the parameter list to convert."
(let ((argfix nil))
(while paramlist
(setq argfix (cons (if (listp (car paramlist))

6
lisp/emacs-lisp/eieio-datadebug.el
View file

@ -1,8 +1,8 @@
;;; eieio-datadebug.el --- EIEIO extensions to the data debugger.
;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc.
;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Keywords: OO, lisp
;; This file is part of GNU Emacs.
@ -51,7 +51,7 @@ PREFIX specifies what to insert at the start of each line."
(defun data-debug-insert-object-button (object prefix prebuttontext)
"Insert a button representing OBJECT.
PREFIX is the text that preceeds the button.
PREFIX is the text that precedes the button.
PREBUTTONTEXT is some text between PREFIX and the object button."
(let ((start (point))
(end nil)

8
lisp/emacs-lisp/eieio-opt.el
View file

@ -1,9 +1,9 @@
;;; eieio-opt.el -- eieio optional functions (debug, printing, speedbar)
;;; Copyright (C) 1996, 1998, 1999, 2000, 2001, 2002, 2003, 2005,
;;; 2008, 2009 Free Software Foundation, Inc.
;; Copyright (C) 1996, 1998, 1999, 2000, 2001, 2002, 2003, 2005, 2008,
;; 2009 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Version: 0.2
;; Keywords: OO, lisp
@ -75,7 +75,7 @@ Argument CH-PREFIX is another character prefix to display."
(defun eieio-describe-class (class &optional headerfcn)
"Describe a CLASS defined by a string or symbol.
If CLASS is actually an object, then also display current values of that obect.
If CLASS is actually an object, then also display current values of that object.
Optional HEADERFCN should be called to insert a few bits of info first."
(interactive (list (eieio-read-class "Class: ")))
(with-output-to-temp-buffer (help-buffer) ;"*Help*"

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

@ -3,7 +3,7 @@
;; Copyright (C) 1999, 2000, 2001, 2002, 2005, 2007, 2008, 2009
;; Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Version: 0.2
;; Keywords: OO, tools
@ -77,9 +77,9 @@
;; string. This will automatically handle cases when speedbar is
;; not already loaded, and specifying all overload functions.
;;
;; 5) Create an initliazer function which looks like this:
;; 5) Create an initializer function which looks like this:
;;
;; (defun my-speedbar-mode-initilaize ()
;; (defun my-speedbar-mode-initialize ()
;; "documentation"
;; (interactive)
;; (speedbar-frame-mode 1)
@ -136,8 +136,8 @@
"Create a speedbar mode for displaying an object hierarchy.
MAP-FN is the keymap generator function used for extra keys.
MAP-VAR is the keymap variable used.
MENU-VAR is the symbol containting an easymenu compatible menu part to use.
MODENAME is a s tring used to identify this browser mode.
MENU-VAR is the symbol containing an easymenu compatible menu part to use.
MODENAME is a string used to identify this browser mode.
FETCHER is a generic function used to fetch the base object list used when
creating the speedbar display."
(if (not (featurep 'speedbar))

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

@ -1,10 +1,10 @@
;;; eieio.el --- Enhanced Implementation of Emacs Interpreted Objects
;;; or maybe Eric's Implementation of Emacs Intrepreted Objects
;;; Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003,
;;; 2004, 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;; Copyright (C) 1995, 1996, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
;; 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Version: 0.2
;; Keywords: OO, lisp
@ -307,7 +307,7 @@ Options added to EIEIO:
If a string, use as an error string if someone does
try to make an instance.
:method-invocation-order
- Control the method invokation order if there is
- Control the method invocation order if there is
multiple inheritance. Valid values are:
:breadth-first - The default.
:depth-first
@ -333,7 +333,7 @@ wish, and reference them using the function `class-option'."
;;;###autoload
(defun eieio-defclass-autoload (cname superclasses filename doc)
"Create autoload symbols for the EIEIO class CNAME.
SUPERCLASSES are the superclasses that CNAME inherites from.
SUPERCLASSES are the superclasses that CNAME inherits from.
DOC is the docstring for CNAME.
This function creates a mock-class for CNAME and adds it into
SUPERCLASSES as children.
@ -1020,7 +1020,7 @@ if default value is nil."
(defun eieio-copy-parents-into-subclass (newc parents)
"Copy into NEWC the slots of PARENTS.
Follow the rules of not overwritting early parents when applying to
Follow the rules of not overwriting early parents when applying to
the new child class."
(let ((ps (aref newc class-parent))
(sn (class-option-assoc (aref newc class-options)
@ -1101,7 +1101,7 @@ for each slot. For example:
(make-instance 'foo :slot1 value1 :slotN valueN)
Compatability note:
Compatibility note:
If the first element of INITARGS is a string, it is used as the
name of the class.
@ -1615,7 +1615,7 @@ The CLOS function `class-direct-superclasses' is aliased to this function."
`(aref (class-v ,class) class-children))
(defun class-children (class)
"Return child classses to CLASS.
"Return child classes to CLASS.
The CLOS function `class-direct-subclasses' is aliased to this function."
(if (not (class-p class)) (signal 'wrong-type-argument (list 'class-p class)))
@ -2274,7 +2274,7 @@ 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
memoized for future faster use."
memorized for future faster use."
(let ((emto (aref (get method 'eieio-method-obarray)
(if class key (+ key 3)))))
(if (class-p class)