1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00

Doc/message fixes.

This commit is contained in:
Glenn Morris 2009-10-01 04:10:10 +00:00
parent 0b253b1251
commit a785b776a7
10 changed files with 37 additions and 26 deletions

View File

@ -39,6 +39,17 @@
* 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):

View File

@ -1,6 +1,6 @@
;;; 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
@ -152,7 +152,7 @@ From the autoconf manual:
(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)))
@ -165,7 +165,7 @@ items such as CHECK_HEADERS."
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)
@ -227,7 +227,7 @@ Optional argument PARAM is the parameter to pass to the macro as one string."
(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....

View File

@ -30,7 +30,7 @@
;;
;; 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.
;;
@ -42,7 +42,7 @@
;;
;;; 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")
;;
@ -109,7 +109,7 @@
;; `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."
@ -349,7 +349,7 @@ Each directory needs a a project file to control it.")
(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))

View File

@ -290,7 +290,7 @@ This depends on an up to date `ede-project-class-files' variable."
;;
(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)

View File

@ -1,6 +1,6 @@
;;; 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>
@ -75,7 +75,7 @@
;;
(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)

View File

@ -1,7 +1,7 @@
;;; 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
@ -31,7 +31,7 @@
;; 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.
;;
@ -169,7 +169,7 @@ Adds this rule to a .PHONY list."))
(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)

View File

@ -1,7 +1,7 @@
;;; 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
@ -384,7 +384,7 @@ Argument THIS is the target which needs to insert an info file."
(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."

View File

@ -63,7 +63,7 @@
: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
@ -367,7 +367,7 @@ Argument TARGET is the project we are completing customization on."
)
(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)

View File

@ -1,7 +1,7 @@
;;; 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
@ -105,7 +105,7 @@
)
"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
@ -188,7 +188,7 @@ question lists other variables that need to be looked up.")
(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: "
@ -984,7 +984,7 @@ Kill the Configure buffer if it was not already in a buffer."
(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)))

View File

@ -139,7 +139,7 @@ Used to guess header files, but uses the auxsource regular expression."
(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