Mercurial > emacs

changeset 105325:42404460bd67

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Doc/message fixes.
author Glenn Morris <rgm@gnu.org>
date Thu, 01 Oct 2009 02:39:07 +0000
parents 2701a9aa1147
children e18b53ee74a9
files lisp/ChangeLog lisp/cedet/cedet-files.el lisp/cedet/cedet-idutils.el lisp/cedet/cedet.el lisp/cedet/data-debug.el lisp/cedet/ede.el lisp/cedet/semantic.el
diffstat 7 files changed, 71 insertions(+), 46 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Thu Oct 01 02:23:29 2009 +0000
+++ b/lisp/ChangeLog	Thu Oct 01 02:39:07 2009 +0000
@@ -1,5 +1,29 @@
 2009-10-01  Glenn Morris  <rgm@gnu.org>
 
+	* 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).
 
--- a/lisp/cedet/cedet-files.el	Thu Oct 01 02:23:29 2009 +0000
+++ b/lisp/cedet/cedet-files.el	Thu Oct 01 02:39:07 2009 +0000
@@ -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 <eric@siege-engine.com>
 
@@ -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))
--- a/lisp/cedet/cedet-idutils.el	Thu Oct 01 02:23:29 2009 +0000
+++ b/lisp/cedet/cedet-idutils.el	Thu Oct 01 02:39:07 2009 +0000
@@ -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 <eric@siege-engine.com>
 ;; 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)
--- a/lisp/cedet/cedet.el	Thu Oct 01 02:23:29 2009 +0000
+++ b/lisp/cedet/cedet.el	Thu Oct 01 02:39:07 2009 +0000
@@ -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 <david@dponce.com>
 ;; Maintainer: Eric M. Ludlam  <zappo@gnu.org>
@@ -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
--- a/lisp/cedet/data-debug.el	Thu Oct 01 02:23:29 2009 +0000
+++ b/lisp/cedet/data-debug.el	Thu Oct 01 02:39:07 2009 +0000
@@ -1,6 +1,6 @@
 ;;; data-debug.el --- Datastructure 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>
 ;; Version: 0.2
@@ -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: "
--- a/lisp/cedet/ede.el	Thu Oct 01 02:23:29 2009 +0000
+++ b/lisp/cedet/ede.el	Thu Oct 01 02:39:07 2009 +0000
@@ -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 <zappo@gnu.org>
 ;; 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))))
--- a/lisp/cedet/semantic.el	Thu Oct 01 02:23:29 2009 +0000
+++ b/lisp/cedet/semantic.el	Thu Oct 01 02:39:07 2009 +0000
@@ -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 <zappo@gnu.org>
 ;; 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.