mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

Doc/message fixes.

Browse Source
This commit is contained in:
Glenn Morris 2009-10-01 02:39:07 +00:00
parent 9515cdccc0
commit bd2afec2e6
7 changed files with 71 additions and 46 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/ChangeLog
View File

@ -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).

4
lisp/cedet/cedet-files.el
View File

@ -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))

10
lisp/cedet/cedet-idutils.el
View File

@ -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 @@ Return the created buffer with with program output."
;;; 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 @@ Return a filename relative to the default directory."
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 @@ return nil."
(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)

6
lisp/cedet/cedet.el
View File

@ -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 @@ REQUESTED VERSION is the version requested by the CEDET load script.
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

38
lisp/cedet/data-debug.el
View File

@ -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 @@ PREFIX specifies what to insert at the start of each line."
(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 specifies what to insert at the start of each line."
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 @@ PREFIX specifies what to insert at the start of each line."
(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 specifies what to insert at the start of each line."
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 @@ PREFIX specifies what to insert at the start of each line."
(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 specifies what to insert at the start of each line."
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 @@ PREBUTTONTEXT is some text between prefix and the stuff list button."
(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 specifies what to insert at the start of each line."
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 specifies what to insert at the start of each line."
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 @@ PREBUTTONTEXT is some text between prefix and the stuff vector button."
(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 @@ PREBUTTONTEXT is some text between prefix and the stuff vector button."
(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 @@ PREBUTTONTEXT is some text between prefix and the thing."
(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 @@ PREBUTTONTEXT is some text between prefix and the thing."
(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 @@ PREBUTTONTEXT is some text between prefix and the thing."
;;; 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 @@ FACE is the face to use."
;;; 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 @@ FACE is the face to use."
(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 @@ Do nothing if already expanded."
;; 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: "

23
lisp/cedet/ede.el
View File

@ -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 @@ type is required and the load function used.")
: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 @@ Argument LIST-O-O is the list of objects to choose from."
(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 @@ Optional argument NAME is the name to give this project."
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 @@ Optional argument FORCE forces the file to be removed without asking."
(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 @@ Optional argument GROUP is the slot group to display."
(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 @@ This includes buffers controlled by a specific target of PROJECT."
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 @@ This includes buffers controlled by a specific target of PROJECT."
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 @@ Return the first non-nil value returned by PROC."
(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))))

12
lisp/cedet/semantic.el
View File

@ -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 @@ is requested."
(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 up to date, return that.
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 @@ Prevent this load system from loading files in twice.")
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.