# HG changeset patch # User Glenn Morris # Date 1254365400 0 # Node ID dcbb3800a4e1ec25913ecf2797e7897e601795a3 # Parent e18b53ee74a9ae33d6a168b8f7be51ec81e0856d Doc/message fixes. diff -r e18b53ee74a9 -r dcbb3800a4e1 lisp/ChangeLog --- a/lisp/ChangeLog Thu Oct 01 02:47:37 2009 +0000 +++ b/lisp/ChangeLog Thu Oct 01 02:50:00 2009 +0000 @@ -1,5 +1,14 @@ 2009-10-01 Glenn Morris + * 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) diff -r e18b53ee74a9 -r dcbb3800a4e1 lisp/emacs-lisp/chart.el --- a/lisp/emacs-lisp/chart.el Thu Oct 01 02:47:37 2009 +0000 +++ b/lisp/emacs-lisp/chart.el Thu Oct 01 02:50:00 2009 +0000 @@ -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 ;; Version: 0.2 @@ -528,7 +528,7 @@ (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 @@ (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 @@ ;;; 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 "/"))) diff -r e18b53ee74a9 -r dcbb3800a4e1 lisp/emacs-lisp/eieio-comp.el --- a/lisp/emacs-lisp/eieio-comp.el Thu Oct 01 02:47:37 2009 +0000 +++ b/lisp/emacs-lisp/eieio-comp.el Thu Oct 01 02:50:00 2009 +0000 @@ -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 +;; Author: Eric M. Ludlam ;; Version: 0.2 ;; Keywords: oop, lisp, tools @@ -126,7 +126,7 @@ (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)) diff -r e18b53ee74a9 -r dcbb3800a4e1 lisp/emacs-lisp/eieio-datadebug.el --- a/lisp/emacs-lisp/eieio-datadebug.el Thu Oct 01 02:47:37 2009 +0000 +++ b/lisp/emacs-lisp/eieio-datadebug.el Thu Oct 01 02:50:00 2009 +0000 @@ -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 +;; Author: Eric M. Ludlam ;; Keywords: OO, lisp ;; This file is part of GNU Emacs. @@ -51,7 +51,7 @@ (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) diff -r e18b53ee74a9 -r dcbb3800a4e1 lisp/emacs-lisp/eieio-opt.el --- a/lisp/emacs-lisp/eieio-opt.el Thu Oct 01 02:47:37 2009 +0000 +++ b/lisp/emacs-lisp/eieio-opt.el Thu Oct 01 02:50:00 2009 +0000 @@ -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 +;; Author: Eric M. Ludlam ;; Version: 0.2 ;; Keywords: OO, lisp @@ -75,7 +75,7 @@ (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*" diff -r e18b53ee74a9 -r dcbb3800a4e1 lisp/emacs-lisp/eieio-speedbar.el --- a/lisp/emacs-lisp/eieio-speedbar.el Thu Oct 01 02:47:37 2009 +0000 +++ b/lisp/emacs-lisp/eieio-speedbar.el Thu Oct 01 02:50:00 2009 +0000 @@ -3,7 +3,7 @@ ;; Copyright (C) 1999, 2000, 2001, 2002, 2005, 2007, 2008, 2009 ;; Free Software Foundation, Inc. -;; Author: Eric M. Ludlam +;; Author: Eric M. Ludlam ;; 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)) diff -r e18b53ee74a9 -r dcbb3800a4e1 lisp/emacs-lisp/eieio.el --- a/lisp/emacs-lisp/eieio.el Thu Oct 01 02:47:37 2009 +0000 +++ b/lisp/emacs-lisp/eieio.el Thu Oct 01 02:50:00 2009 +0000 @@ -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 +;; Author: Eric M. Ludlam ;; Version: 0.2 ;; Keywords: OO, lisp @@ -307,7 +307,7 @@ 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 @@ ;;;###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 @@ (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 @@ (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 @@ `(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 @@ 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)