# HG changeset patch # User Glenn Morris # Date 1254364747 0 # Node ID 42404460bd679d7b47d81039c0bb245b015d7c1a # Parent 2701a9aa11476fa4c5e5670f518f718501b44552 Doc/message fixes. diff -r 2701a9aa1147 -r 42404460bd67 lisp/ChangeLog --- 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 + * 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). diff -r 2701a9aa1147 -r 42404460bd67 lisp/cedet/cedet-files.el --- 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 @@ -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)) diff -r 2701a9aa1147 -r 42404460bd67 lisp/cedet/cedet-idutils.el --- 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 ;; 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) diff -r 2701a9aa1147 -r 42404460bd67 lisp/cedet/cedet.el --- 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 ;; Maintainer: Eric M. Ludlam @@ -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 diff -r 2701a9aa1147 -r 42404460bd67 lisp/cedet/data-debug.el --- 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 ;; 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 "#" (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: " diff -r 2701a9aa1147 -r 42404460bd67 lisp/cedet/ede.el --- 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 ;; 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)))) diff -r 2701a9aa1147 -r 42404460bd67 lisp/cedet/semantic.el --- 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 ;; 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.