* cedet/semantic.el (semantic-minimum-working-buffer-size)
(semantic-fetch-tags, semantic-submode-list)
(semantic-default-submodes):
+ * cedet/ede/source.el (ede-source-match):
+ * cedet/ede/project-am.el (project-am-type-alist, project-add-file)
+ (project-am-package-info):
+ * cedet/ede/proj.el (ede-proj-target, project-new-target):
+ * cedet/ede/proj-elisp.el (ede-proj-tweak-autoconf):
+ * cedet/ede/proj-comp.el (ede-current-build-list):
+ * cedet/ede/makefile-edit.el (makefile-move-to-macro):
+ * cedet/ede/files.el (ede-toplevel-project-or-nil):
+ * cedet/ede/cpp-root.el (initialize-instance):
+ * cedet/ede/autoconf-edit.el (autoconf-find-last-macro)
+ (autoconf-parameter-strip, autoconf-insert-new-macro):
* cedet/srecode/table.el (srecode-mode-table-new):
* cedet/srecode/srt.el (srecode-read-variable-name):
* cedet/srecode/srt-mode.el (srecode-macro-help, srecode-in-macro-p):
;;; ede/autoconf-edit.el --- Keymap for autoconf
-;;; Copyright (C) 1998, 1999, 2000, 2009 Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2009 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Keywords: project
(looking-at (concat "\\(A[CM]_" macro "\\|" macro "\\)"))))
(defun autoconf-find-last-macro (macro)
- "Move to the last occurance of MACRO in FILE, and return that point.
+ "Move to the last occurrence of MACRO in FILE, and return that point.
The last macro is usually the one in which we would like to insert more
items such as CHECK_HEADERS."
(let ((op (point)))
nil)))
(defun autoconf-parameter-strip (param)
- "Strip the parameter PARAM of whitespace and misc characters."
+ "Strip the parameter PARAM of whitespace and miscellaneous characters."
(when (string-match "^\\s-*\\[?\\s-*" param)
(setq param (substring param (match-end 0))))
(when (string-match "\\s-*\\]?\\s-*$" param)
(autoconf-insert-macro-at-point macro param))
((member macro autoconf-multiple-multiple-macros)
(if (not param)
- (error "You must have a paramter for %s" macro))
+ (error "You must have a parameter for %s" macro))
(if (not (autoconf-find-last-macro macro))
(progn
;; Doesn't exist yet....
;;
;; The cpp-root project type will allow you to create a single object
;; with no save-file in your .emacs file that will be recognized, and
-;; provide a way to easilly allow EDE to provide Semantic with the
+;; provide a way to easily allow EDE to provide Semantic with the
;; ability to find header files, and other various source files
;; quickly.
;;
;;
;;; EXAMPLE
;;
-;; Add this to your .emacs file, modifying apropriate bits as needed.
+;; Add this to your .emacs file, modifying appropriate bits as needed.
;;
;; (ede-cpp-root-project "SOMENAME" :file "/dir/to/some/file")
;;
;; `ede-project-class-files' list, and also provide two functions to
;; teach EDE how to load your project pattern
;;
-;; It would oook like this:
+;; It would look like this:
;;
;; (defun MY-FILE-FOR-DIR (&optional dir)
;; "Return a full file name to the project file stored in DIR."
(when (or (not (file-exists-p f))
(file-directory-p f))
(delete-instance this)
- (error ":file for ede-cpp-root must be a file."))
+ (error ":file for ede-cpp-root must be a file"))
(oset this :file f)
(oset this :directory (file-name-directory f))
(ede-project-directory-remove-hash (file-name-directory f))
;;
(defun ede-toplevel-project-or-nil (dir)
"Starting with DIR, find the toplevel project directory, or return nil.
-nil is returned if the current directory is not a part ofa project."
+nil is returned if the current directory is not a part of a project."
(let* ((ans (ede-directory-get-toplevel-open-project dir)))
(if ans
(oref ans :directory)
;;; makefile-edit.el --- Makefile editing/scanning commands.
-;;; Copyright (C) 2009 Free Software Foundation, Inc.
+;; Copyright (C) 2009 Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <eric@siege-engine.com>
;;
(defun makefile-move-to-macro (macro &optional next)
"Move to the definition of MACRO. Return t if found.
-If NEXT is non-nil, move to the next occurance of MACRO."
+If NEXT is non-nil, move to the next occurrence of MACRO."
(let ((oldpt (point)))
(when (not next) (goto-char (point-min)))
(if (re-search-forward (concat "^\\s-*" macro "\\s-*[+:?]?=") nil t)
;;; ede/proj-comp.el --- EDE Generic Project compiler/rule driver
-;;; Copyright (C) 1999, 2000, 2001, 2004, 2005, 2007, 2009
-;;; Free Software Foundation, Inc.
+;; Copyright (C) 1999, 2000, 2001, 2004, 2005, 2007, 2009
+;; Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Keywords: project, make
;; source code. Users can also define new compiler types whenever they
;; some customized behavior.
;;
-;; The `ede-makefile-rule' class lets users add customized rules into thier
+;; The `ede-makefile-rule' class lets users add customized rules into their
;; objects, and also lets different compilers add chaining rules to their
;; behaviors.
;;
(defvar ede-current-build-list nil
"List of EDE compilers that have already inserted parts of themselves.
-This is used when creating a Makefile to prevend duplicate variables and
+This is used when creating a Makefile to prevent duplicate variables and
rules from being created.")
(defmethod initialize-instance :AFTER ((this ede-compiler) &rest fields)
;;; ede-proj-elisp.el --- EDE Generic Project Emacs Lisp support
-;;; 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
(defmethod ede-proj-tweak-autoconf ((this ede-proj-target-elisp-autoloads))
"Tweak the configure file (current buffer) to accomodate THIS."
- (error "Autoloads not supported in autoconf yet."))
+ (error "Autoloads not supported in autoconf yet"))
(defmethod ede-proj-flush-autoconf ((this ede-proj-target-elisp-autoloads))
"Flush the configure file (current buffer) to accomodate THIS."
:custom (repeat (string :tag "File"))
:label "Auxiliary Source Files"
:group (default source)
- :documentation "Auxilliary source files included in this target.
+ :documentation "Auxiliary source files included in this target.
Each of these is considered equivalent to a source file, but it is not
distributed, and each should have a corresponding rule to build it.")
(dirty :initform nil
)
(when (not fcn)
- (error "Unknown target type %s for EDE Project." type))
+ (error "Unknown target type %s for EDE Project" type))
(setq ot (funcall fcn name :name name
:path (ede-convert-path this default-directory)
;;; project-am.el --- A project management scheme based on automake files.
-;;; Copyright (C) 1998, 1999, 2000, 2003, 2005, 2007, 2008, 2009
-;;; Free Software Foundation, Inc.
+;; Copyright (C) 1998, 1999, 2000, 2003, 2005, 2007, 2008, 2009
+;; Free Software Foundation, Inc.
;; Author: Eric M. Ludlam <zappo@gnu.org>
;; Version: 0.0.3
)
"Alist of type names and the type of object to create for them.
Each entry is of th form:
- (EMACSNAME CLASS AUToMAKEVAR INDIRECT)
+ (EMACSNAME CLASS AUTOMAKEVAR INDIRECT)
where EMACSNAME is a name for Emacs to use.
CLASS is the EDE target class to represent the target.
AUTOMAKEVAR is the Automake variable to identify. This cannot be a
(defmethod project-add-file ((ot project-am-target))
"Add the current buffer into a project.
OT is the object target. DIR is the directory to start in."
- (let* ((target (if ede-object (error "Already assocated w/ a target")
+ (let* ((target (if ede-object (error "Already associated w/ a target")
(let ((amf (project-am-load default-directory)))
(if (not amf) (error "No project file"))
(completing-read "Target: "
(defun project-am-package-info (dir)
"Get the package information for directory topmost project dir over DIR.
-Calcultes the info with `project-am-extract-package-info'."
+Calculates the info with `project-am-extract-package-info'."
(let ((top (ede-toplevel)))
(when top (setq dir (oref top :directory)))
(project-am-extract-package-info dir)))
(object-assoc name :name ede-sourcecode-list))
(defun ede-source-match (file)
- "Find the list of soucecode objects which matches FILE."
+ "Find the list of sourcecode objects which matches FILE."
(let ((lst ede-sourcecode-list)
(match nil))
(while lst
HCoop / bpt / emacs.git / commitdiff