2009-10-01 Glenn Morris <rgm@gnu.org>
+ * emacs-lisp/chart.el (chart-zap-chars, chart-bar-quickie)
+ (chart-file-count):
+ * emacs-lisp/eieio-comp.el (byte-compile-defmethod-param-convert):
+ * emacs-lisp/eieio-datadebug.el (data-debug-insert-object-button):
+ * emacs-lisp/eieio-opt.el (eieio-describe-class):
+ * emacs-lisp/eieio-speedbar.el (eieio-speedbar-create):
+ * emacs-lisp/eieio.el (defclass, eieio-defclass-autoload)
+ (eieio-copy-parents-into-subclass, make-instance, class-children)
+ (eieio-generic-form):
* cedet/cedet-files.el (cedet-directory-name-to-file-name):
* cedet/cedet-idutils.el (cedet-idutils-search)
(cedet-idutils-expand-filename, cedet-idutils-support-for-directory)
;;; 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
(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)
(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:
;;; 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 "/")))
;;; 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
(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))
;;; 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.
(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)
;;; 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
(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*"
;; 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
;; 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)
"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))
;;; 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
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
;;;###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.
(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)
(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.
`(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)))
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)
projects / emacs.git / commitdiff