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).
;;; 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>
(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))
;;; 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
: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.
;;; 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
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."
(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)
;;; 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>
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
;;; 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
(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)
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)
(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)
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)
(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)
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)
(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)))
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)
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)
(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))
(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)
(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)
(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
;;; 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)
;;; 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)
(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)
;; 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: "
;;; 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
)
(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
: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
(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
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
(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))
(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)))
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
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)
(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))))
;;; 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
(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.
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?
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.
HCoop / bpt / emacs.git / commitdiff