[Emacs-diffs] /srv/bzr/emacs/trunk r99497: Fix typos.

[Juanma Barranquero]

------------------------------------------------------------
revno: 99497 [merge]
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Sun 2010-02-14 18:34:09 +0100
message:
  Fix typos.
modified:
  admin/ChangeLog
  admin/quick-install-emacs
  doc/emacs/ChangeLog
  lisp/ChangeLog
  lisp/ChangeLog.13
  lisp/ChangeLog.8
  lisp/cedet/ede.el
  lisp/cedet/semantic/complete.el
  lisp/cedet/srecode/insert.el
  lisp/emacs-lisp/elint.el
  lisp/org/ChangeLog
  lisp/outline.el
  lisp/simple.el
  lisp/textmodes/reftex-toc.el
  src/ccl.c

=== modified file 'admin/ChangeLog'
--- a/admin/ChangeLog   2010-01-20 03:49:35 +0000
+++ b/admin/ChangeLog   2010-02-14 17:30:41 +0000
@@ -1,3 +1,7 @@
+2010-02-14  Juanma Barranquero  <address@hidden>
+
+       * quick-install-emacs (PRUNED): Fix typo in message.
+
 2010-01-20  Glenn Morris  <address@hidden>
 
        * revdiff: Remove file that only works with CVS, and isn't really

=== modified file 'admin/quick-install-emacs'
--- a/admin/quick-install-emacs 2010-01-13 08:35:10 +0000
+++ b/admin/quick-install-emacs 2010-02-14 17:30:41 +0000
@@ -276,7 +276,7 @@
        if [ -d $DST/$DIR ]; then
          echo Directory $DST/$DIR exists
        else
-         echo Directory $DST/$DIR non-existant
+         echo Directory $DST/$DIR non-existent
          if [ "`echo $DIR | egrep -v "$AVOID_PAT"`" ]; then
            maybe_mkdir $DST/$DIR
          fi

=== modified file 'doc/emacs/ChangeLog'
--- a/doc/emacs/ChangeLog       2010-02-08 07:20:58 +0000
+++ b/doc/emacs/ChangeLog       2010-02-14 17:31:34 +0000
@@ -33,7 +33,7 @@
 
        * building.texi (Grep Searching): Document zrgrep.
 
-       * mini.texi (Completion Options): Mention `initals' completion style.
+       * mini.texi (Completion Options): Mention `initials' completion style.
 
 2009-12-29  Nick Roberts  <address@hidden>
 

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2010-02-14 09:23:52 +0000
+++ b/lisp/ChangeLog    2010-02-14 17:28:10 +0000
@@ -1,3 +1,17 @@
+2010-02-14  Juanma Barranquero  <address@hidden>
+
+       * outline.el (outline-head-from-level):
+       * simple.el (with-wrapper-hook):
+       * cedet/ede.el (ede-run-target, project-delete-target)
+       (project-dist-files, ede-name, ede-documentation, ede-parent-project)
+       (ede-adebug-project, ede-adebug-project-parent)
+       (ede-adebug-project-root):
+       * emacs-lisp/elint.el (elint-extra-errors, elint-current-buffer)
+       (elint-defun, elint-buffer-env, elint-top-form-logged)
+       (elint-unbound-variable):
+       * textmodes/reftex-toc.el (reftex-toc-newhead-from-alist):
+       Fix typos in docstrings.
+
 2010-02-14  Michael Albinus  <address@hidden>
 
        * files.el (insert-directory): When WILDCARD-REGEXP and

=== modified file 'lisp/ChangeLog.13'
--- a/lisp/ChangeLog.13 2010-01-13 08:35:10 +0000
+++ b/lisp/ChangeLog.13 2010-02-14 17:31:34 +0000
@@ -7242,7 +7242,7 @@
 
        * subr.el (event-modifiers): Use internal-event-symbol-parse-modifiers.
 
-       * pcvs.el (cvs-revert-if-needed): Ignore `unknown' files, since cvs
+       * pcvs.el (cvs-revert-if-needed): Ignore `unknown' files, since CVS
        did not touch them.
 
 2007-11-15  Jay Belanger  <address@hidden>

=== modified file 'lisp/ChangeLog.8'
--- a/lisp/ChangeLog.8  2010-01-14 18:29:36 +0000
+++ b/lisp/ChangeLog.8  2010-02-14 17:31:34 +0000
@@ -4729,7 +4729,7 @@
 
 1999-07-08  Espen Skoglund  <address@hidden>
 
-       * pascal.el (pascal-calculate-indent): Fixed a bug occuring when
+       * pascal.el (pascal-calculate-indent): Fixed a bug occurring when
        the `end' keyword was in the very beginning of the buffer.
 
 1999-07-08  Richard Stallman  <address@hidden>

=== modified file 'lisp/cedet/ede.el'
--- a/lisp/cedet/ede.el 2010-01-13 08:35:10 +0000
+++ b/lisp/cedet/ede.el 2010-02-14 17:28:10 +0000
@@ -1155,7 +1155,7 @@
   (ede-invoke-method 'project-debug-target))
 
 (defun ede-run-target ()
-  "Debug the current buffer's assocated target."
+  "Run the current buffer's associated target."
   (interactive)
   (ede-invoke-method 'project-run-target))
 
@@ -1381,7 +1381,7 @@
   (error "New-target-custom not supported by %s" (object-name proj)))
 
 (defmethod project-delete-target ((ot ede-target))
-  "Delete the current target OT from it's parent project."
+  "Delete the current target OT from its parent project."
   (error "add-file not supported by %s" (object-name ot)))
 
 (defmethod project-compile-project ((obj ede-project) &optional command)
@@ -1407,7 +1407,7 @@
   (error "Make-dist not supported by %s" (object-name this)))
 
 (defmethod project-dist-files ((this ede-project))
-  "Return a list of files that constitutes a distribution of THIS project."
+  "Return a list of files that constitute a distribution of THIS project."
   (error "Dist-files is not supported by %s" (object-name this)))
 
 (defmethod project-rescan ((this ede-project))
@@ -1421,7 +1421,7 @@
 ;; b) cosmetic.
 
 (defmethod ede-name ((this ede-target))
-  "Return the name of THIS targt."
+  "Return the name of THIS target."
   (oref this name))
 
 (defmethod ede-target-name ((this ede-target))
@@ -1510,7 +1510,7 @@
        (ede-buffer-documentation-files cp (current-buffer))))))
 
 (defmethod ede-documentation ((this ede-project))
-  "Return a list of files that provides documentation.
+  "Return a list of files that provide documentation.
 Documentation is not for object THIS, but is provided by THIS for other
 files in the project."
   (let ((targ (oref this targets))
@@ -1525,7 +1525,7 @@
     found))
 
 (defmethod ede-documentation ((this ede-target))
-  "Return a list of files that provides documentation.
+  "Return a list of files that provide documentation.
 Documentation is not for object THIS, but is provided by THIS for other
 files in the project."
   nil)
@@ -1651,7 +1651,7 @@
 
 (defun ede-parent-project (&optional obj)
   "Return the project belonging to the parent directory.
-nil if there is no previous directory.
+Returns nil if there is no previous directory.
 Optional argument OBJ is an object to find the parent of."
   (let* ((proj (or obj ede-object-project)) ;; Current project.
         (root (if obj (ede-project-root obj)
@@ -1952,7 +1952,7 @@
 ;;; Debugging.
 
 (defun ede-adebug-project ()
-  "Run adebug against the current ede project.
+  "Run adebug against the current EDE project.
 Display the results as a debug list."
   (interactive)
   (require 'data-debug)
@@ -1962,7 +1962,7 @@
     ))
 
 (defun ede-adebug-project-parent ()
-  "Run adebug against the current ede parent project.
+  "Run adebug against the current EDE parent project.
 Display the results as a debug list."
   (interactive)
   (require 'data-debug)
@@ -1972,7 +1972,7 @@
     ))
 
 (defun ede-adebug-project-root ()
-  "Run adebug against the current ede parent project.
+  "Run adebug against the current EDE parent project.
 Display the results as a debug list."
   (interactive)
   (require 'data-debug)
@@ -1983,7 +1983,7 @@
 
 ;;; Hooks & Autoloads
 ;;
-;;  These let us watch various activities, and respond apropriatly.
+;;  These let us watch various activities, and respond appropriately.
 
 ;; (add-hook 'edebug-setup-hook
 ;;       (lambda ()

=== modified file 'lisp/cedet/semantic/complete.el'
--- a/lisp/cedet/semantic/complete.el   2010-01-16 02:51:50 +0000
+++ b/lisp/cedet/semantic/complete.el   2010-02-14 17:32:16 +0000
@@ -1243,7 +1243,7 @@
 ;; A typical displayor accepts a pre-determined list of completions
 ;; generated by a collector.  This format is in semanticdb search
 ;; form.  This vaguely standard form is a bit challenging to navigate
-;; because the tags do not contain buffer info, but the file assocated
+;; because the tags do not contain buffer info, but the file associated
 ;; with the tags preceed the tag in the list.
 ;;
 ;; Basic displayors don't care, and can strip the results.

=== modified file 'lisp/cedet/srecode/insert.el'
--- a/lisp/cedet/srecode/insert.el      2010-01-14 18:59:31 +0000
+++ b/lisp/cedet/srecode/insert.el      2010-02-14 17:32:16 +0000
@@ -190,7 +190,7 @@
 
 ;;; TEMPLATE ARGUMENTS
 ;;
-;; Some templates have arguments.  Each argument is assocaited with
+;; Some templates have arguments.  Each argument is associated with
 ;; a function that can resolve the inputs needed.
 (defun srecode-resolve-arguments (temp dict)
   "Resolve all the arguments needed by the template TEMP.

=== modified file 'lisp/emacs-lisp/elint.el'
--- a/lisp/emacs-lisp/elint.el  2010-01-13 08:35:10 +0000
+++ b/lisp/emacs-lisp/elint.el  2010-02-14 17:28:10 +0000
@@ -147,7 +147,7 @@
   "Those built-ins for which we can't find arguments, if any.")
 
 (defvar elint-extra-errors '(file-locked file-supersession ftp-error)
-  "Errors without error-message or error-confitions properties.")
+  "Errors without `error-message' or `error-conditions' properties.")
 
 (defconst elint-preloaded-skip-re
   (regexp-opt '("loaddefs.el" "loadup.el" "cus-start" "language/"
@@ -289,7 +289,7 @@
 ;;;###autoload
 (defun elint-current-buffer ()
   "Lint the current buffer.
-If necessary, this first calls `elint-initalize'."
+If necessary, this first calls `elint-initialize'."
   (interactive)
   (or elint-builtin-variables
       (elint-initialize))
@@ -308,7 +308,7 @@
 ;;;###autoload
 (defun elint-defun ()
   "Lint the function at point.
-If necessary, this first calls `elint-initalize'."
+If necessary, this first calls `elint-initialize'."
   (interactive)
   (or elint-builtin-variables
       (elint-initialize))
@@ -325,7 +325,7 @@
 ;;;
 
 (defvar elint-buffer-env nil
-  "The environment of a elisp buffer.
+  "The environment of an elisp buffer.
 Will be local in linted buffers.")
 
 (defvar elint-buffer-forms nil
@@ -528,7 +528,7 @@
   "The currently linted top form, or nil.")
 
 (defvar elint-top-form-logged nil
-  "T if the currently linted top form has been mentioned in the log buffer.")
+  "The value t if the currently linted top form has been mentioned in the log 
buffer.")
 
 (defun elint-top-form (form)
   "Lint a top FORM."
@@ -640,7 +640,7 @@
   "Name of a temporarily bound symbol.")
 
 (defun elint-unbound-variable (var env)
-  "T if VAR is unbound in ENV."
+  "Return t if VAR is unbound in ENV."
   ;; #1063 suggests adding (symbol-file var) here, but I don't think
   ;; this is right, because it depends on what files you happen to have
   ;; loaded at the time, which might not be the same when the code runs.

=== modified file 'lisp/org/ChangeLog'
--- a/lisp/org/ChangeLog        2010-01-14 18:59:31 +0000
+++ b/lisp/org/ChangeLog        2010-02-14 17:31:34 +0000
@@ -748,7 +748,7 @@
        next clock in, the user will be prompted to see if they want to
        back-date their new clock to then.
        (org-clock-resolve): Do not jump the user to the location of a
-       dangling clock if the resolution is occuring due to an idle
+       dangling clock if the resolution is occurring due to an idle
        timeout.  In that case there is typically only one dangling clock,
        the active one, and there is no value gained by shuffling their
        windows around to show it to them.  Being prompted to resolve an

=== modified file 'lisp/outline.el'
--- a/lisp/outline.el   2010-01-13 08:35:10 +0000
+++ b/lisp/outline.el   2010-02-14 17:28:10 +0000
@@ -595,7 +595,7 @@
 ALIST defaults to `outline-heading-alist'.
 Similar to (car (rassoc LEVEL ALIST)).
 If there are several different entries with same new level, choose
-the one with the smallest distance to the assocation of HEAD in the alist.
+the one with the smallest distance to the association of HEAD in the alist.
 This makes it possible for promotion to work in modes with several
 independent sets of headings (numbered, unnumbered, appendix...)"
   (unless alist (setq alist outline-heading-alist))

=== modified file 'lisp/simple.el'
--- a/lisp/simple.el    2010-02-13 19:29:25 +0000
+++ b/lisp/simple.el    2010-02-14 17:28:10 +0000
@@ -6552,7 +6552,7 @@
 a hook, with a buffer-local and a global part.  But it can also be an
 arbitrary expression.
 ARGS is a list of variables which will be passed as additional arguments
-to each function, after the inital argument, and which the first argument
+to each function, after the initial argument, and which the first argument
 expects to receive when called."
   (declare (indent 2) (debug t))
   ;; We need those two gensyms because CL's lexical scoping is not available

=== modified file 'lisp/textmodes/reftex-toc.el'
--- a/lisp/textmodes/reftex-toc.el      2010-01-13 08:35:10 +0000
+++ b/lisp/textmodes/reftex-toc.el      2010-02-14 17:28:10 +0000
@@ -723,8 +723,8 @@
 (defun reftex-toc-newhead-from-alist (nlevel head alist)
   "Get new heading with level NLEVEL from ALIST.
 If there are no such entries, return nil.
-If there are several different entries with same new level, choose
-the one with the smallest distance to the assocation of HEAD in the alist.
+If there are several different entries with same new level, choose the
+one with the smallest distance to the association of HEAD in the alist.
 This makes it possible for promotion to work several sets of headings,
 if these sets are sorted blocks in the alist."
   (let* ((al alist)

=== modified file 'src/ccl.c'
--- a/src/ccl.c 2010-01-13 08:35:10 +0000
+++ b/src/ccl.c 2010-02-14 17:32:16 +0000
@@ -43,7 +43,7 @@
 /* Alist of fontname patterns vs corresponding CCL program.  */
 Lisp_Object Vfont_ccl_encoder_alist;
 
-/* This symbol is a property which assocates with ccl program vector.
+/* This symbol is a property which associates with ccl program vector.
    Ex: (get 'ccl-big5-encoder 'ccl-program) returns ccl program vector.  */
 Lisp_Object Qccl_program;