[Emacs-diffs] emacs/lisp ChangeLog cedet/cedet-files.el cedet...

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       09/10/01 02:39:10

Modified files:
        lisp           : ChangeLog 
        lisp/cedet     : cedet-files.el cedet-idutils.el cedet.el 
                         data-debug.el ede.el semantic.el 

Log message:
        Doc/message fixes.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16306&r2=1.16307
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/cedet-files.el?cvsroot=emacs&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/cedet-idutils.el?cvsroot=emacs&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/cedet.el?cvsroot=emacs&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/data-debug.el?cvsroot=emacs&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/ede.el?cvsroot=emacs&r1=1.2&r2=1.3
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/cedet/semantic.el?cvsroot=emacs&r1=1.2&r2=1.3

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16306
retrieving revision 1.16307
diff -u -b -r1.16306 -r1.16307
--- ChangeLog   1 Oct 2009 02:23:29 -0000       1.16306
+++ ChangeLog   1 Oct 2009 02:39:07 -0000       1.16307
@@ -1,5 +1,29 @@
 2009-10-01  Glenn Morris  <address@hidden>
 
+       * 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)
+       (cedet-idutils-version-check):
+       * cedet/cedet.el (cedet-version):
+       * cedet/data-debug.el (data-debug-insert-overlay-button)
+       (data-debug-insert-overlay-list-button)
+       (data-debug-insert-buffer-button)
+       (data-debug-insert-buffer-list-button)
+       (data-debug-insert-process-button, data-debug-insert-ring-button)
+       (data-debug-insert-widget, data-debug-insert-stuff-list-button)
+       (data-debug-insert-stuff-vector-button)
+       (data-debug-insert-symbol-button, data-debug-insert-string)
+       (data-debug-insert-number, data-debug-insert-lambda-expression)
+       (data-debug-insert-nil, data-debug-insert-simple-thing)
+       (data-debug-insert-custom, data-debug-edebug-expr):
+       * cedet/ede.el (ede-auto-add-method, ede-project-class-files)
+       (global-ede-mode-map, ede-new, ede-debug-target)
+       (ede-customize-current-target, ede-buffers, ede-map-buffers, ede-set):
+       * cedet/semantic.el (semantic-minimum-working-buffer-size)
+       (semantic-fetch-tags, semantic-submode-list)
+       (semantic-default-submodes):
+       Doc/message fixes.
+
        * vc-cvs.el (vc-cvs-parse-entry): Be more careful with the
        match-data.  (Bug#4555).
 

Index: cedet/cedet-files.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/cedet-files.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cedet/cedet-files.el        28 Sep 2009 01:28:44 -0000      1.2
+++ cedet/cedet-files.el        1 Oct 2009 02:39:10 -0000       1.3
@@ -1,6 +1,6 @@
 ;;; cedet-files.el --- Common routines dealing with file names.
 
-;;; Copyright (C) 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2007, 2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <address@hidden>
 
@@ -28,7 +28,7 @@
 
 (defun cedet-directory-name-to-file-name (referencedir &optional testmode)
   "Convert the REFERENCEDIR (a full path name) into a filename.
-Convert directory seperation characters into ! characters.
+Convert directory separation characters into ! characters.
 Optional argument TESTMODE is used by tests to avoid conversion
 to the file's truename, and dodging platform tricks."
   (let ((file referencedir))

Index: cedet/cedet-idutils.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/cedet-idutils.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cedet/cedet-idutils.el      28 Sep 2009 01:28:44 -0000      1.2
+++ cedet/cedet-idutils.el      1 Oct 2009 02:39:10 -0000       1.3
@@ -1,6 +1,6 @@
 ;;; cedet-idutils.el --- ID Utils support for CEDET.
 
-;;; Copyright (C) 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2009  Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <address@hidden>
 ;; Version: 0.2
@@ -44,7 +44,7 @@
   :group 'cedet)
 
 (defun cedet-idutils-search (searchtext texttype type scope)
-  "Perform a search with IDUtils, return the created buffer.
+  "Perform a search with ID Utils, return the created buffer.
 SEARCHTEXT is text to find.
 TEXTTYPE is the type of text, such as 'regexp, 'string, 'tagname,
 'tagregexp, or 'tagcompletions.
@@ -109,7 +109,7 @@
 ;;; UTIL CALLS
 ;;
 (defun cedet-idutils-expand-filename (filename)
-  "Expand the FILENAME with IDUtils.
+  "Expand the FILENAME with ID Utils.
 Return a filename relative to the default directory."
   (interactive "sFile: ")
   (let ((ans (save-excursion
@@ -129,7 +129,7 @@
     ans))
 
 (defun cedet-idutils-support-for-directory (&optional dir)
-  "Return non-nil if IDUtils has a support file for DIR.
+  "Return non-nil if ID Utils has a support file for DIR.
 If DIR is not supplied, use the current default directory.
 This works by running lid on a bogus symbol, and looking for
 the error code."
@@ -168,7 +168,7 @@
        (if (inversion-check-version rev nil cedet-idutils-min-version)
            (if noerror
                nil
-             (error "Version of ID Utis is %s.  Need at least %s"
+             (error "Version of ID Utils is %s.  Need at least %s"
                     rev cedet-idutils-min-version))
          ;; Else, return TRUE, as in good enough.
          (when (interactive-p)

Index: cedet/cedet.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/cedet.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cedet/cedet.el      28 Sep 2009 15:15:05 -0000      1.2
+++ cedet/cedet.el      1 Oct 2009 02:39:10 -0000       1.3
@@ -1,7 +1,7 @@
 ;;; cedet.el --- Setup CEDET environment
 
-;;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
-;;; Free Software Foundation, Inc.
+;; Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
+;;   Free Software Foundation, Inc.
 
 ;; Author: David Ponce <address@hidden>
 ;; Maintainer: Eric M. Ludlam  <address@hidden>
@@ -94,7 +94,7 @@
 See `cedet-packages' for details.
 
 FILE VERSION is the version number found in the source file
-for the specificed PACKAGE.
+for the specified PACKAGE.
 
 LOADED VERSION is the version of PACKAGE current loaded in Emacs
 memory and (presumably) running in this Emacs instance.  Value is X

Index: cedet/data-debug.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/data-debug.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cedet/data-debug.el 28 Sep 2009 01:28:44 -0000      1.2
+++ cedet/data-debug.el 1 Oct 2009 02:39:10 -0000       1.3
@@ -111,7 +111,7 @@
 
 (defun data-debug-insert-overlay-button (overlay prefix prebuttontext)
   "Insert a button representing OVERLAY.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the overlay button."
   (let ((start (point))
        (end nil)
@@ -160,7 +160,7 @@
                                              prefix
                                              prebuttontext)
   "Insert a button representing OVERLAYLIST.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the overlay list button."
   (let ((start (point))
        (end nil)
@@ -215,7 +215,7 @@
 
 (defun data-debug-insert-buffer-button (buffer prefix prebuttontext)
   "Insert a button representing BUFFER.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the buffer button."
   (let ((start (point))
        (end nil)
@@ -264,7 +264,7 @@
                                              prefix
                                              prebuttontext)
   "Insert a button representing BUFFERLIST.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the buffer list button."
   (let ((start (point))
        (end nil)
@@ -320,7 +320,7 @@
 
 (defun data-debug-insert-process-button (process prefix prebuttontext)
   "Insert a button representing PROCESS.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the process button."
   (let ((start (point))
        (end nil)
@@ -372,7 +372,7 @@
                                      prefix
                                      prebuttontext)
   "Insert a button representing RING.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the stuff list button."
   (let* ((start (point))
         (end nil)
@@ -481,7 +481,7 @@
 (defun data-debug-insert-widget (widget prefix prebuttontext)
   "Insert one WIDGET.
 A Symbol is a simple thing, but this provides some face and prefix rules.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the thing."
   (let ((string (dd-propertize (format "#<WIDGET %s>" (car widget))
                               'face 'font-lock-keyword-face)))
@@ -534,7 +534,7 @@
                                            prefix
                                            prebuttontext)
   "Insert a button representing STUFFLIST.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the stuff list button."
   (let ((start (point))
        (end nil)
@@ -593,7 +593,7 @@
                                            prefix
                                            prebuttontext)
   "Insert a button representing STUFFVECTOR.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the stuff vector button."
   (let* ((start (point))
         (end nil)
@@ -639,8 +639,8 @@
 
 (defun data-debug-insert-symbol-button (symbol prefix prebuttontext)
   "Insert a button representing SYMBOL.
- PREFIX is the text that preceeds the button.
- PREBUTTONTEXT is some text between prefix and the symbol button."
+PREFIX is the text that precedes the button.
+PREBUTTONTEXT is some text between prefix and the symbol button."
   (let ((string
         (cond ((fboundp symbol)
                (dd-propertize (concat "#'" (symbol-name symbol))
@@ -664,7 +664,7 @@
 (defun data-debug-insert-string (thing prefix prebuttontext)
   "Insert one symbol THING.
 A Symbol is a simple thing, but this provides some face and prefix rules.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the thing."
   (let ((newstr thing))
     (while (string-match "\n" newstr)
@@ -680,7 +680,7 @@
 (defun data-debug-insert-number (thing prefix prebuttontext)
   "Insert one symbol THING.
 A Symbol is a simple thing, but this provides some face and prefix rules.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the thing."
   (insert prefix prebuttontext
          (dd-propertize (format "%S" thing)
@@ -691,7 +691,7 @@
 (defun data-debug-insert-lambda-expression (thing prefix prebuttontext)
   "Insert one lambda expression THING.
 A Symbol is a simple thing, but this provides some face and prefix rules.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the thing."
   (let ((txt (prin1-to-string thing)))
     (data-debug-insert-simple-thing
@@ -701,7 +701,7 @@
 ;;; nil thing
 (defun data-debug-insert-nil (thing prefix prebuttontext)
   "Insert one simple THING with a face.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the thing.
 FACE is the face to use."
   (insert prefix prebuttontext)
@@ -717,7 +717,7 @@
 ;;; simple thing
 (defun data-debug-insert-simple-thing (thing prefix prebuttontext face)
   "Insert one simple THING with a face.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the thing.
 FACE is the face to use."
   (insert prefix prebuttontext)
@@ -733,7 +733,7 @@
 (defun data-debug-insert-custom (thingstring prefix prebuttontext face)
   "Insert one simple THINGSTRING with a face.
 Use for simple items that need a custom insert.
-PREFIX is the text that preceeds the button.
+PREFIX is the text that precedes the button.
 PREBUTTONTEXT is some text between prefix and the thing.
 FACE is the face to use."
   (insert prefix prebuttontext)
@@ -1032,7 +1032,7 @@
 ;; Various commands for displaying complex data structures.
 
 (defun data-debug-edebug-expr (expr)
-  "Dump out the contets of some expression EXPR in edebug with ddebug."
+  "Dump out the contents of some expression EXPR in edebug with ddebug."
   (interactive
    (list (let ((minibuffer-completing-symbol t))
           (read-from-minibuffer "Eval: "

Index: cedet/ede.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/ede.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cedet/ede.el        28 Sep 2009 15:15:05 -0000      1.2
+++ cedet/ede.el        1 Oct 2009 02:39:10 -0000       1.3
@@ -1,7 +1,7 @@
 ;;; ede.el --- Emacs Development Environment gloss
 
-;;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
-;;; 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
+;;   2007, 2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <address@hidden>
 ;; Keywords: project, make
@@ -75,7 +75,7 @@
   )
 
 (defcustom ede-auto-add-method 'ask
-  "Whether a new source file shoud be automatically added to a target.
+  "Whether a new source file should be automatically added to a target.
 Whenever a new file is encountered in a directory controlled by a
 project file, all targets are queried to see if it should be added.
 If the value is 'always, then the new file is added to the first
@@ -175,7 +175,7 @@
                         :proj-file 'ede-simple-projectfile-for-dir
                         :load-type 'ede-simple-load
                         :class-sym 'ede-simple-project))
-  "List of vectos defining how to determine what type of projects exist.")
+  "List of vectors defining how to determine what type of projects exist.")
 
 ;;; Generic project information manager objects
 
@@ -575,7 +575,7 @@
     (define-key map [menu-bar cedet-menu]
       (cons "Development" cedet-menu-map))
     map)
-  "Keymap used in `global-ede-mode'")
+  "Keymap used in `global-ede-mode'.")
 
 ;; Activate the EDE items in cedet-menu-map
 
@@ -955,7 +955,7 @@
                          nil t)))
   ;; Make sure we have a valid directory
   (when (not (file-exists-p default-directory))
-    (error "Cannot create project in non-existant directory %s" 
default-directory))
+    (error "Cannot create project in non-existent directory %s" 
default-directory))
   (when (not (file-writable-p default-directory))
     (error "No write permissions for %s" default-directory))
   ;; Create the project
@@ -1136,7 +1136,7 @@
   (ede-invoke-method 'project-compile-target))
 
 (defun ede-debug-target ()
-  "Debug the current buffer's assocated target."
+  "Debug the current buffer's associated target."
   (interactive)
   (ede-invoke-method 'project-debug-target))
 
@@ -1174,7 +1174,7 @@
   (interactive "P")
   (require 'eieio-custom)
   (if (not (obj-of-class-p ede-object ede-target))
-      (error "Current file is not part of a target."))
+      (error "Current file is not part of a target"))
   (let ((group (if group (eieio-read-customization-group ede-object))))
     (ede-customize-target ede-object group)))
 
@@ -1787,7 +1787,7 @@
     pl))
 
 (defun ede-buffers ()
-  "Return a list of all buffers controled by an EDE object."
+  "Return a list of all buffers controlled by an EDE object."
   (let ((bl (buffer-list))
        (pl nil))
     (while bl
@@ -1799,7 +1799,7 @@
     pl))
 
 (defun ede-map-buffers (proc)
-  "Execute PROC on all buffers controled by EDE."
+  "Execute PROC on all buffers controlled by EDE."
   (mapcar proc (ede-buffers)))
 
 (defmethod ede-map-project-buffers ((this ede-project) proc)
@@ -1900,7 +1900,8 @@
 
 (defun ede-set (variable value &optional proj)
   "Set the project local VARIABLE to VALUE.
-If VARIABLE is not project local, just use set."
+If VARIABLE is not project local, just use set.  Optional argument PROJ
+is the project to use, instead of `ede-current-project'."
   (let ((p (or proj (ede-current-project)))
        a)
     (if (and p (setq a (assoc variable (oref p local-variables))))

Index: cedet/semantic.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/cedet/semantic.el,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -b -r1.2 -r1.3
--- cedet/semantic.el   28 Sep 2009 15:15:05 -0000      1.2
+++ cedet/semantic.el   1 Oct 2009 02:39:10 -0000       1.3
@@ -1,7 +1,7 @@
 ;;; semantic.el --- Semantic buffer evaluator.
 
-;;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
-;;; 2007, 2008, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
+;;   2008, 2009  Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <address@hidden>
 ;; Keywords: syntax
@@ -526,7 +526,7 @@
 (defvar semantic-minimum-working-buffer-size (* 1024 5)
   "*The minimum size of a buffer before working messages are displayed.
 Buffers smaller than will parse silently.
-Bufferse larger than this will display the working progress bar.")
+Buffers larger than this will display the working progress bar.")
 
 (defsubst semantic-parser-working-message (&optional arg)
   "Return the message string displayed while parsing.
@@ -549,7 +549,7 @@
 If the buffer cache is out of date, attempt an incremental reparse.
 If the buffer has not been parsed before, or if the incremental reparse
 fails, then parse the entire buffer.
-If a lexcial error had been previously discovered and the buffer
+If a lexical error had been previously discovered and the buffer
 was marked unparseable, then do nothing, and return the cache."
   (and
    ;; Is this a semantic enabled buffer?
@@ -995,12 +995,12 @@
     global-semanticdb-minor-mode
     global-semantic-idle-summary-mode
     global-semantic-mru-bookmark-mode)
-  "List of auxilliary minor modes in the Semantic package.")
+  "List of auxiliary minor modes in the Semantic package.")
 
 ;;;###autoload
 (defcustom semantic-default-submodes
   '(global-semantic-idle-scheduler-mode global-semanticdb-minor-mode)
-  "List of auxilliary Semantic minor modes enabled by `semantic-mode'.
+  "List of auxiliary Semantic minor modes enabled by `semantic-mode'.
 The possible elements of this list include the following:
 
  `semantic-highlight-func-mode'   - Highlight the current tag.