79 files changed, 920 insertions, 554 deletions
diff --git a/admin/ChangeLog b/admin/ChangeLog
index 8fd3b828a71..a43dbe931f0 100644
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-20  Glenn Morris  <rgm@gnu.org>
+        * revdiff: Remove file that only works with CVS, and isn't really
+        needed with Bazaar (given the in-built revision options of bzr diff).
 2010-01-12  Glenn Morris  <rgm@gnu.org>
        * emacs-pretesters, make-announcement: Use bug-gnu-emacs rather
diff --git a/admin/notes/BRANCH b/admin/notes/BRANCH
index 863d86a1ed9..258fcd95566 100644
--- a/admin/notes/BRANCH
+++ b/admin/notes/BRANCH
@@ -1,11 +1,10 @@
-This file describes the CVS branch in which it is maintained.
+This file describes the bzr branch in which it is maintained.
 Everything below the line is branch-specific.
 ________________________________________________________________________
 This is the trunk (sometimes mistakenly called "HEAD").
-When people say "use CVS emacs", this is the branch they are talking
+When people say "use the development version of Emacs" or the
-about.  Likewise, a "cvs checkout" without the "-r" option results in
+"bzr version of Emacs", this is the branch they are talking about.
-this branch.
 Emacs development takes place on the trunk.  Most of the time, Emacs
 hackers add to it relatively free of constraint (aside from proper
diff --git a/admin/notes/copyright b/admin/notes/copyright
index 40c45404f75..f4ceb273c73 100644
--- a/admin/notes/copyright
+++ b/admin/notes/copyright
@@ -24,9 +24,9 @@ the file.
 2. When installing code written by someone else, the ChangeLog entry
 should be in the name of the author of the code, not the person who
-installs it. I think it is helpful to put the author (if not yourself)
+installs it.  I think it is helpful to put the author (if not yourself)
-in the CVS log as well; and to not install any of your own changes in
+in the commit log as well (you can also use bzr commit's "--author"
-the same commit.
+option); and to not install any of your own changes in the same commit.
 3. With images, add the legal info to a README file in the directory
 containing the image.
@@ -38,17 +38,17 @@ legal notices, consider if you should add a copyright statement.
 right thing to do.
-Every non-trivial file distributed through the Emacs CVS should be
+Every non-trivial file distributed through the Emacs repository should be
 self-explanatory in terms of copyright and license. This includes
 files that are not distributed in Emacs releases (for example, the
-admin/ directory), because the whole Emacs CVS is publicly
+admin/ directory), because the whole Emacs repository is publicly
 available.
 The definition of triviality is a little vague, but a rule of thumb is
 that any file with less than 15 lines of actual content is trivial. If
 a file is auto-generated (eg ldefs-boot.el) from another one in the
-CVS, then it does not really matter about adding a copyright statement
+repository, then it does not really matter about adding a copyright
-to the generated file.
+statement to the generated file.
 Legal advice says that we could, if we wished, put a license notice
 even in trivial files, because copyright law in general looks at the
@@ -67,8 +67,8 @@ file "years" in this directory). The PDF versions of refcards etc
 should display copyright notices (an exception to the rule about
 "generated" files), but these can just display the latest year. The
 full list of years should be kept in comments in the source file. If
-these are distributed in CVS, check in a regenerated version when the
+these are distributed in the repository, check in a regenerated
-tex files are updated.
+version when the tex files are updated.
 Copyright changes should be propagated to any associated repositories
 (eg Gnus, MH-E), but I think in every case this happens automatically
@@ -115,7 +115,7 @@ author should be removed and the year(s) transferred to the FSF); or
 else it is possible the file should not be in Emacs at all (please
 report!).
-Note that it seems painfully clear that one cannot rely on CVS logs,
+Note that it seems painfully clear that one cannot rely on commit logs,
 or even ChangeLogs, for older changes. People often installed changes
 from others, without recording the true authorship.
@@ -555,10 +555,10 @@ system)
    obviously good):
-Is it OK to just `cvs remove' a file for legal reasons, or is
+Is it OK to just `bzr remove' a file for legal reasons, or is
 something more drastic needed? A removed file is still available from
-CVS, if suitable options are applied. (This CVS issue obviously does
+the repository, if suitable options are applied. (This issue obviously
-not affect a release).
+does not affect a release).
  rms: will ask lawyer
@@ -600,7 +600,7 @@ The EMACS_22_BASE branch was changed to GPLv3 (or later) 2007/07/25.
 Some notes:
 (see http://lists.gnu.org/archive/html/emacs-devel/2007-07/msg01431.html)
-1. There are some files in Emacs CVS which are not part of Emacs (eg
+1. There are some files in the Emacs tree which are not part of Emacs (eg
 those included from Gnulib). These are all copyright FSF and (at time
 of writing) GPL >= 2. rms says may as well leave the licenses of these
 alone (may import them from Gnulib again). These are:
diff --git a/admin/revdiff b/admin/revdiff
deleted file mode 100755
index 7a1e93a64fe..00000000000
--- a/admin/revdiff
+++ /dev/null
@@ -1,137 +0,0 @@
-#! /usr/bin/perl
-# Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
-#   2010  Free Software Foundation, Inc.
-#
-# This file is part of GNU Emacs.
-# GNU Emacs is free software: you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation, either version 3 of the License, or
-# (at your option) any later version.
-# GNU Emacs is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-# GNU General Public License for more details.
-# You should have received a copy of the GNU General Public License
-# along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
-use File::Basename;
-if (@ARGV < 3)
-{
-  print <<USAGE;
-revdiff FILE OLD NEW
-Get a diff of FILE between revisions OLD and NEW.  Store the
-diff in a file named FILE-OLD-NEW.diff.
-If OLD is `-' use FILE's current revision for OLD.  If OLD is
-`-<number>', use the Nth revision before the current one for OLD.
-If NEW is +<number> or -<number>, build diffs between revisions OLD
-and OLD +/- <number>.
-Examples:
-revdiff FILE - -1      get the latest change of FILE
-revdiff FILE -1 +1     also gets the latest change of FILE
-revdiff FILE 1.500 +2  get diffs 1.500-1.501 and 1.501-1.502.
-USAGE
-  exit 1;
-}
-$file = shift @ARGV;
-$old  = shift @ARGV;
-sub diffit
-{
-  my ($old, $new) = @_;
-  print "cvs diff -r$old -r$new $file >$file-$old-$new.diff\n";
-  system "cvs diff -r$old -r$new $file >$file-$old-$new.diff";
-}
-sub current_revision ($)
-{
-  my ($file) = @_;
-  my $dir = dirname ($file);
-  my $base = basename ($file);
-  my $entries = "$dir/CVS/Entries";
-  die "Can't find $entries" unless -f $entries;
-  open (IN, "<$entries") or die "Cannot open $entries";
-  my $rev;
-  while ($line = <IN>)
-    {
-      if ($line =~ m,/$base/([^/]+),)
-        {
-          $rev = $1;
-          break;
-        }
-    }
-  die "Cannot determine current revision of $file" unless $rev;
-  close (IN);
-  return $rev;
-}
-if ($old eq "-")
-  {
-    $old = current_revision ($file);
-  }
-elsif ($old =~ /^-(\d+)$/)
-  {
-    my $offset = $1;
-    $old = current_revision ($file);
-    die "Internal error" unless $old =~ /(.*)\.(\d+)$/;
-    my $minor = $2 - $offset;
-    $old = sprintf ("%d.%d", $1, $minor);
-  }
-while (@ARGV)
-  {
-    my $new = shift @ARGV;
-    if ($new =~ /^[+]\d+$/)
-      {
-        my $n = $new;
-        for ($i = 0; $i < $n; ++$i)
-          {
-            unless ($old =~ /(.*)\.(\d+)$/)
-              {
-                die "Internal error";
-              }
-            my $j = $2 + 1;
-            $new = "$1.$j";
-            diffit ($old, $new);
-            $old = $new;
-          }
-      }
-    elsif ($new =~ /^[-]\d+$/)
-      {
-        my $n = - $new;
-        for ($i = 0; $i < $n; ++$i)
-          {
-            unless ($old =~ /(.*)\.(\d+)$/)
-              {
-                die "Internal error";
-              }
-            my $j = $2 - 1;
-            $new = "$1.$j";
-            diffit ($new, $old);
-            $old = $new;
-          }
-      }
-    else
-      {
-        diffit ($old, $new);
-        $old = $new;
-      }
-  }
-# Local Variables:
-# mode: cperl
-# End:
-# arch-tag: 2798b20d-c7f2-4c78-8378-7bb529c36a09
diff --git a/doc/emacs/ChangeLog b/doc/emacs/ChangeLog
index 8ca2b187d94..7d7002a6469 100644
--- a/doc/emacs/ChangeLog
+++ b/doc/emacs/ChangeLog
@@ -1,3 +1,7 @@
+2010-01-21  Glenn Morris  <rgm@gnu.org>
+        * trouble.texi (Bugs): Fix PROBLEMS keybinding.
 2010-01-12  Glenn Morris  <rgm@gnu.org>
        * trouble.texi (Checklist): Use bug-gnu-emacs rather than
diff --git a/doc/emacs/trouble.texi b/doc/emacs/trouble.texi
index 218aa3a64d4..b0b54d572f6 100644
--- a/doc/emacs/trouble.texi
+++ b/doc/emacs/trouble.texi
@@ -419,7 +419,7 @@ to do so effectively, you must know when and how to do it.
  Before reporting a bug, it is a good idea to see if it is already
 known.  You can find the list of known problems in the file
-@file{etc/PROBLEMS} in the Emacs distribution; type @kbd{C-h C-e} to read
+@file{etc/PROBLEMS} in the Emacs distribution; type @kbd{C-h C-p} to read
 it.  Some additional user-level problems can be found in @ref{Bugs and
 problems, , Bugs and problems, efaq, GNU Emacs FAQ}.  Looking up your
 problem in these two documents might provide you with a solution or a
diff --git a/doc/lispref/ChangeLog b/doc/lispref/ChangeLog
index 6dfc203f638..2f5923fb8f1 100644
--- a/doc/lispref/ChangeLog
+++ b/doc/lispref/ChangeLog
@@ -1,3 +1,11 @@
+2010-01-17  Chong Yidong  <cyd@stupidchicken.com>
+        * elisp.texi: Remove duplicate edition information (Bug#5407).
+2010-01-17  Juanma Barranquero  <lekktu@gmail.com>
+        * two.el (volume-header-toc-markup): Fix typos in docstring.
 2010-01-04  Stefan Monnier  <monnier@iro.umontreal.ca>
        Avoid dubious uses of save-excursions.
diff --git a/doc/lispref/elisp.texi b/doc/lispref/elisp.texi
index fd1f75073c6..e6af5ae923d 100644
--- a/doc/lispref/elisp.texi
+++ b/doc/lispref/elisp.texi
@@ -100,9 +100,6 @@ Cover art by Etienne Suvasa.
 @node Top, Introduction, (dir), (dir)
 @top Emacs Lisp
-This Info file contains edition @value{VERSION} of the GNU Emacs Lisp
-Reference Manual, corresponding to GNU Emacs version @value{EMACSVER}.
 @insertcopying
 @end ifnottex
diff --git a/doc/lispref/two.el b/doc/lispref/two.el
index b89007d0d4f..43c680a483d 100644
--- a/doc/lispref/two.el
+++ b/doc/lispref/two.el
@@ -54,8 +54,8 @@ Then run texindex on that file and save."
 (defun volume-header-toc-markup ()
  "Insert Volume I and Volume II text into .toc file.
-NOTE: this auxilary function is file specific.
+NOTE: this auxiliary function is file specific.
-This is for the *Elisp Ref Manual*"
+This is for the *Elisp Ref Manual*."
  (interactive)
  (goto-char (point-min))
  (insert "\\unnumbchapentry {Volume 1}{}\n\\unnumbchapentry {}{}\n")
diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog
index 471d57ed11b..3d39b108049 100644
--- a/doc/misc/ChangeLog
+++ b/doc/misc/ChangeLog
@@ -1,3 +1,36 @@
+2010-01-21  Katsumi Yamaoka  <yamaoka@jpl.org>
+        * gnus.texi (Score File Format): Fix typo.
+2010-01-18  Juanma Barranquero  <lekktu@gmail.com>
+        * ada-mode.texi (Project File Overview): Fix typo.
+2010-01-17  Chong Yidong  <cyd@stupidchicken.com>
+        * semantic.texi: Add Richard Y. Kim credit.
+        * eieio.texi (Making New Objects): Fix typo (Bug#5406).
+2010-01-17  Michael Albinus  <michael.albinus@gmx.de>
+        * tramp.texi (Frequently Asked Questions): Add GNU Emacs 23 and
+        SXEmacs 22 to the supported systems.  New item for hung ssh sessions.
+2010-01-17  Glenn Morris  <rgm@gnu.org>
+        * calc.texi (Reporting Bugs): Don't mention format of repository.
+        * woman.texi (Bugs): Make "Emacs repository" less specific,
+        and the URL for same more specific.
+        * faq.texi (Latest version of Emacs): The repository is now Bazaar.
+2010-01-17  Juanma Barranquero  <lekktu@gmail.com>
+        * ede.texi (ede-step-project, ede-proj-target):
+        * tramp.texi (Remote processes): Fix typos.
 2010-01-16  Mario Lang  <mlang@delysid.org>
        * ede.texi (ede-target):
diff --git a/doc/misc/ada-mode.texi b/doc/misc/ada-mode.texi
index af5dc310a58..86d63e5ed9b 100644
--- a/doc/misc/ada-mode.texi
+++ b/doc/misc/ada-mode.texi
@@ -396,7 +396,7 @@ src_dir=/Projects/my_project/src_1
 src_dir=/Projects/my_project/src_2
 @end example
-Some variables (like @code{src_dir}) are lists; multiple occurances
+Some variables (like @code{src_dir}) are lists; multiple occurrences
 are concatenated.
 There must be no space between the variable name and ``='', and no
diff --git a/doc/misc/calc.texi b/doc/misc/calc.texi
index f0fa97cbe16..8d2d0495ec7 100644
--- a/doc/misc/calc.texi
+++ b/doc/misc/calc.texi
@@ -35269,7 +35269,7 @@ to work on these, please send a message (using @kbd{M-x report-calc-bug})
 so any efforts can be coordinated.
 The latest version of Calc is available from Savannah, in the Emacs
-CVS tree.  See @uref{http://savannah.gnu.org/projects/emacs}.
+repository.  See @uref{http://savannah.gnu.org/projects/emacs}.
 @c [summary]
 @node Summary, Key Index, Reporting Bugs, Top
diff --git a/doc/misc/ede.texi b/doc/misc/ede.texi
index bfeef343f09..a40553362bd 100644
--- a/doc/misc/ede.texi
+++ b/doc/misc/ede.texi
@@ -1728,7 +1728,7 @@ The variable GNUSTEP_INSTALLATION_DOMAIN is set at this value.
 Type: @code{(or null list)} @*
 Default Value: @code{(quote ("GNUmakefile.preamble"))}
-The auxilliary makefile for additional variables.
+The auxiliary makefile for additional variables.
 Included just before the specific target files.
 @refill
@@ -1736,7 +1736,7 @@ Included just before the specific target files.
 Type: @code{(or null list)} @*
 Default Value: @code{(quote ("GNUmakefile.postamble"))}
-The auxilliary makefile for additional rules.
+The auxiliary makefile for additional rules.
 Included just after the specific target files.
 @refill
@@ -2083,7 +2083,7 @@ Relative to the path of the project it belongs to.
 Type: @code{list} @*
 Default Value: @code{nil}
-Auxilliary source files included in this target.
+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.
 @refill
diff --git a/doc/misc/eieio.texi b/doc/misc/eieio.texi
index 06ff1677f0f..8b70d16f998 100755
--- a/doc/misc/eieio.texi
+++ b/doc/misc/eieio.texi
@@ -645,7 +645,7 @@ function of @code{:initform}.
 @comment  node-name,  next,  previous,  up
 @chapter Making New Objects
-Suppose we have defined a simple class is defined, such as:
+Suppose we have a simple class is defined, such as:
 @example
 (defclass record ()
diff --git a/doc/misc/faq.texi b/doc/misc/faq.texi
index d04e8e76b5e..a7fb67745bf 100644
--- a/doc/misc/faq.texi
+++ b/doc/misc/faq.texi
@@ -1008,9 +1008,7 @@ conventions}).
 @cindex Latest version of Emacs
 @cindex Development, Emacs
 @cindex Repository, Emacs
-@cindex CVS repository, Emacs
+@cindex Bazaar repository, Emacs
-@cindex Arch repository, Emacs
-@cindex Git repository, Emacs
 Emacs @value{VER} is the current version as of this writing.  A version
 number with two components (e.g. @samp{22.1}) indicates a released
@@ -1020,9 +1018,8 @@ version (e.g. @samp{23.0.50} is what will eventually become @samp{23.1}).
 Emacs is under active development, hosted at
 @uref{http://savannah.gnu.org/projects/emacs/, Savannah}.  The source
 code can be retrieved anonymously following the
-@uref{http://savannah.gnu.org/cvs/?group=emacs, instructions}.
+@uref{http://savannah.gnu.org/bzr/?group=emacs, instructions}.
-The primary repository is CVS, but Arch and Git mirrors are also
+The repository is GNU Bazaar.
-available.
 Because Emacs undergoes many changes before a release, the version
 number of a development version is not especially meaningful.  It is
diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index a33a91ba6f1..75720a94da1 100644
--- a/doc/misc/gnus.texi
+++ b/doc/misc/gnus.texi
@@ -21803,7 +21803,7 @@ not be loaded, even though they would normally be so, for some reason or
 other.
 @item eval
-The value of this entry will be @code{eval}el.  This element will be
+The value of this entry will be @code{eval}ed.  This element will be
 ignored when handling global score files.
 @item read-only
diff --git a/doc/misc/semantic.texi b/doc/misc/semantic.texi
index c4aa4b81419..bf618b9e09d 100644
--- a/doc/misc/semantic.texi
+++ b/doc/misc/semantic.texi
@@ -1,7 +1,7 @@
 \input texinfo
 @setfilename ../../info/semantic
 @set TITLE  Semantic Manual
-@set AUTHOR Eric M. Ludlam and David Ponce
+@set AUTHOR Eric M. Ludlam, David Ponce, and Richard Y. Kim
 @settitle @value{TITLE}
 @c *************************************************************************
diff --git a/doc/misc/tramp.texi b/doc/misc/tramp.texi
index 02e079b8ad5..a01eda22c12 100644
--- a/doc/misc/tramp.texi
+++ b/doc/misc/tramp.texi
@@ -2562,7 +2562,7 @@ hosts.  Example:
 @end example
 You will see the buffer @file{*Async Shell Command*}, containing the
-continous output of the @command{tail} command.
+continuous output of the @command{tail} command.
 @subsection Running eshell on a remote host
@@ -2749,9 +2749,8 @@ There is also a Savannah project page.
 @item
 Which systems does it work on?
-The package has been used successfully on GNU Emacs 21, GNU Emacs 22
+The package has been used successfully on GNU Emacs 21, GNU Emacs 22,
-and XEmacs 21 (starting with 21.4).  Gateway methods are supported for
+GNU Emacs 23, XEmacs 21 (starting with 21.4), and SXEmacs 22.
-GNU Emacs 22 only.
 The package was intended to work on Unix, and it really expects a
 Unix-like system on the remote end (except the @option{smb} method),
@@ -2762,12 +2761,6 @@ There is some informations on @value{tramp} on NT at the following URL;
 many thanks to Joe Stoy for providing the information:
 @uref{ftp://ftp.comlab.ox.ac.uk/tmp/Joe.Stoy/}
-@c The link is broken.  I've contacted Tom for clarification.  Michael.
-@ignore
-The above mostly contains patches to old ssh versions; Tom Roche has a
-Web page with instructions:
-@uref{http://www4.ncsu.edu/~tlroche/plinkTramp.html}
-@end ignore
 @item
 How could I speed up @value{tramp}?
@@ -2838,7 +2831,6 @@ the following command:
 [ $TERM = "dumb" ] && unsetopt zle && PS1='$ '
 @end example
 @item
 @value{tramp} doesn't transfer strings with more than 500 characters
 correctly
@@ -2870,6 +2862,25 @@ checksum.
 @item
+@value{tramp} does not recognize hung @command{ssh} sessions
+When your network connection is down, @command{ssh} sessions might
+hang.  @value{tramp} cannot detect it safely, because it still sees a
+running @command{ssh} process.  Timeouts cannot be used as well,
+because it cannot be predicted, how long a remote command will last,
+for example when copying very large files.
+Therefore, you must configure the @command{ssh} process to die
+in such a case.  The following entry in @file{~/.ssh/config} would do
+the job:
+@example
+Host *
+     ServerAliveInterval 5
+@end example
+@item
 File name completion does not work with @value{tramp}
 When you log in to the remote machine, do you see the output of
diff --git a/doc/misc/woman.texi b/doc/misc/woman.texi
index 2077f4844a5..c2de5d88b58 100644
--- a/doc/misc/woman.texi
+++ b/doc/misc/woman.texi
@@ -4,7 +4,7 @@
 @settitle WoMan: Browse Unix Manual Pages ``W.O. (without) Man''
 @c FIXME
 @c Manual last updated:
-@set UPDATED Time-stamp: <2009-02-16 09:25:50 karl>
+@set UPDATED Time-stamp: <Sat 16-Jan-2010 19:18:43 gm on grasmoor>
 @c Software version:
 @set VERSION 0.54 (beta)
 @afourpaper
@@ -18,8 +18,8 @@
 This file documents WoMan: A program to browse Unix manual pages `W.O.
 (without) man'.
-Copyright @copyright{} 2001, 2002, 2003, 2004,
+Copyright @copyright{} 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008,
-2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+2009, 2010 Free Software Foundation, Inc.
 @quotation
 Permission is granted to copy, distribute and/or modify this document
@@ -1319,8 +1319,8 @@ inelegantly, then please
 @enumerate
 @item
-try the latest version of @file{woman.el} from the Emacs CVS repository
+try the latest version of @file{woman.el} from the Emacs repository
-on @uref{http://savannah.gnu.org/}.  If it still fails, please
+on @uref{http://savannah.gnu.org/projects/emacs/}.  If it still fails, please
 @item
 send a bug report to @email{bug-gnu-emacs@@gnu.org} and to
diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c
index af1928c63fb..eb15342ca5b 100644
--- a/lib-src/make-docfile.c
+++ b/lib-src/make-docfile.c
@@ -240,10 +240,10 @@ struct rcsoc_state
  /* A keyword we look for at the beginning of lines.  If found, it is
     not copied, and SAW_KEYWORD is set to true.  */
  char *keyword;
-  /* The current point we've reached in an occurance of KEYWORD in
+  /* The current point we've reached in an occurrence of KEYWORD in
     the input stream.  */
  char *cur_keyword_ptr;
-  /* Set to true if we saw an occurance of KEYWORD.  */
+  /* Set to true if we saw an occurrence of KEYWORD.  */
  int saw_keyword;
 };
@@ -354,7 +354,7 @@ scan_keyword_or_put_char (ch, state)
   PRINTFLAG is positive, output string contents to outfile.  If it is
   negative, store contents in buf.  Convert escape sequences \n and
   \t to newline and tab; discard \ followed by newline.
-   If SAW_USAGE is non-zero, then any occurances of the string `usage:'
+   If SAW_USAGE is non-zero, then any occurrences of the string `usage:'
   at the beginning of a line will be removed, and *SAW_USAGE set to
   true if any were encountered.  */
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5ff2d7b24c0..c59ecbae67b 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,9 +1,219 @@
+2010-01-22  Stefan Monnier  <monnier@iro.umontreal.ca>
+        * mail/rmailmm.el (rmail-mime-handle): Don't set the buffer to unibyte
+        just because we see "encoding: 8bit".
+        * mail/rmail.el (rmail-show-message-1): Decode the body's QP into bytes.
+2010-01-22  Chong Yidong  <cyd@stupidchicken.com>
+        * isearch.el (isearch-allow-scroll): Doc fix (Bug#5446).
+2010-01-22  Eli Zaretskii  <eliz@gnu.org>
+        * jka-compr.el (jka-compr-load): If load-file is not in
+        load-history, try its file-truename version.  (bug#5447)
+2010-01-21  Alan Mackenzie  <acm@muc.de>
+        Fix a situation where deletion of a cpp construct throws an error.
+        * progmodes/cc-engine.el (c-invalidate-state-cache): Before
+        invoking c-with-all-but-one-cpps-commented-out, check that the
+        special cpp construct is still in the buffer.
+        (c-parse-state): Record the special cpp with markers, not numbers.
+2010-01-21  Kenichi Handa  <handa@m17n.org>
+        * textmodes/sgml-mode.el (sgml-maybe-name-self): No need to
+        process last-command-event, as it is now decoded first (Bug#5380).
+2010-01-20  Chong Yidong  <cyd@stupidchicken.com>
+        * term.el (term-send-raw-meta): Revert 2009-12-04 change (Bug#5330).
+2010-01-20  Glenn Morris  <rgm@gnu.org>
+        * indent.el (tab-always-indent): Fix custom-type.
+2010-01-19  Alan Mackenzie  <acm@muc.de>
+        * progmodes/cc-defs.el: Fix bug#5395: typing '#' in an empty
+        buffer throws "args out of range".
+        (c-set-cpp-delimiters, c-clear-cpp-delimiters): Check for EOB
+        playing the role of delimiter.
+2010-01-18  Stephen Leake  <stephen_leake@member.fsf.org>
+        * lisp/progmodes/ada-mode.el: Fix bug#5400.
+        (ada-matching-decl-start-re): Move into ada-goto-decl-start.
+        (ada-goto-decl-start): Rename from ada-goto-matching-decl-start; callers
+        changed.  Delete RECURSIVE parameter; never used.  Improve doc string.
+        Improve comments in "is" portion.  Handle null procedure declaration.
+        (ada-move-to-end): Improve doc string.
+2010-01-18  Óscar Fuentes  <ofv@wanadoo.es>
+        * ido.el (ido-cur-list): Initialize to nil.
+        Remove obsolete information from commentary.
+        (ido-choice-list): Initialize to nil.
+        (ido-get-bufname): Reject minibuffers.
+        (ido-make-buffer-list): If "default" is a nonexistent
+        buffer, ignore it, as per the function's comment.
+        (ido-kill-buffer-internal): New function.
+        (ido-kill-buffer-at-head): Use it.
+        (ido-visit-buffer): Likewise.
+2010-01-18  Chong Yidong  <cyd@stupidchicken.com>
+        * calendar/time-date.el (date-to-time): Doc fix (Bug#5408).
+2010-01-18  Juanma Barranquero  <lekktu@gmail.com>
+        * cedet/ede/locate.el (ede-locate-file-in-project)
+        (ede-locate-file-in-project-impl): Fix typos in docstrings.
+        (ede-enable-locate-on-project): Fix typos in error messages.
+        * cedet/semantic/util-modes.el (semantic-unmatched-syntax-face)
+        (semantic-stickyfunc-old-hlf, semantic-stickyfunc-header-line-format)
+        (semantic-stickyfunc-sticky-classes, semantic-highlight-func-mode-setup)
+        (semantic-stickyfunc-fetch-stickyline): Fix typos in docstrings.
+        (semantic-stickyfunc-popup-menu, semantic-highlight-func-popup-menu):
+        Fix typos in menu help.
+        * emacs-lisp/chart.el (chart-file-count, chart-rmail-from):
+        Fix typos in chart titles.
+        * whitespace.el (whitespace-style, global-whitespace-newline-mode):
+        * cedet/semantic.el (semantic-require-version, semantic--buffer-cache)
+        (semantic-unmatched-syntax-cache-check, semantic-unmatched-syntax-hook)
+        (semantic--before-fetch-tags-hook, semantic-new-buffer-fcn-was-run)
+        (semantic--umatched-syntax-needs-refresh-p, semantic-elapsed-time)
+        (semantic-parse-stream, semantic-parse-region)
+        (semantic-parse-region-default, semantic--set-buffer-cache)
+        (semantic-minimum-working-buffer-size, semantic-refresh-tags-safe)
+        (semantic-bovinate-toplevel, semantic-load-system-cache-loaded)
+        (semantic-default-submodes):
+        * cedet/semantic/db-ebrowse.el (semanticdb-table-ebrowse)
+        (semanticdb-create-ebrowse-database)
+        (semanticdb-find-tags-for-completion-method)
+        (semanticdb-find-tags-by-class-method)
+        (semanticdb-deep-find-tags-by-name-method)
+        (semanticdb-deep-find-tags-for-completion-method):
+        * cedet/semantic/db-el.el (semanticdb-elisp-mapatom-collector)
+        (semanticdb-find-tags-by-name-method, emacs-lisp-mode)
+        (semanticdb-find-tags-for-completion-method)
+        (semanticdb-find-tags-by-class-method)
+        (semanticdb-deep-find-tags-for-completion-method):
+        * cedet/semantic/db-find.el (semanticdb-find-translate-path)
+        (semanticdb-find-need-cache-update-p, semanticdb-find-result-with-nil-p)
+        (semanticdb-find-scanned-include-tags, semanticdb-find-tags-collector)
+        (semanticdb-find-tags-by-name-method)
+        (semanticdb-find-tags-by-name-regexp-method)
+        (semanticdb-find-tags-for-completion-method)
+        (semanticdb-find-tags-by-class-method)
+        (semanticdb-find-tags-external-children-of-type-method)
+        (semanticdb-find-tags-subclasses-of-type-method)
+        (semanticdb-deep-find-tags-by-name-method)
+        (semanticdb-deep-find-tags-by-name-regexp-method)
+        (semanticdb-deep-find-tags-for-completion-method):
+        * cedet/semantic/db-global.el (semanticdb-enable-gnu-global-hook)
+        (semanticdb-enable-gnu-global-in-buffer)
+        (semanticdb-find-tags-for-completion-method)
+        (semanticdb-deep-find-tags-by-name-method)
+        (semanticdb-deep-find-tags-for-completion-method):
+        * cedet/semantic/db-javascript.el (semanticdb-javascript-tags)
+        (javascript-mode, semanticdb-find-translate-path)
+        (semanticdb-find-tags-for-completion-method)
+        (semanticdb-find-tags-by-class-method)
+        (semanticdb-deep-find-tags-by-name-method)
+        (semanticdb-deep-find-tags-for-completion-method)
+        (semanticdb-find-tags-external-children-of-type-method):
+        * cedet/semantic/idle.el (semantic-idle-work-core-handler)
+        (define-semantic-idle-service, semantic-idle-summary-useful-context-p)
+        (global-semantic-idle-scheduler-mode):
+        * cedet/srecode/dictionary.el (srecode-field-value)
+        (srecode-dictionary-add-section-dictionary):
+        * emacs-lisp/eieio.el (eieio-error-unsupported-class-tags)
+        (eieio-generic-form, eieio-help-mode-augmentation-maybee, eieio-browse)
+        (describe-class, eieio-describe-generic, describe-generic):
+        * emacs-lisp/eieio-speedbar.el (eieio-speedbar-handle-click)
+        (eieio-speedbar-expand):
+        * emulation/viper-cmd.el (viper-exec-form-in-vi)
+        (viper-exec-form-in-emacs, viper-harness-minor-mode, viper-ESC)
+        (viper-repeat, viper-replace-state-exit-cmd, viper-toggle-search-style)
+        (viper-del-backward-char-in-replace, viper-backward-indent)
+        (viper-brac-function, viper-register-to-point, viper-submit-report):
+        * net/tramp.el (tramp-remote-coding-commands):
+        * term/x-win.el (emacs-session-save, x-menu-bar-open, icon-map-list):
+        Fix typos in docstrings.
+2010-01-17  Chong Yidong  <cyd@stupidchicken.com>
+        * mail/sendmail.el (mail-yank-original): Set the mark if the
+        specified function for yanking does not do it.
+2010-01-17  Dan Nicolaescu  <dann@ics.uci.edu>
+        * vc.el (with-vc-properties): Deal with directory arguments.  (Bug#5298)
+        * vc-dir.el (vc-dir-resynch-file): Update the vc-dir header when
+        resyncing a directory.
+2010-01-17  Stephen Leake  <stephen_leake@member.fsf.org>
+        * progmodes/ada-mode.el: Fix bug#1920.
+        (ada-ident-re): Delete ., allow multibyte characters.
+        (ada-goto-label-re): New; matches goto labels.
+        (ada-block-label-re): New; matches block labels.
+        (ada-label-re): New; matches both.
+        (ada-named-block-re): Deleted; callers changed to use
+        `ada-block-label-re' instead.
+        (ada-get-current-indent, ada-get-indent-noindent, ada-get-indent-loop):
+        Use `ada-block-label-re'.
+        (ada-indent-on-previous-lines): Improve handling of goto labels.
+        (ada-get-indent-block-start): Special-case block label.
+        (ada-get-indent-label): Split into `ada-indent-block-label' and
+        `ada-indent-goto-label'.
+        (ada-goto-stmt-start, ada-goto-next-non-ws):
+        Optionally ignore goto labels.
+        (ada-goto-next-word): Simplify.
+        (ada-indent-newline-indent-conditional): Insert newline before
+        trying to fix indentation; doc fix.
+2010-01-17  Jay Belanger  <jay.p.belanger@gmail.com>
+        * calc/calc.el (calc-command-flags): Give it an initial value.
+2010-01-17  Glenn Morris  <rgm@gnu.org>
+        * cedet/semantic/idle.el (semantic-idle-work-for-one-buffer): Doc fix.
+2010-01-17  Juanma Barranquero  <lekktu@gmail.com>
+        * cedet/semantic.el (semantic-mode):
+        * files.el (minibuffer-with-setup-hook):
+        * textmodes/artist.el (artist-mt, artist-key-undraw-continously)
+        (artist-key-draw-continously, artist-key-do-continously-continously)
+        (artist-key-set-point-continously, artist-mouse-draw-continously):
+        Fix typos in docstrings.
+2010-01-16  Lennart Borgman  <lennart.borgman@gmail.com>
+        * nxml/nxml-mode.el (nxml-extend-after-change-region): Never
+        return t (Bug#3898).
+2010-01-16  Frédéric Perrin  <frederic.perrin@resel.fr>  (tiny change)
+        * vc-dispatcher.el (vc-do-command): Set LC_MESSAGES, so that we
+        can parse the output of the external commands (Bug#5279).
 2010-01-16  Jari Aalto  <jari.aalto@cante.net>
        * pcmpl-unix.el (pcmpl-unix-read-passwd-file): Doc fix.
 2010-01-16  Chong Yidong  <cyd@stupidchicken.com>
+        * emacs-lisp/advice.el (ad-add-advice): Doc fix (Bug#5274)
        * emacs-lisp/cl-macs.el (defstruct): Doc fix (Bug#5267).
        * startup.el (command-line): Remove unused --icon-type arg.
@@ -34,7 +244,7 @@
 2010-01-15  Kenichi Handa  <handa@m17n.org>
        * international/mule-cmds.el (canonicalize-coding-system-name):
-        Convert "msXXX", "ibmXXX", "windows-XXX" to "cpXXX".
+        Convert "msXXX", "ibmXXX", "windows-XXX" to "cpXXX" (Bug#5387).
 2010-01-15  Glenn Morris  <rgm@gnu.org>
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index a3f95fc73ef..2a6ec97ef5c 100644
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -1546,7 +1546,7 @@ See calc-keypad for details."
 (defvar calc-aborted-prefix nil)
 (defvar calc-start-time nil)
-(defvar calc-command-flags)
+(defvar calc-command-flags nil)
 (defvar calc-final-point-line)
 (defvar calc-final-point-column)
 ;;; Note that modifications to this function may break calc-pass-errors.
diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el
index 3b4495881f6..914d2d33928 100644
--- a/lisp/calendar/time-date.el
+++ b/lisp/calendar/time-date.el
@@ -98,7 +98,8 @@ and type 2 is the list (HIGH LOW MICRO)."
 ;;;###autoload
 (defun date-to-time (date)
-  "Parse a string DATE that represents a date-time and return a time value."
+  "Parse a string DATE that represents a date-time and return a time value.
+If DATE lacks timezone information, GMT is assumed."
  (condition-case ()
      (apply 'encode-time
             (parse-time-string
diff --git a/lisp/cedet/cedet-files.el b/lisp/cedet/cedet-files.el
index 5d149ee7560..9dacf062288 100644
--- a/lisp/cedet/cedet-files.el
+++ b/lisp/cedet/cedet-files.el
@@ -69,7 +69,7 @@ specific conversions during tests."
  (let ((file referencefile))
    ;; Replace the ! with /
    (setq file (subst-char-in-string ?! ?/ file))
-    ;; Occurances of // meant there was once a single !.
+    ;; Occurrences of // meant there was once a single !.
    (setq file (replace-regexp-in-string "//" "!" file))
    ;; Handle Windows special cases
diff --git a/lisp/cedet/ede/locate.el b/lisp/cedet/ede/locate.el
index 0f9e4b22be2..099e193f010 100644
--- a/lisp/cedet/ede/locate.el
+++ b/lisp/cedet/ede/locate.el
@@ -97,7 +97,7 @@ based on `ede-locate-setup-options'."
      (setq ans 'ede-locate-base))
    (oset proj locate-obj (make-instance ans "Loc" :root root))
    (when (called-interactively-p 'interactive)
-      (message "Setting locator to %s." ans))
+      (message "Setting locator to %s" ans))
    ))
 ;;; LOCATE BASECLASS
@@ -142,9 +142,9 @@ based on `ede-locate-setup-options'."
 (defmethod ede-locate-file-in-project ((loc ede-locate-base)
                                       filesubstring
                                       )
-  "Locate with LOC occurances of FILESUBSTRING.
+  "Locate with LOC occurrences of FILESUBSTRING.
 Searches are done under the current root of the EDE project
-that crated this ede locat object."
+that created this EDE locate object."
  (let ((ans (ede-locate-file-in-project-impl loc filesubstring))
        )
    (oset loc file filesubstring)
@@ -154,9 +154,9 @@ that crated this ede locat object."
 (defmethod ede-locate-file-in-project-impl ((loc ede-locate-base)
                                            filesubstring
                                            )
-  "Locate with LOC occurances of FILESUBSTRING.
+  "Locate with LOC occurrences of FILESUBSTRING.
 Searches are done under the current root of the EDE project
-that crated this ede locat object."
+that created this EDE locate object."
  nil
  )
@@ -180,9 +180,9 @@ configure the use of EDE locate.")
 (defmethod ede-locate-file-in-project-impl ((loc ede-locate-locate)
                                            filesubstring)
-  "Locate with LOC occurances of FILESUBSTRING under PROJECTROOT.
+  "Locate with LOC occurrences of FILESUBSTRING under PROJECTROOT.
 Searches are done under the current root of the EDE project
-that crated this ede locat object."
+that created this EDE locate object."
  ;; We want something like:
  ;;  /my/project/root*/filesubstring.c
  (let* ((searchstr (concat (directory-file-name (oref loc root))
@@ -235,9 +235,9 @@ variable `cedet-global-command'.")
 (defmethod ede-locate-file-in-project-impl ((loc ede-locate-global)
                                            filesubstring)
-  "Locate with LOC occurances of FILESUBSTRING under PROJECTROOT.
+  "Locate with LOC occurrences of FILESUBSTRING under PROJECTROOT.
 Searches are done under the current root of the EDE project
-that crated this ede locat object."
+that created this EDE locate object."
  (require 'cedet-global)
  (let ((default-directory (oref loc root)))
    (cedet-gnu-global-expand-filename filesubstring)))
@@ -273,9 +273,9 @@ file name searching variable `cedet-idutils-file-command'.")
 (defmethod ede-locate-file-in-project-impl ((loc ede-locate-idutils)
                                            filesubstring)
-  "Locate with LOC occurances of FILESUBSTRING under PROJECTROOT.
+  "Locate with LOC occurrences of FILESUBSTRING under PROJECTROOT.
 Searches are done under the current root of the EDE project
-that crated this ede locat object."
+that created this EDE locate object."
  (require 'cedet-idutils)
  (let ((default-directory (oref loc root)))
    (cedet-idutils-expand-filename filesubstring)))
@@ -309,9 +309,9 @@ file name searching variable `cedet-cscope-file-command'.")
 (defmethod ede-locate-file-in-project-impl ((loc ede-locate-cscope)
                                            filesubstring)
-  "Locate with LOC occurances of FILESUBSTRING under PROJECTROOT.
+  "Locate with LOC occurrences of FILESUBSTRING under PROJECTROOT.
 Searches are done under the current root of the EDE project
-that crated this ede locat object."
+that created this EDE locate object."
  (let ((default-directory (oref loc root)))
    (cedet-cscope-expand-filename filesubstring)))
diff --git a/lisp/cedet/ede/proj-aux.el b/lisp/cedet/ede/proj-aux.el
index 9011c62674f..26bc9540e82 100644
--- a/lisp/cedet/ede/proj-aux.el
+++ b/lisp/cedet/ede/proj-aux.el
@@ -1,4 +1,4 @@
-;;; ede/proj-aux.el --- EDE Generic Project auxilliary file support
+;;; ede/proj-aux.el --- EDE Generic Project auxiliary file support
 ;; Copyright (C) 1998, 1999, 2000, 2007, 2009, 2010  Free Software Foundation, Inc.
diff --git a/lisp/cedet/semantic.el b/lisp/cedet/semantic.el
index 108a8c4b294..b7d5f700d78 100644
--- a/lisp/cedet/semantic.el
+++ b/lisp/cedet/semantic.el
@@ -45,7 +45,7 @@
 (declare-function semanticdb-load-ebrowse-caches "semantic/db-ebrowse")
 (defun semantic-require-version (major minor &optional beta)
-  "Non-nil if this version of semantic does not satisfy a specific version.
+  "Non-nil if this version of Semantic does not satisfy a specific version.
 Arguments can be:
  (MAJOR MINOR &optional BETA)
@@ -130,7 +130,7 @@ this is returned instead of re-parsing the buffer.
  DO NOT USE THIS VARIABLE IN PROGRAMS.
 If you need a tag list, use `semantic-fetch-tags'.  If you need the
-cached values for some reason, chances are you can, add a hook to
+cached values for some reason, chances are you can add a hook to
 `semantic-after-toplevel-cache-change-hook'.")
 (make-variable-buffer-local 'semantic--buffer-cache)
 (semantic-varalias-obsolete 'semantic-toplevel-bovine-cache
@@ -141,7 +141,7 @@ cached values for some reason, chances are you can, add a hook to
 (make-variable-buffer-local 'semantic-unmatched-syntax-cache)
 (defvar semantic-unmatched-syntax-cache-check nil
-  "Non nil if the unmatched syntax cache is out of date.
+  "Non-nil if the unmatched syntax cache is out of date.
 This is tracked with `semantic-change-function'.")
 (make-variable-buffer-local 'semantic-unmatched-syntax-cache-check)
@@ -154,18 +154,18 @@ will not change the tag structure, such as adding or updating
 `top-level' comments.")
 (defvar semantic-unmatched-syntax-hook nil
-  "Hooks run when semantic detects syntax not matched in a grammar.
+  "Hooks run when Semantic detects syntax not matched in a grammar.
 Each individual piece of syntax (such as a symbol or punctuation
 character) is called with this hook when it doesn't match in the
 grammar, and multiple unmatched syntax elements are not grouped
-together.  Each hook is called with one argument, which is a list of
+together.  Each hook is called with one argument, which is a list
-syntax tokens created by the semantic lexer.  Use the functions
+of syntax tokens created by the semantic lexer.  Use the functions
 `semantic-lex-token-start', `semantic-lex-token-end' and
-`semantic-lex-token-text' to get information about these tokens.  The
+`semantic-lex-token-text' to get information about these tokens.
-current buffer is the buffer these tokens are derived from.")
+The current buffer is the buffer these tokens are derived from.")
 (defvar semantic--before-fetch-tags-hook nil
-  "Hooks run before a buffer is parses for tags.
+  "Hooks run before a buffer is parsed for tags.
 It is called before any request for tags is made via the function
 `semantic-fetch-tags' by an application.
 If any hook returns a nil value, the cached value is returned
@@ -311,7 +311,7 @@ a parse of the buffer.")
                            'semantic-init-db-hook "23.2")
 (defvar semantic-new-buffer-fcn-was-run nil
-  "Non nil after `semantic-new-buffer-fcn' has been executed.")
+  "Non-nil after `semantic-new-buffer-fcn' has been executed.")
 (make-variable-buffer-local 'semantic-new-buffer-fcn-was-run)
 (defsubst semantic-active-p ()
@@ -320,7 +320,7 @@ a parse of the buffer.")
 (defsubst semantic--umatched-syntax-needs-refresh-p  ()
  "Return non-nil if the unmatched syntax cache needs a refresh.
-That is if it is dirty or if the current parse tree isn't up to date."
+That is, if it is dirty or if the current parse tree isn't up to date."
  (or semantic-unmatched-syntax-cache-check
      (not (semantic-parse-tree-up-to-date-p))))
@@ -377,7 +377,7 @@ to use Semantic, and `semantic-init-hook' is run."
 Do not set this yourself.  Call `semantic-debug'.")
 (defun semantic-elapsed-time (start end)
-  "Copied from elp.el.  Was elp-elapsed-time.
+  "Copied from elp.el.  Was `elp-elapsed-time'.
 Argument START and END bound the time being calculated."
  (+ (* (- (car end) (car start)) 65536.0)
     (- (car (cdr end)) (car (cdr start)))
@@ -410,14 +410,14 @@ the output buffer."
 (define-overloadable-function semantic-parse-stream (stream nonterminal)
  "Parse STREAM, starting at the first NONTERMINAL rule.
 For bovine and wisent based parsers, STREAM is from the output of
-`semantic-lex', and NONTERMINAL is a rule in the apropriate language
+`semantic-lex', and NONTERMINAL is a rule in the appropriate language
 specific rules file.
 The default parser table used for bovine or wisent based parsers is
 `semantic--parse-table'.
 Must return a list: (STREAM TAGS) where STREAM is the unused elements
-from STREAM, and TAGS is the list of semantic tags found, usually only
+from STREAM, and TAGS is the list of semantic tags found; usually only
-one tag is returned with the exception of compound statements")
+one tag is returned with the exception of compound statements.")
 (define-overloadable-function semantic-parse-changes ()
  "Reparse changes in the current buffer.
@@ -433,7 +433,7 @@ will be silently ignored.
 Optional arguments:
 NONTERMINAL is the rule to start parsing at.
-DEPTH specifies the lexical depth to decend for parser that use
+DEPTH specifies the lexical depth to descend for parser that use
 lexical analysis as their first step.
 RETURNONERROR specifies that parsing should stop on the first
 unmatched syntax encountered.  When nil, parsing skips the syntax,
@@ -447,8 +447,8 @@ to cook raw tags.")
 (defun semantic-parse-region-default
  (start end &optional nonterminal depth returnonerror)
  "Parse the area between START and END, and return any tags found.
-If END needs to be extended due to a lexical token being too large, it
+If END needs to be extended due to a lexical token being too large,
-will be silently ignored.
+it will be silently ignored.
 Optional arguments:
 NONTERMINAL is the rule to start parsing at if it is known.
 DEPTH specifies the lexical depth to scan.
@@ -532,7 +532,7 @@ is requested."
 (defvar semantic-bovinate-nonterminal-check-obarray)
 (defun semantic--set-buffer-cache (tagtable)
-  "Set the toplevel cache cache to TAGTABLE."
+  "Set the toplevel tag cache to TAGTABLE."
  (setq semantic--buffer-cache tagtable
        semantic-unmatched-syntax-cache-check nil)
  ;; This is specific to the bovine parser.
@@ -560,7 +560,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.
+Buffers smaller than this will parse silently.
 Buffers larger than this will display the working progress bar.")
 (defsubst semantic-parser-working-message (&optional arg)
@@ -652,7 +652,7 @@ was marked unparseable, then do nothing, and return the cache."
  semantic--buffer-cache)
 (defun semantic-refresh-tags-safe ()
-  "Refreshes the current buffer's tags safely.
+  "Refresh the current buffer's tags safely.
 Return non-nil if the refresh was successful.
 Return nil if there is some sort of syntax error preventing a reparse.
@@ -694,7 +694,7 @@ Does nothing if the current buffer doesn't need reparsing."
      lexically-safe))))
 (defun semantic-bovinate-toplevel (&optional ignored)
-  "Backward Compatibility Function."
+  "Backward compatibility function."
  (semantic-fetch-tags))
 (make-obsolete 'semantic-bovinate-toplevel 'semantic-fetch-tags "23.2")
@@ -1014,10 +1014,10 @@ Throw away all the old tags, and recreate the tag database."
 ;; The `semantic-mode' command, in conjuction with the
 ;; `semantic-default-submodes' variable, toggles Semantic's various
-;; auxilliary minor modes.
+;; auxiliary minor modes.
 (defvar semantic-load-system-cache-loaded nil
-  "Non nil when the Semantic system caches have been loaded.
+  "Non-nil when the Semantic system caches have been loaded.
 Prevent this load system from loading files in twice.")
 (defconst semantic-submode-list
@@ -1045,7 +1045,7 @@ The possible elements of this list include the following:
 `global-semantic-highlight-func-mode' - Highlight the current tag.
 `global-semantic-stickyfunc-mode'     - Show current fun in header line.
 `global-semantic-mru-bookmark-mode'   - Provide `switch-to-buffer'-like
-                                    keybinding for tag names."
+                                         keybinding for tag names."
  :group 'semantic
  :type `(set ,@(mapcar (lambda (c) (list 'const c))
                        semantic-submode-list)))
@@ -1057,7 +1057,7 @@ With ARG, turn Semantic mode on if ARG is positive, off otherwise.
 In Semantic mode, Emacs parses the buffers you visit for their
 semantic content.  This information is used by a variety of
-auxilliary minor modes, listed in `semantic-default-submodes';
+auxiliary minor modes, listed in `semantic-default-submodes';
 all the minor modes in this list are also enabled when you enable
 Semantic mode.
@@ -1067,7 +1067,7 @@ Semantic mode.
  (if semantic-mode
      ;; Turn on Semantic mode
      (progn
-        ;; Enable all the global auxilliary minor modes in
+        ;; Enable all the global auxiliary minor modes in
        ;; `semantic-submode-list'.
        (dolist (mode semantic-submode-list)
          (if (memq mode semantic-default-submodes)
diff --git a/lisp/cedet/semantic/db-ebrowse.el b/lisp/cedet/semantic/db-ebrowse.el
index cd511708661..86602aaa95b 100644
--- a/lisp/cedet/semantic/db-ebrowse.el
+++ b/lisp/cedet/semantic/db-ebrowse.el
@@ -90,7 +90,7 @@ be searched."
                   :initarg :global-extract
                   :documentation
                   "Table of ebrowse tags specific to this file.
-This table is compisited from the ebrowse *Globals* section.")
+This table is composited from the ebrowse *Globals* section.")
   )
  "A table for returning search results from ebrowse.")
@@ -128,7 +128,7 @@ EBROWSE is a C/C++ parser for use with `ebrowse' Emacs program.")
           )))
 (defun semanticdb-create-ebrowse-database (dir)
-  "Create an EBROSE database for directory DIR.
+  "Create an EBROWSE database for directory DIR.
 The database file is stored in ~/.semanticdb, or whichever directory
 is specified by `semanticdb-default-save-directory'."
  (interactive "DDirectory: ")
@@ -597,7 +597,7 @@ Return a list of tags."
 (defmethod semanticdb-find-tags-for-completion-method
  ((table semanticdb-table-ebrowse) prefix &optional tags)
-  "In TABLE, find all occurances of tags matching PREFIX.
+  "In TABLE, find all occurrences of tags matching PREFIX.
 Optional argument TAGS is a list of tags to search.
 Returns a table of all matching tags."
  (if tags (call-next-method)
@@ -607,7 +607,7 @@ Returns a table of all matching tags."
 (defmethod semanticdb-find-tags-by-class-method
  ((table semanticdb-table-ebrowse) class &optional tags)
-  "In TABLE, find all occurances of tags of CLASS.
+  "In TABLE, find all occurrences of tags of CLASS.
 Optional argument TAGS is a list of tags to search.
 Returns a table of all matching tags."
  (if tags (call-next-method)
@@ -625,7 +625,7 @@ Returns a table of all matching tags."
 (defmethod semanticdb-deep-find-tags-by-name-method
  ((table semanticdb-table-ebrowse) name &optional tags)
  "Find all tags name NAME in TABLE.
-Optional argument TAGS is a list of tags t
+Optional argument TAGS is a list of tags to search.
 Like `semanticdb-find-tags-by-name-method' for ebrowse."
  ;;(semanticdb-find-tags-by-name-method table name tags)
  (call-next-method))
@@ -640,7 +640,7 @@ Like `semanticdb-find-tags-by-name-method' for ebrowse."
 (defmethod semanticdb-deep-find-tags-for-completion-method
  ((table semanticdb-table-ebrowse) prefix &optional tags)
-  "In TABLE, find all occurances of tags matching PREFIX.
+  "In TABLE, find all occurrences of tags matching PREFIX.
 Optional argument TAGS is a list of tags to search.
 Like `semanticdb-find-tags-for-completion-method' for ebrowse."
  ;;(semanticdb-find-tags-for-completion-method table prefix tags)
diff --git a/lisp/cedet/semantic/db-el.el b/lisp/cedet/semantic/db-el.el
index d46f727fca6..d313d1dc578 100644
--- a/lisp/cedet/semantic/db-el.el
+++ b/lisp/cedet/semantic/db-el.el
@@ -76,7 +76,7 @@ It does not need refreshing."
 (defvar-mode-local emacs-lisp-mode semanticdb-find-default-throttle
  '(project omniscience)
  "Search project files, then search this omniscience database.
-It is not necessary to to system or recursive searching because of
+It is not necessary to do system or recursive searching because of
 the omniscience database.")
 ;;; Filename based methods
@@ -246,12 +246,12 @@ TOKTYPE is a hint to the type of tag desired."
 ;;; Search Overrides
 ;;
 (defvar semanticdb-elisp-mapatom-collector nil
-  "Variable used to collect mapatoms output.")
+  "Variable used to collect `mapatoms' output.")
 (defmethod semanticdb-find-tags-by-name-method
  ((table semanticdb-table-emacs-lisp) name &optional tags)
-  "Find all tags name NAME in TABLE.
+  "Find all tags named NAME in TABLE.
-Uses `inter-soft' to match NAME to emacs symbols.
+Uses `intern-soft' to match NAME to Emacs symbols.
 Return a list of tags."
  (if tags (call-next-method)
    ;; No need to search.  Use `intern-soft' which does the same thing for us.
@@ -281,7 +281,7 @@ Return a list of tags."
 (defmethod semanticdb-find-tags-for-completion-method
  ((table semanticdb-table-emacs-lisp) prefix &optional tags)
-  "In TABLE, find all occurances of tags matching PREFIX.
+  "In TABLE, find all occurrences of tags matching PREFIX.
 Optional argument TAGS is a list of tags to search.
 Returns a table of all matching tags."
  (if tags (call-next-method)
@@ -290,7 +290,7 @@ Returns a table of all matching tags."
 (defmethod semanticdb-find-tags-by-class-method
  ((table semanticdb-table-emacs-lisp) class &optional tags)
-  "In TABLE, find all occurances of tags of CLASS.
+  "In TABLE, find all occurrences of tags of CLASS.
 Optional argument TAGS is a list of tags to search.
 Returns a table of all matching tags."
  (if tags (call-next-method)
@@ -316,7 +316,7 @@ Like `semanticdb-find-tags-by-name-method' for Emacs Lisp."
 (defmethod semanticdb-deep-find-tags-for-completion-method
  ((table semanticdb-table-emacs-lisp) prefix &optional tags)
-  "In TABLE, find all occurances of tags matching PREFIX.
+  "In TABLE, find all occurrences of tags matching PREFIX.
 Optional argument TAGS is a list of tags to search.
 Like `semanticdb-find-tags-for-completion-method' for Emacs Lisp."
  (semanticdb-find-tags-for-completion-method table prefix tags))
diff --git a/lisp/cedet/semantic/db-find.el b/lisp/cedet/semantic/db-find.el
index 59b190f0073..eba04a7ee02 100644
--- a/lisp/cedet/semantic/db-find.el
+++ b/lisp/cedet/semantic/db-find.el
@@ -281,7 +281,7 @@ identified by translating PATH.  Such searches use brute force to
 scan every available table.
 The return value is a list of objects of type `semanticdb-table' or
-it's children.  In the case of passing in a find result, the result
+their children.  In the case of passing in a find result, the result
 is returned unchanged.
 This routine uses `semanticdb-find-table-for-include' to translate
@@ -366,7 +366,7 @@ Default action as described in `semanticdb-find-translate-path'."
    ans))
 (defun semanticdb-find-need-cache-update-p (table)
-  "Non nil if the semanticdb TABLE cache needs to be updated."
+  "Non-nil if the semanticdb TABLE cache needs to be updated."
  ;; If we were passed in something related to a TABLE,
  ;; do a caching lookup.
  (let* ((index (semanticdb-get-table-index table))
@@ -431,7 +431,7 @@ Default action as described in `semanticdb-find-translate-path'."
  "All include tags scanned, plus action taken on the tag.
 Each entry is an alist:
  (ACTION . TAG)
-where ACTION is one of 'scanned, 'duplicate, 'lost.
+where ACTION is one of 'scanned, 'duplicate, 'lost
 and TAG is a clone of the include tag that was found.")
 (make-variable-buffer-local 'semanticdb-find-scanned-include-tags)
@@ -927,7 +927,7 @@ but should be good enough for debugging assertions."
 (defun semanticdb-find-result-with-nil-p (resultp)
  "Non-nil of RESULTP is in the form of a semanticdb search result.
-nil is a valid value where a TABLE usually is, but only if the TAG
+The value nil is valid where a TABLE usually is, but only if the TAG
 results include overlays.
 This query only really tests the first entry in the list that is RESULTP,
 but should be good enough for debugging assertions."
@@ -1090,8 +1090,8 @@ Returns result."
  "Collect all tags returned by FUNCTION over PATH.
 The FUNCTION must take two arguments.  The first is TABLE,
 which is a semanticdb table containing tags.  The second argument
-to FUNCTION is TAGS.  TAGS may be a list of tags.  If TAGS is non-nil, then
+to FUNCTION is TAGS.  TAGS may be a list of tags.  If TAGS is non-nil,
-FUNCTION should search the TAG list, not through TABLE.
+then FUNCTION should search the TAG list, not through TABLE.
 See `semanticdb-find-translate-path' for details on PATH.
 FIND-FILE-MATCH indicates that any time a match is found, the file
@@ -1296,38 +1296,38 @@ associated with that tag should be loaded into a buffer."
 ;;; Top level Searches
 (defmethod semanticdb-find-tags-by-name-method ((table semanticdb-abstract-table) name &optional tags)
-  "In TABLE, find all occurances of tags with NAME.
+  "In TABLE, find all occurrences of tags with NAME.
 Optional argument TAGS is a list of tags to search.
 Returns a table of all matching tags."
  (semantic-find-tags-by-name name (or tags (semanticdb-get-tags table))))
 (defmethod semanticdb-find-tags-by-name-regexp-method ((table semanticdb-abstract-table) regexp &optional tags)
-  "In TABLE, find all occurances of tags matching REGEXP.
+  "In TABLE, find all occurrences of tags matching REGEXP.
 Optional argument TAGS is a list of tags to search.
 Returns a table of all matching tags."
  (semantic-find-tags-by-name-regexp regexp (or tags (semanticdb-get-tags table))))
 (defmethod semanticdb-find-tags-for-completion-method ((table semanticdb-abstract-table) prefix &optional tags)
-  "In TABLE, find all occurances of tags matching PREFIX.
+  "In TABLE, find all occurrences of tags matching PREFIX.
 Optional argument TAGS is a list of tags to search.
 Returns a table of all matching tags."
  (semantic-find-tags-for-completion prefix (or tags (semanticdb-get-tags table))))
 (defmethod semanticdb-find-tags-by-class-method ((table semanticdb-abstract-table) class &optional tags)
-  "In TABLE, find all occurances of tags of CLASS.
+  "In TABLE, find all occurrences of tags of CLASS.
 Optional argument TAGS is a list of tags to search.
 Returns a table of all matching tags."
  (semantic-find-tags-by-class class (or tags (semanticdb-get-tags table))))
 (defmethod semanticdb-find-tags-external-children-of-type-method ((table semanticdb-abstract-table) parent &optional tags)
-   "In TABLE, find all occurances of tags whose parent is the PARENT type.
+   "In TABLE, find all occurrences of tags whose parent is the PARENT type.
 Optional argument TAGS is a list of tags to search.
 Returns a table of all matching tags."
   (require 'semantic/find)
   (semantic-find-tags-external-children-of-type parent (or tags (semanticdb-get-tags table))))
 (defmethod semanticdb-find-tags-subclasses-of-type-method ((table semanticdb-abstract-table) parent &optional tags)
-   "In TABLE, find all occurances of tags whose parent is the PARENT type.
+   "In TABLE, find all occurrences of tags whose parent is the PARENT type.
 Optional argument TAGS is a list of tags to search.
 Returns a table of all matching tags."
   (require 'semantic/find)
@@ -1335,7 +1335,7 @@ Returns a table of all matching tags."
 ;;; Deep Searches
 (defmethod semanticdb-deep-find-tags-by-name-method ((table semanticdb-abstract-table) name &optional tags)
-  "In TABLE, find all occurances of tags with NAME.
+  "In TABLE, find all occurrences of tags with NAME.
 Search in all tags in TABLE, and all components of top level tags in
 TABLE.
 Optional argument TAGS is a list of tags to search.
@@ -1343,7 +1343,7 @@ Return a table of all matching tags."
  (semantic-find-tags-by-name name (semantic-flatten-tags-table (or tags (semanticdb-get-tags table)))))
 (defmethod semanticdb-deep-find-tags-by-name-regexp-method ((table semanticdb-abstract-table) regexp &optional tags)
-  "In TABLE, find all occurances of tags matching REGEXP.
+  "In TABLE, find all occurrences of tags matching REGEXP.
 Search in all tags in TABLE, and all components of top level tags in
 TABLE.
 Optional argument TAGS is a list of tags to search.
@@ -1351,7 +1351,7 @@ Return a table of all matching tags."
  (semantic-find-tags-by-name-regexp regexp (semantic-flatten-tags-table (or tags (semanticdb-get-tags table)))))
 (defmethod semanticdb-deep-find-tags-for-completion-method ((table semanticdb-abstract-table) prefix &optional tags)
-  "In TABLE, find all occurances of tags matching PREFIX.
+  "In TABLE, find all occurrences of tags matching PREFIX.
 Search in all tags in TABLE, and all components of top level tags in
 TABLE.
 Optional argument TAGS is a list of tags to search.
diff --git a/lisp/cedet/semantic/db-global.el b/lisp/cedet/semantic/db-global.el
index bfd97fc5a54..444efbd17e0 100644
--- a/lisp/cedet/semantic/db-global.el
+++ b/lisp/cedet/semantic/db-global.el
@@ -66,7 +66,7 @@ in a GNU Global supported hierarchy."
  )
 (defun semanticdb-enable-gnu-global-hook ()
-  "Add support for GNU Global in the current buffer via semantic-init-hook.
+  "Add support for GNU Global in the current buffer via `semantic-init-hook'.
 MODE is the major mode to support."
  (semanticdb-enable-gnu-global-in-buffer t))
@@ -78,8 +78,8 @@ MODE is the major mode to support."
 (defun semanticdb-enable-gnu-global-in-buffer (&optional dont-err-if-not-available)
  "Enable a GNU Global database in the current buffer.
-Argument DONT-ERR-IF-NOT-AVAILABLE will throw an error if GNU Global
+When GNU Global is not available for this directory, display a message
-is not available for this directory."
+if optional DONT-ERR-IF-NOT-AVAILABLE is non-nil; else throw an error."
  (interactive "P")
  (if (cedet-gnu-global-root)
      (setq
@@ -168,7 +168,7 @@ Return a list of tags."
 (defmethod semanticdb-find-tags-for-completion-method
  ((table semanticdb-table-global) prefix &optional tags)
-  "In TABLE, find all occurances of tags matching PREFIX.
+  "In TABLE, find all occurrences of tags matching PREFIX.
 Optional argument TAGS is a list of tags to search.
 Returns a table of all matching tags."
  (if tags (call-next-method)
@@ -195,7 +195,7 @@ Returns a table of all matching tags."
 (defmethod semanticdb-deep-find-tags-by-name-method
  ((table semanticdb-table-global) name &optional tags)
  "Find all tags name NAME in TABLE.
-Optional argument TAGS is a list of tags t
+Optional argument TAGS is a list of tags to search.
 Like `semanticdb-find-tags-by-name-method' for global."
  (semanticdb-find-tags-by-name-method table name tags))
@@ -208,7 +208,7 @@ Like `semanticdb-find-tags-by-name-method' for global."
 (defmethod semanticdb-deep-find-tags-for-completion-method
  ((table semanticdb-table-global) prefix &optional tags)
-  "In TABLE, find all occurances of tags matching PREFIX.
+  "In TABLE, find all occurrences of tags matching PREFIX.
 Optional argument TAGS is a list of tags to search.
 Like `semanticdb-find-tags-for-completion-method' for global."
  (semanticdb-find-tags-for-completion-method table prefix tags))
diff --git a/lisp/cedet/semantic/db-javascript.el b/lisp/cedet/semantic/db-javascript.el
index 2e357e677e2..a972c33f32a 100644
--- a/lisp/cedet/semantic/db-javascript.el
+++ b/lisp/cedet/semantic/db-javascript.el
@@ -77,7 +77,7 @@
      (("uriComponent" variable nil nil nil)))
     nil nil))
  "Hard-coded list of javascript tags for semanticdb.
-See bottom of this file for instruction on managing this list.")
+See bottom of this file for instructions on managing this list.")
 ;;; Classes:
 (defclass semanticdb-table-javascript (semanticdb-search-results-table)
@@ -87,7 +87,7 @@ See bottom of this file for instruction on managing this list.")
 (defclass semanticdb-project-database-javascript
  (semanticdb-project-database
-   eieio-singleton ;this db is for js globals, so singleton is apropriate
+   eieio-singleton ;this db is for js globals, so singleton is appropriate
   )
  ((new-table-class :initform semanticdb-table-javascript
                    :type class
@@ -107,7 +107,7 @@ See bottom of this file for instruction on managing this list.")
 (defvar-mode-local javascript-mode semanticdb-find-default-throttle
  '(project omniscience)
  "Search project files, then search this omniscience database.
-It is not necessary to to system or recursive searching because of
+It is not necessary to do system or recursive searching because of
 the omniscience database.")
 ;;; Filename based methods
@@ -157,7 +157,7 @@ local variable."
 ;; to a search list.
 (define-mode-local-override semanticdb-find-translate-path javascript-mode
  (path brutish)
-  "Return a list of semanticdb tables asociated with PATH.
+  "Return a list of semanticdb tables associated with PATH.
 If brutish, do the default action.
 If not brutish, do the default action, and append the system
 database (if available.)"
@@ -216,7 +216,7 @@ Return a list of tags."
 (defmethod semanticdb-find-tags-for-completion-method
  ((table semanticdb-table-javascript) prefix &optional tags)
-  "In TABLE, find all occurances of tags matching PREFIX.
+  "In TABLE, find all occurrences of tags matching PREFIX.
 Optional argument TAGS is a list of tags to search.
 Returns a table of all matching tags."
  (if tags (call-next-method)
@@ -226,7 +226,7 @@ Returns a table of all matching tags."
 (defmethod semanticdb-find-tags-by-class-method
  ((table semanticdb-table-javascript) class &optional tags)
-  "In TABLE, find all occurances of tags of CLASS.
+  "In TABLE, find all occurrences of tags of CLASS.
 Optional argument TAGS is a list of tags to search.
 Returns a table of all matching tags."
  (if tags (call-next-method)
@@ -248,7 +248,7 @@ Returns a table of all matching tags."
 (defmethod semanticdb-deep-find-tags-by-name-method
  ((table semanticdb-table-javascript) name &optional tags)
  "Find all tags name NAME in TABLE.
-Optional argument TAGS is a list of tags t
+Optional argument TAGS is a list of tags to search.
 Like `semanticdb-find-tags-by-name-method' for javascript."
  (semanticdb-find-tags-by-name-method table name tags))
@@ -261,7 +261,7 @@ Like `semanticdb-find-tags-by-name-method' for javascript."
 (defmethod semanticdb-deep-find-tags-for-completion-method
  ((table semanticdb-table-javascript) prefix &optional tags)
-  "In TABLE, find all occurances of tags matching PREFIX.
+  "In TABLE, find all occurrences of tags matching PREFIX.
 Optional argument TAGS is a list of tags to search.
 Like `semanticdb-find-tags-for-completion-method' for javascript."
  (semanticdb-find-tags-for-completion-method table prefix tags))
@@ -270,7 +270,7 @@ Like `semanticdb-find-tags-for-completion-method' for javascript."
 ;;
 (defmethod semanticdb-find-tags-external-children-of-type-method
  ((table semanticdb-table-javascript) type &optional tags)
-  "Find all nonterminals which are child elements of TYPE
+  "Find all nonterminals which are child elements of TYPE.
 Optional argument TAGS is a list of tags to search.
 Return a list of tags."
  (if tags (call-next-method)
diff --git a/lisp/cedet/semantic/idle.el b/lisp/cedet/semantic/idle.el
index cf107232645..ba7a49757a5 100644
--- a/lisp/cedet/semantic/idle.el
+++ b/lisp/cedet/semantic/idle.el
@@ -338,7 +338,7 @@ Disable to prevent lots of excessive parsing in idle time."
 (defun semantic-idle-work-for-one-buffer (buffer)
  "Do long-processing work for BUFFER.
 Uses `semantic-safe' and returns the output.
-Returns t of all processing succeeded."
+Returns t if all processing succeeded."
  (with-current-buffer buffer
    (not (and
          ;; Just in case
@@ -367,7 +367,7 @@ Returns t of all processing succeeded."
 (defun semantic-idle-work-core-handler ()
  "Core handler for idle work processing of long running tasks.
-Visits semantic controlled buffers, and makes sure all needed
+Visits Semantic controlled buffers, and makes sure all needed
 include files have been parsed, and that the typecache is up to date.
 Uses `semantic-idle-work-for-on-buffer' to do the work."
  (let ((errbuf nil)
@@ -577,7 +577,7 @@ Does nothing if the current buffer doesn't need reparsing."
 DOC will be a documentation string describing FORMS.
 FORMS will be called during idle time after the current buffer's
 semantic tag information has been updated.
-This routines creates the following functions and variables:"
+This routine creates the following functions and variables:"
  (let ((global (intern (concat "global-" (symbol-name name) "-mode")))
        (mode   (intern (concat (symbol-name name) "-mode")))
        (hook   (intern (concat (symbol-name name) "-mode-hook")))
@@ -764,7 +764,7 @@ specific to a major mode.  For example, in jde mode:
             jde-java-font-lock-code-face)))")
 (defun semantic-idle-summary-useful-context-p ()
-  "Non-nil of we should show a summary based on context."
+  "Non-nil if we should show a summary based on context."
  (if (and (boundp 'font-lock-mode)
           font-lock-mode
           (memq (get-text-property (point) 'face)
@@ -959,7 +959,7 @@ Call `semantic-symref-hits-in-region' to identify local references."
 ;;;###autoload
 (defun global-semantic-idle-scheduler-mode (&optional arg)
  "Toggle global use of option `semantic-idle-scheduler-mode'.
-The idle scheduler with automatically reparse buffers in idle time,
+The idle scheduler will automatically reparse buffers in idle time,
 and then schedule other jobs setup with `semantic-idle-scheduler-add'.
 If ARG is positive, enable, if it is negative, disable.
 If ARG is nil, then toggle."
diff --git a/lisp/cedet/semantic/util-modes.el b/lisp/cedet/semantic/util-modes.el
index 21087ef2506..7e3a615d0b1 100644
--- a/lisp/cedet/semantic/util-modes.el
+++ b/lisp/cedet/semantic/util-modes.el
@@ -337,7 +337,7 @@ semantic parser cannot match is highlighted with a red underline."
    (((class color) (background light))
     (:underline "red")))
  "Face used to show unmatched syntax in.
-The face is used in  `semantic-show-unmatched-syntax-mode'."
+The face is used in `semantic-show-unmatched-syntax-mode'."
  :group 'semantic-faces)
 (defsubst semantic-unmatched-syntax-overlay-p (overlay)
@@ -767,7 +767,7 @@ This makes it appear that the first line of that tag is
      ]
    [ "Narrow To Headerline Tag" senator-narrow-to-defun
      :active (semantic-current-tag)
-      :help "Narrow to the bounds of the current tag."]
+      :help "Narrow to the bounds of the current tag"]
    [ "Fold Headerline Tag" senator-fold-tag-toggle
      :active (semantic-current-tag)
      :style toggle
@@ -854,7 +854,7 @@ when it lands in the sticky line."
  :type 'string)
 (defvar semantic-stickyfunc-old-hlf nil
-  "Value of the header line when entering sticky func mode.")
+  "Value of the header line when entering stickyfunc mode.")
 (defconst semantic-stickyfunc-header-line-format
  (cond ((featurep 'xemacs)
@@ -868,7 +868,7 @@ when it lands in the sticky line."
         '(:eval (list semantic-stickyfunc-indent-string
                       (semantic-stickyfunc-fetch-stickyline))))
        (t nil))
-  "The header line format used by sticky func mode.")
+  "The header line format used by stickyfunc mode.")
 (defun semantic-stickyfunc-mode-setup ()
  "Setup option `semantic-stickyfunc-mode'.
@@ -936,7 +936,7 @@ minor mode is enabled."
 (defvar semantic-stickyfunc-sticky-classes
  '(function type)
-  "List of tag classes which sticky func will display in the header line.")
+  "List of tag classes which stickyfunc will display in the header line.")
 (make-variable-buffer-local 'semantic-stickyfunc-sticky-classes)
 (defun semantic-stickyfunc-tag-to-stick ()
@@ -953,7 +953,7 @@ minor mode is enabled."
 (defun semantic-stickyfunc-fetch-stickyline ()
  "Make the function at the top of the current window sticky.
-Capture it's function declaration, and place it in the header line.
+Capture its function declaration, and place it in the header line.
 If there is no function, disable the header line."
  (let ((str
         (save-excursion
@@ -962,7 +962,7 @@ If there is no function, disable the header line."
           (end-of-line)
           ;; Capture this function
           (let* ((tag (semantic-stickyfunc-tag-to-stick)))
-             ;; TAG is nil if there was nothing of the apropriate type there.
+             ;; TAG is nil if there was nothing of the appropriate type there.
             (if (not tag)
                 ;; Set it to be the text under the header line
                 (buffer-substring (point-at-bol) (point-at-eol))
@@ -1080,7 +1080,7 @@ When enabled, the first line of the current tag is highlighted."
      ]
    [ "Narrow To Tag" senator-narrow-to-defun
      :active (semantic-current-tag)
-      :help "Narrow to the bounds of the current tag."]
+      :help "Narrow to the bounds of the current tag"]
    [ "Fold Tag" senator-fold-tag-toggle
      :active (semantic-current-tag)
      :style toggle
@@ -1129,7 +1129,7 @@ Use the command `semantic-highlight-func-mode' to change this variable.")
 (defun semantic-highlight-func-mode-setup ()
  "Setup option `semantic-highlight-func-mode'.
-For semantic enabled buffers, highlight the first line of the
+For Semantic enabled buffers, highlight the first line of the
 current tag declaration."
  (if semantic-highlight-func-mode
      (progn
@@ -1202,7 +1202,7 @@ function was called, move the overlay."
        (setq semantic-highlight-func-ct-overlay ol)
        )
-      ;; TAG is nil if there was nothing of the apropriate type there.
+      ;; TAG is nil if there was nothing of the appropriate type there.
      (if (or (not tag) disable)
          ;; No tag, make the overlay go away.
          (progn
diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el
index deadc06abba..8d168a7f339 100644
--- a/lisp/cedet/srecode/dictionary.el
+++ b/lisp/cedet/srecode/dictionary.el
@@ -240,7 +240,7 @@ You can add several dictionaries to the same section macro.
 For each dictionary added to a macro, the block of codes in the
 template will be repeated.
-If optional argument SHOW-ONLY is non-nil, then don't add a new dictionarly
+If optional argument SHOW-ONLY is non-nil, then don't add a new dictionary
 if there is already one in place.  Also, don't add FIRST/LAST entries.
 These entries are not needed when we are just showing a section.
@@ -402,7 +402,7 @@ FUNCTION and DICTIONARY are as for the baseclass."
 (defclass srecode-field-value (srecode-dictionary-compound-value)
  ((firstinserter :initarg :firstinserter
                  :documentation
-                  "The inserter object for the first occurance of this field.")
+                  "The inserter object for the first occurrence of this field.")
   (defaultvalue :initarg :defaultvalue
     :documentation
     "The default value for this inserter.")
diff --git a/lisp/cedet/srecode/extract.el b/lisp/cedet/srecode/extract.el
index 8a324550c4d..90eda533335 100644
--- a/lisp/cedet/srecode/extract.el
+++ b/lisp/cedet/srecode/extract.el
@@ -216,7 +216,7 @@ Return nil if nothing was extracted."
  (srecode-insert-include-lookup ins dict)
  ;; There are two modes for includes.  One is with no dict,
  ;; so it is inserted straight.  If the dict has a name, then
-  ;; we need to run once per dictionary occurance.
+  ;; we need to run once per dictionary occurrence.
  (if (not (string= (oref ins :object-name) ""))
      ;; With a name, do the insertion.
      (let ((subdict (srecode-dictionary-add-section-dictionary
diff --git a/lisp/dired-aux.el b/lisp/dired-aux.el
index 7c53c3d9461..62d6928c024 100644
--- a/lisp/dired-aux.el
+++ b/lisp/dired-aux.el
@@ -2308,7 +2308,7 @@ Use \\[dired-hide-all] to (un)hide all directories."
    (restore-buffer-modified-p modflag)))
 ;;;###autoload
-(defun dired-hide-all (arg)
+(defun dired-hide-all (&optional ignored)
  "Hide all subdirectories, leaving only their header lines.
 If there is already something hidden, make everything visible again.
 Use \\[dired-hide-subdir] to (un)hide a particular subdirectory."
diff --git a/lisp/dired.el b/lisp/dired.el
index d4bf1d019a0..1fc90c308b1 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -3517,7 +3517,7 @@ Ask means pop up a menu for the user to select one of copy, move or link."
 ;;;;;;  dired-run-shell-command dired-do-shell-command dired-do-async-shell-command
 ;;;;;;  dired-clean-directory dired-do-print dired-do-touch dired-do-chown
 ;;;;;;  dired-do-chgrp dired-do-chmod dired-compare-directories dired-backup-diff
-;;;;;;  dired-diff) "dired-aux" "dired-aux.el" "557aca1f6e86b39f1c7612ee123d5354")
+;;;;;;  dired-diff) "dired-aux" "dired-aux.el" "07676ea25af17f5d50cc5db4f53bddc0")
 ;;; Generated autoloads from dired-aux.el
 (autoload 'dired-diff "dired-aux" "\
@@ -3917,7 +3917,7 @@ Hide all subdirectories, leaving only their header lines.
 If there is already something hidden, make everything visible again.
 Use \\[dired-hide-subdir] to (un)hide a particular subdirectory.
-\(fn ARG)" t nil)
+\(fn &optional IGNORED)" t nil)
 (autoload 'dired-isearch-filenames-setup "dired-aux" "\
 Set up isearch to search in Dired file names.
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el
index 46522991418..bac24b63021 100644
--- a/lisp/emacs-lisp/advice.el
+++ b/lisp/emacs-lisp/advice.el
@@ -2422,16 +2422,28 @@ in that CLASS."
 ;;;###autoload
 (defun ad-add-advice (function advice class position)
  "Add a piece of ADVICE to FUNCTION's list of advices in CLASS.
-If FUNCTION already has one or more pieces of advice of the specified
-CLASS then POSITION determines where the new piece will go.  The value
+ADVICE has the form (NAME PROTECTED ENABLED DEFINITION), where
-of POSITION can either be `first', `last' or a number where 0 corresponds
+NAME is the advice name; PROTECTED is a flag specifying whether
-to `first'.  Numbers outside the range will be mapped to the closest
+to protect against non-local exits; ENABLED is a flag specifying
-extreme position.  If there was already a piece of ADVICE with the same
+whether to initially enable the advice; and DEFINITION has the
-name, then the position argument will be ignored and the old advice
+form (advice . LAMBDA), where LAMBDA is a lambda expression.
-will be overwritten with the new one.
-    If the FUNCTION was not advised already, then its advice info will be
+If FUNCTION already has a piece of advice with the same name,
-initialized.  Redefining a piece of advice whose name is part of the cache-id
+then POSITION is ignored, and the old advice is overwritten with
-will clear the cache."
+the new one.
+If FUNCTION already has one or more pieces of advice of the
+specified CLASS, then POSITION determines where the new piece
+goes.  POSITION can either be `first', `last' or a number (where
+0 corresponds to `first', and numbers outside the valid range are
+mapped to the closest extremal position).
+If FUNCTION was not advised already, its advice info will be
+initialized.  Redefining a piece of advice whose name is part of
+the cache-id will clear the cache.
+See Info node `(elisp)Computed Advice' for detailed documentation."
  (cond ((not (ad-is-advised function))
         (ad-initialize-advice-info function)
         (ad-set-advice-info-field
diff --git a/lisp/emacs-lisp/chart.el b/lisp/emacs-lisp/chart.el
index 4f01e540601..d2abdcffe0d 100644
--- a/lisp/emacs-lisp/chart.el
+++ b/lisp/emacs-lisp/chart.el
@@ -644,7 +644,7 @@ SORT-PRED if desired."
    ;; Lets create the chart!
    (chart-bar-quickie 'vertical "Files Extension Distribution"
                       extlst "File Extensions"
-                       cntlst "# of occurances"
+                       cntlst "# of occurrences"
                       10
                       '(lambda (a b) (> (cdr a) (cdr b))))
    ))
@@ -740,9 +740,9 @@ SORT-PRED if desired."
                (setcar cell (1+ (car cell))))
            (setq nmlst (cons nam nmlst)
                  cntlst (cons 1 cntlst))))))
-    (chart-bar-quickie 'vertical "Username Occurance in RMAIL box"
+    (chart-bar-quickie 'vertical "Username Occurrence in RMAIL box"
                       nmlst "User Names"
-                       cntlst "# of occurances"
+                       cntlst "# of occurrences"
                       10
                       '(lambda (a b) (> (cdr a) (cdr b))))
    ))
diff --git a/lisp/emacs-lisp/eieio-speedbar.el b/lisp/emacs-lisp/eieio-speedbar.el
index aff078e9998..e4c1c50aa8f 100644
--- a/lisp/emacs-lisp/eieio-speedbar.el
+++ b/lisp/emacs-lisp/eieio-speedbar.el
@@ -227,7 +227,7 @@ attributes.  These default objects will be pulled up in a custom
 object edit buffer doing an in-place edit.
 If your object represents some other item, override this method
-and take the apropriate action."
+and take the appropriate action."
  (require 'eieio-custom)
  (speedbar-with-attached-buffer
   (eieio-customize-object object))
@@ -327,7 +327,7 @@ Argument DEPTH is the depth at which the tag line is inserted."
 (defmethod eieio-speedbar-expand ((object eieio-speedbar) depth)
  "Expand OBJECT at indentation DEPTH.
-Inserts a list of new tag lines representing expanded elements withing
+Inserts a list of new tag lines representing expanded elements within
 OBJECT."
  (let ((children (eieio-speedbar-object-children object)))
    (cond ((eieio-object-p (car children))
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el
index 69ddaa72c1c..f5e684e1323 100644
--- a/lisp/emacs-lisp/eieio.el
+++ b/lisp/emacs-lisp/eieio.el
@@ -79,7 +79,7 @@
  "*This hook is executed, then cleared each time `defclass' is called.")
 (defvar eieio-error-unsupported-class-tags nil
-  "*Non nil to throw an error if an encountered tag us unsupported.
+  "*Non-nil to throw an error if an encountered tag us unsupported.
 This may prevent classes from CLOS applications from being used with EIEIO
 since EIEIO does not support all CLOS tags.")
@@ -2021,7 +2021,7 @@ This should only be called from a generic function."
    (run-hook-with-args 'eieio-pre-method-execution-hooks
                        primarymethodlist)
-    ;; Now loop through all occurances forms which we must execute
+    ;; Now loop through all occurrences forms which we must execute
    ;; (which are happily sorted now) and execute them all!
    (let ((rval nil) (lastval nil) (rvalever nil) (found nil))
      (while lambdas
@@ -2101,7 +2101,7 @@ for this common case to improve performance."
    (setq primarymethodlist  ;; Re-use even with bad name here
          (eieiomt-method-list method method-primary mclass))
-    ;; Now loop through all occurances forms which we must execute
+    ;; Now loop through all occurrences forms which we must execute
    ;; (which are happily sorted now) and execute them all!
    (let* ((rval nil) (lastval nil) (rvalever nil)
           (scoped-class (cdr lambdas))
@@ -2331,7 +2331,7 @@ nil for superclasses.  This function performs no type checking!"
 If CLASS is not a class then use `generic' instead.  If class has
 no form, but has a parent class, then trace to that parent class.
 The first time a form is requested from a symbol, an optimized path
-is memorized for future faster use."
+is memorized for faster future use."
 (let ((emto (aref (get method 'eieio-method-obarray)
                   (if class key (+ key 3)))))
   (if (class-p class)
@@ -2814,13 +2814,13 @@ Optional argument NOESCAPE is passed to `prin1-to-string' when appropriate."
 ;;; Autoloading some external symbols, and hooking into the help system
 ;;
-(autoload 'eieio-help-mode-augmentation-maybee "eieio-opt" "For buffers thrown into help mode, augment for eieio.")
+(autoload 'eieio-help-mode-augmentation-maybee "eieio-opt" "For buffers thrown into help mode, augment for EIEIO.")
-(autoload 'eieio-browse "eieio-opt" "Create an object browser window" t)
+(autoload 'eieio-browse "eieio-opt" "Create an object browser window." t)
 (autoload 'eieio-describe-class "eieio-opt" "Describe CLASS defined by a string or symbol" t)
 (autoload 'eieio-describe-constructor "eieio-opt" "Describe the constructor function FCN." t)
-(autoload 'describe-class "eieio-opt" "Describe CLASS defined by a string or symbol" t)
+(autoload 'describe-class "eieio-opt" "Describe CLASS defined by a string or symbol." t)
-(autoload 'eieio-describe-generic "eieio-opt" "Describe GENERIC defined by a string or symbol" t)
+(autoload 'eieio-describe-generic "eieio-opt" "Describe GENERIC defined by a string or symbol." t)
-(autoload 'describe-generic "eieio-opt" "Describe GENERIC defined by a string or symbol" t)
+(autoload 'describe-generic "eieio-opt" "Describe GENERIC defined by a string or symbol." t)
 (autoload 'customize-object "eieio-custom" "Create a custom buffer editing OBJ.")
diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el
index 73cff9d8934..8c216d9aca6 100644
--- a/lisp/emulation/viper-cmd.el
+++ b/lisp/emulation/viper-cmd.el
@@ -479,7 +479,7 @@
                          (assoc major-mode viper-emacs-state-modifier-alist))
                       viper-empty-keymap))
               ))
-        
  ;; This var is not local in Emacs, so we make it local.  It must be local
  ;; because although the stack of minor modes can be the same for all buffers,
  ;; the associated *keymaps* can be different.  In Viper,
@@ -891,7 +891,7 @@ Vi's prefix argument will be used.  Otherwise, the prefix argument passed to
 (defun viper-exec-form-in-vi  (form)
-  "Execute FORM in Vi state, regardless of the Ccurrent Vi state."
+  "Execute FORM in Vi state, regardless of the current Vi state."
  (let ((buff (current-buffer))
        result)
    (viper-set-mode-vars-for 'vi-state)
@@ -910,7 +910,7 @@ Vi's prefix argument will be used.  Otherwise, the prefix argument passed to
 (defun viper-exec-form-in-emacs  (form)
  "Execute FORM in Emacs, temporarily disabling Viper's minor modes.
-Similar to viper-escape-to-emacs, but accepts forms rather than keystrokes."
+Similar to `viper-escape-to-emacs', but accepts forms rather than keystrokes."
  (let ((buff (current-buffer))
        result)
    (viper-set-mode-vars-for 'emacs-state)
@@ -939,7 +939,7 @@ such minor modes.
 Usage:
    (viper-harness-minor-mode load-file)
-LOAD-FILE is a name of the file where the specific minor mode is defined.
+LOAD-FILE is the name of the file where the specific minor mode is defined.
 Suffixes such as .el or .elc should be stripped."
  (interactive "sEnter name of the load file: ")
@@ -961,9 +961,9 @@ Prevents multiple escape keystrokes if viper-no-multiple-ESC is true.
 If viper-no-multiple-ESC is 'twice double ESC would ding in vi-state.
 Other ESC sequences are emulated via the current Emacs's major mode
 keymap.  This is more convenient on TTYs, since this won't block
-function keys such as up,down, etc.  ESC will also will also work as
+function keys such as up, down, etc.  ESC will also will also work as
-a Meta key in this case.  When viper-no-multiple-ESC is nil, ESC functions
+a Meta key in this case.  When viper-no-multiple-ESC is nil, ESC works
-as a Meta key and any number of multiple escapes is allowed."
+as a Meta key and any number of multiple escapes are allowed."
  (interactive "P")
  (let (char)
    (cond ((and (not viper-no-multiple-ESC) (eq viper-current-state 'vi-state))
@@ -1181,7 +1181,7 @@ as a Meta key and any number of multiple escapes is allowed."
                ((eq event-char 'delete) (setq event-char ?\C-?))
                ((eq event-char 'backspace) (setq event-char ?\C-h))
                ((eq event-char 'space) (setq event-char ?\ )))
-          (setq last-command-event 
+          (setq last-command-event
                (if (featurep 'xemacs)
                    (character-to-event (or com event-char))
                  (or com event-char)))
@@ -1257,7 +1257,7 @@ as a Meta key and any number of multiple escapes is allowed."
      ;; as com is non-nil, this means that we have a command to execute
      (if (viper-memq-char (car com) '(?r ?R))
-          ;; execute apropriate region command.
+          ;; execute appropriate region command.
          (let ((char (car com)) (com (cdr com)))
            (setq prefix-arg (cons value com))
            (if (viper= char ?r)
@@ -1285,7 +1285,7 @@ as a Meta key and any number of multiple escapes is allowed."
         ;; gg  acts as G0
         ((equal (car com) ?g)   (viper-goto-line 0))
         (t (error "Viper bell")))))
-    
    (if cmd-to-exec-at-end
        (progn
          (setq last-command-event
@@ -1621,7 +1621,7 @@ Use the info in viper-d-com, which has the form
 where `com' is the command to be re-executed, `val' is the
 argument to `com', `ch' is a flag for repeat, and `reg' is optional;
 if it exists, it is the name of the register for `com'.
-If the prefix argument, ARG, is non-nil, it is used instead of `val'."
+If the prefix argument ARG is non-nil, it is used instead of `val'."
  (interactive "P")
  (let ((save-point (point)) ; save point before repeating prev cmd
        ;; Pass along that we are repeating a destructive command
@@ -1944,7 +1944,7 @@ Undo previous insertion and inserts new."
                 require-final-newline
                 ;; add newline only if we actually edited buffer. otherwise it
                 ;; might unintentionally modify binary buffers
-                 (buffer-modified-p) 
+                 (buffer-modified-p)
                 (not (viper-is-in-minibuffer))
                 (not buffer-read-only))
            ;; text property may be read-only
@@ -2539,7 +2539,7 @@ problems."
 (defun viper-replace-state-exit-cmd ()
  "Binding for keys that cause Replace state to switch to Vi or to Insert.
-These keys are ESC, RET, and LineFeed"
+These keys are ESC, RET, and LineFeed."
  (interactive)
  (if overwrite-mode   ; if in replace mode invoked via 'R'
      (viper-finish-R-mode)
@@ -3711,7 +3711,7 @@ controlled by the sign of prefix numeric value."
 (defun viper-toggle-search-style (arg)
  "Toggle the value of viper-case-fold-search/viper-re-search.
 Without prefix argument, will ask which search style to toggle.  With prefix
-arg 1,toggles viper-case-fold-search; with arg 2 toggles viper-re-search.
+arg 1, toggles viper-case-fold-search; with arg 2 toggles viper-re-search.
 Although this function is bound to \\[viper-toggle-search-style], the most
 convenient way to use it is to bind `//' to the macro
@@ -4262,7 +4262,7 @@ Null string will repeat previous search."
 (defun viper-del-backward-char-in-replace ()
  "Delete one character in replace mode.
 If `viper-delete-backwards-in-replace' is t, then DEL key actually deletes
-charecters.  If it is nil, then the cursor just moves backwards, similarly
+characters.  If it is nil, then the cursor just moves backwards, similarly
 to Vi.  The variable `viper-ex-style-editing', if t, doesn't let the
 cursor move past the beginning of line."
  (interactive)
@@ -4614,7 +4614,7 @@ One can use `` and '' to temporarily jump 1 step back."
  (indent-to (+ (current-column) viper-shift-width)))
 (defun viper-backward-indent ()
-  "Backtab, C-d in VI"
+  "Backtab, `C-d' in Vi."
  (interactive)
  (if viper-cted
      (let ((p (point)) (c (current-column)) bol (indent t))
@@ -4689,7 +4689,7 @@ One can use `` and '' to temporarily jump 1 step back."
              viper-InvalidRegister reg)))))
 (defun viper-brac-function (arg)
-  "Function called by \[, the brac.  View textmarkers and call \[\["
+  "Function called by \[, the brac.  View textmarkers and call \[\[."
  (interactive "P")
  (let ((reg (read-char)))
    (cond ((viper= ?\[ reg)
@@ -4922,7 +4922,7 @@ Please, specify your level now: ")
 ;; if ENFORCE-BUFFER is not nil, error if CHAR is a marker in another buffer
 (defun viper-register-to-point (char &optional enforce-buffer)
-  "Like jump-to-register, but switches to another buffer in another window."
+  "Like `jump-to-register', but switches to another buffer in another window."
  (interactive "cViper register to point: ")
  (let ((val (get-register char)))
    (cond
@@ -5047,7 +5047,7 @@ PLEASE FOLLOW THESE PROCEDURES
 ------------------------------
 Before reporting a bug, please verify that it is related to Viper, and is
-not cause by other packages you are using.
+not caused by other packages you are using.
 Don't report compilation warnings, unless you are certain that there is a
 problem.  These warnings are normal and unavoidable.
diff --git a/lisp/files.el b/lisp/files.el
index b665bd25343..99e818643d0 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1289,7 +1289,7 @@ BODY should use the minibuffer at most once.
 Recursive uses of the minibuffer are unaffected (FUN is not
 called additional times).
-This macro actually adds an auxilliary function that calls FUN,
+This macro actually adds an auxiliary function that calls FUN,
 rather than FUN itself, to `minibuffer-setup-hook'."
  (declare (indent 1) (debug t))
  (let ((hook (make-symbol "setup-hook")))
diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 8e7ae005762..1c1c62bb1b0 100644
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,3 +1,17 @@
+2010-01-17  Chong Yidong  <cyd@stupidchicken.com>
+        * message.el (message-mail): Just pass yank-action on to message-setup.
+        (message-setup): Handle (FUN . ARGS) form of yank-action.
+        (message-with-reply-buffer, message-widen-reply)
+        (message-yank-original): Handle non-buffer values of
+        message-reply-buffer (Bug#4080).
+        (message-setup-1): Prefer to save message-reply-buffer as a buffer.
+2010-01-17  Juanma Barranquero  <lekktu@gmail.com>
+        * nnmairix.el (nnmairix-group-delete-recreate-this-group):
+        Fix typo in docstring.
 2010-01-08  Jason Rumney  <jasonr@gnu.org>
        * sieve-manage.el (sieve-manage-parse-capability-1): Loosely match OK
diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index c0886c2051c..7194813422a 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -1139,6 +1139,8 @@ If stringp, use this; if non-nil, use no host name (user name only)."
                 (string :tag "name")
                 (sexp :tag "none" :format "%t" t)))
+;; This can be the name of a buffer, or a cons cell (FUNCTION . ARGS)
+;; for yanking the original buffer.
 (defvar message-reply-buffer nil)
 (defvar message-reply-headers nil
  "The headers of the current replied article.
@@ -1997,7 +1999,7 @@ see `message-narrow-to-headers-or-head'."
 (defmacro message-with-reply-buffer (&rest forms)
  "Evaluate FORMS in the reply buffer, if it exists."
-  `(when (and message-reply-buffer
+  `(when (and (bufferp message-reply-buffer)
              (buffer-name message-reply-buffer))
     (with-current-buffer message-reply-buffer
       ,@forms)))
@@ -3179,7 +3181,7 @@ or in the synonym headers, defined by `message-header-synonyms'."
  "Widen the reply to include maximum recipients."
  (interactive)
  (let ((follow-to
-         (and message-reply-buffer
+         (and (bufferp message-reply-buffer)
              (buffer-name message-reply-buffer)
              (with-current-buffer message-reply-buffer
                (message-get-reply-headers t)))))
@@ -3674,9 +3676,16 @@ Really top post? ")))
                                      (point-max)))
              (delete-region (message-goto-body) (point-max)))
          (set (make-local-variable 'message-cite-reply-above) nil)))
-      (delete-windows-on message-reply-buffer t)
+      (if (bufferp message-reply-buffer)
+          (delete-windows-on message-reply-buffer t))
      (push-mark (save-excursion
-                   (insert-buffer-substring message-reply-buffer)
+                   (cond
+                    ((bufferp message-reply-buffer)
+                     (insert-buffer-substring message-reply-buffer))
+                    ((and (consp message-reply-buffer)
+                          (functionp (car message-reply-buffer)))
+                     (apply (car message-reply-buffer)
+                            (cdr message-reply-buffer))))
                   (unless (bolp)
                     (insert ?\n))
                   (point)))
@@ -6251,14 +6260,14 @@ between beginning of field and beginning of line."
        nil
      mua)))
-(defun message-setup (headers &optional replybuffer actions
+;; YANK-ACTION, if non-nil, can be a buffer or a yank action of the
+;; form (FUNCTION . ARGS).
+(defun message-setup (headers &optional yank-action actions
                              continue switch-function)
  (let ((mua (message-mail-user-agent))
-        subject to field yank-action)
+        subject to field)
    (if (not (and message-this-is-mail mua))
-        (message-setup-1 headers replybuffer actions)
+        (message-setup-1 headers yank-action actions)
-      (if replybuffer
-          (setq yank-action (list 'insert-buffer replybuffer)))
      (setq headers (copy-sequence headers))
      (setq field (assq 'Subject headers))
      (when field
@@ -6275,7 +6284,11 @@ between beginning of field and beginning of line."
                                 (format "%s" (car item))
                                 (cdr item)))
                              headers)
-                      continue switch-function yank-action actions)))))
+                      continue switch-function
+                      (if (bufferp yank-action)
+                          (list 'insert-buffer yank-action)
+                        yank-action)
+                      actions)))))
 (defun message-headers-to-generate (headers included-headers excluded-headers)
  "Return a list that includes all headers from HEADERS.
@@ -6302,12 +6315,16 @@ are not included."
        (push header result)))
    (nreverse result)))
-(defun message-setup-1 (headers &optional replybuffer actions)
+(defun message-setup-1 (headers &optional yank-action actions)
  (dolist (action actions)
    (condition-case nil
        (add-to-list 'message-send-actions
                     `(apply ',(car action) ',(cdr action)))))
-  (setq message-reply-buffer replybuffer)
+  (setq message-reply-buffer
+        (if (and (consp yank-action)
+                 (eq (car yank-action) 'insert-buffer))
+            (nth 1 yank-action)
+          yank-action))
  (goto-char (point-min))
  ;; Insert all the headers.
  (mail-header-format
@@ -6438,7 +6455,7 @@ OTHER-HEADERS is an alist of header/value pairs.  CONTINUE says whether
 to continue editing a message already being composed.  SWITCH-FUNCTION
 is a function used to switch to and display the mail buffer."
  (interactive)
-  (let ((message-this-is-mail t) replybuffer)
+  (let ((message-this-is-mail t))
    (unless (message-mail-user-agent)
      (message-pop-to-buffer
       ;; Search for the existing message buffer if `continue' is non-nil.
@@ -6449,15 +6466,11 @@ is a function used to switch to and display the mail buffer."
                message-generate-new-buffers)))
         (message-buffer-name "mail" to))
       switch-function))
-    ;; FIXME: message-mail should do something if YANK-ACTION is not
-    ;; insert-buffer.
-    (and (consp yank-action) (eq (car yank-action) 'insert-buffer)
-         (setq replybuffer (nth 1 yank-action)))
    (message-setup
     (nconc
      `((To . ,(or to "")) (Subject . ,(or subject "")))
      (when other-headers other-headers))
-     replybuffer send-actions continue switch-function)
+     yank-action send-actions continue switch-function)
    ;; FIXME: Should return nil if failure.
    t))
diff --git a/lisp/gnus/nnmairix.el b/lisp/gnus/nnmairix.el
index 215b6d6072a..e39149b996c 100644
--- a/lisp/gnus/nnmairix.el
+++ b/lisp/gnus/nnmairix.el
@@ -1104,7 +1104,7 @@ with `nnmairix-mairix-update-options'."
 (defun nnmairix-group-delete-recreate-this-group ()
  "Deletes and recreates group on the back end.
-You can use this function on nnmairix groups which continously
+You can use this function on nnmairix groups which continuously
 show wrong article counts."
  (interactive)
  (let* ((group (gnus-group-group-name))
diff --git a/lisp/ido.el b/lisp/ido.el
index 60b874dcd49..48acc50581d 100644
--- a/lisp/ido.el
+++ b/lisp/ido.el
@@ -1042,11 +1042,11 @@ Value is an integer which is number of chars to right of prompt.")
 ;; Stores the current list of items that will be searched through.
 ;; The list is ordered, so that the most interesting item comes first,
 ;; although by default, the files visible in the current frame are put
-;; at the end of the list.  Created by `ido-make-item-list'.
+;; at the end of the list.
-(defvar ido-cur-list)
+(defvar ido-cur-list nil)
 ;; Stores the choice list for ido-completing-read
-(defvar ido-choice-list)
+(defvar ido-choice-list nil)
 ;; Stores the list of items which are ignored when building
 ;; `ido-cur-list'.  It is in no specific order.
@@ -3344,7 +3344,7 @@ for first matching file."
    (if ido-temp-list
        (nconc ido-temp-list ido-current-buffers)
      (setq ido-temp-list ido-current-buffers))
-    (if default
+    (if (and default (buffer-live-p (get-buffer default)))
        (progn
          (setq ido-temp-list
                (delete default ido-temp-list))
@@ -3590,6 +3590,7 @@ for first matching file."
  ;; Used by `ido-get-buffers-in-frames' to walk through all windows
  (let ((buf (buffer-name (window-buffer win))))
        (unless (or (member buf ido-bufs-in-frame)
+                    (minibufferp buf)
                    (member buf ido-ignore-item-temp-list))
          ;; Only add buf if it is not already in list.
          ;; This prevents same buf in two different windows being
@@ -3830,6 +3831,27 @@ for first matching file."
              ;;(add-hook 'completion-setup-hook 'completion-setup-function)
              (display-completion-list completion-list)))))))
+(defun ido-kill-buffer-internal (buf)
+  "Kill buffer BUF and rebuild ido's buffer list if needed."
+  (if (not (kill-buffer buf))
+      ;; buffer couldn't be killed.
+      (setq ido-rescan t)
+    ;; else buffer was killed so remove name from list.
+    (setq ido-cur-list (delq buf ido-cur-list))
+    ;; Some packages, like uniquify.el, may rename buffers when one
+    ;; is killed, so we need to test this condition to avoid using
+    ;; an outdated list of buffer names. We don't want to always
+    ;; rebuild the list of buffers, as this alters the previous
+    ;; buffer order that the user was seeing on the prompt. However,
+    ;; when we rebuild the list, we try to keep the previous second
+    ;; buffer as the first one.
+    (catch 'update
+      (dolist (b ido-cur-list)
+        (unless (get-buffer b)
+          (setq ido-cur-list (ido-make-buffer-list (cadr ido-matches)))
+          (setq ido-rescan t)
+          (throw 'update nil))))))
 ;;; KILL CURRENT BUFFER
 (defun ido-kill-buffer-at-head ()
  "Kill the buffer at the head of `ido-matches'.
@@ -3840,7 +3862,7 @@ If cursor is not at the end of the user input, delete to end of input."
    (let ((enable-recursive-minibuffers t)
          (buf (ido-name (car ido-matches))))
      (when buf
-        (kill-buffer buf)
+        (ido-kill-buffer-internal buf)
        ;; Check if buffer still exists.
        (if (get-buffer buf)
            ;; buffer couldn't be killed.
@@ -3884,7 +3906,7 @@ Record command in `command-history' if optional RECORD is non-nil."
     ((eq method 'kill)
      (if record
          (ido-record-command 'kill-buffer buffer))
-      (kill-buffer buffer))
+      (ido-kill-buffer-internal buffer))
     ((eq method 'other-window)
      (if record
diff --git a/lisp/indent.el b/lisp/indent.el
index 12cf9c9bb5d..3f8353bd90c 100644
--- a/lisp/indent.el
+++ b/lisp/indent.el
@@ -1,7 +1,7 @@
 ;;; indent.el --- indentation commands for Emacs
-;; Copyright (C) 1985, 1995, 2001, 2002, 2003, 2004,
+;; Copyright (C) 1985, 1995, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
-;;   2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+;;   2008, 2009, 2010  Free Software Foundation, Inc.
 ;; Maintainer: FSF
@@ -55,7 +55,11 @@ was already indented, then try to complete the thing at point.
 Some programming language modes have their own variable to control this,
 e.g., `c-tab-always-indent', and do not respect this variable."
  :group 'indent
-  :type '(choice (const nil) (const t) (const always)))
+  :type '(choice
+          (const :tag "Always indent" t)
+          (const :tag "Indent if inside indentation, else TAB" nil)
+          (const :tag "Indent, or if already indented complete" complete)))
 (defun indent-according-to-mode ()
  "Indent line in proper way for current major mode.
diff --git a/lisp/isearch.el b/lisp/isearch.el
index ab40678e69c..d0ad330c5c0 100644
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -1754,7 +1754,10 @@ Scroll-bar or mode-line events are processed appropriately."
 (put 'digit-argument 'isearch-scroll t)
 (defcustom isearch-allow-scroll nil
-  "If non-nil, scrolling commands are allowed during incremental search."
+  "Whether scrolling is allowed during incremental search.
+If non-nil, scrolling commands can be used in Isearch mode.
+However, the current match will never scroll offscreen.
+If nil, scolling commands will first cancel Isearch mode."
  :type 'boolean
  :group 'isearch)
diff --git a/lisp/jka-compr.el b/lisp/jka-compr.el
index 12f48bd96b1..34ffcc90a76 100644
--- a/lisp/jka-compr.el
+++ b/lisp/jka-compr.el
@@ -590,7 +590,14 @@ There should be no more than seven characters after the final `/'."
          (or nomessage
              (message "Loading %s...done." file))
          ;; Fix up the load history to point at the right library.
-          (let ((l (assoc load-file load-history)))
+          (let ((l (or (assoc load-file load-history)
+                       ;; On MS-Windows, if load-file is in
+                       ;; temporary-file-directory, it will look like
+                       ;; "c:/DOCUME~1/USER/LOCALS~1/foo", whereas
+                       ;; readevalloop will record its truename in
+                       ;; load-history.  Therefore try truename if the
+                       ;; original name is not in load-history.
+                       (assoc (file-truename load-file) load-history))))
            ;; Remove .gz and .elc?.
            (while (file-name-extension file)
              (setq file (file-name-sans-extension file)))
diff --git a/lisp/mail/mail-utils.el b/lisp/mail/mail-utils.el
index 3bca0b23a8c..5fad3554ae5 100644
--- a/lisp/mail/mail-utils.el
+++ b/lisp/mail/mail-utils.el
@@ -133,6 +133,8 @@ If NOERROR is non-nil, return t if successful.
 If UNIBYTE is non-nil, insert converted characters as unibyte.
 That is useful if you are going to character code decoding afterward,
 as Rmail does."
+  ;; FIXME: `unibyte' should always be non-nil, and the iso-latin-1
+  ;; specific handling should be removed (or moved elsewhere and generalized).
  (interactive "r\nP")
  (let (failed)
    (save-match-data
diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index 67ea3fdc158..20a03ede965 100644
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -2727,7 +2727,8 @@ The current mail message becomes the message displayed."
            (insert-buffer-substring mbox-buf body-start end)
            (cond
             ((string= character-coding "quoted-printable")
-              (mail-unquote-printable-region (point-min) (point-max)))
+              (mail-unquote-printable-region (point-min) (point-max)
+                                             nil nil 'unibyte))
             ((and (string= character-coding "base64") is-text-message)
              (base64-decode-region (point-min) (point-max)))
             ((eq character-coding 'uuencode)
diff --git a/lisp/mail/rmailmm.el b/lisp/mail/rmailmm.el
index e87f72a2e47..415bc20cf50 100644
--- a/lisp/mail/rmailmm.el
+++ b/lisp/mail/rmailmm.el
@@ -361,7 +361,10 @@ The parsed header value:
         (setq content-transfer-encoding nil))
        ((string= content-transfer-encoding "8bit")
         ;; FIXME: Is this the correct way?
-         (set-buffer-multibyte nil)))
+         ;; No, of course not, it just means there's no decoding to do.
+         ;; (set-buffer-multibyte nil)
+         (setq content-transfer-encoding nil)
+         ))
  ;; Inline stuff requires work.  Attachments are handled by the bulk
  ;; handler.
  (if (string= "inline" (car content-disposition))
diff --git a/lisp/mail/sendmail.el b/lisp/mail/sendmail.el
index 7004133f584..da8fe85da82 100644
--- a/lisp/mail/sendmail.el
+++ b/lisp/mail/sendmail.el
@@ -1505,14 +1505,18 @@ and don't delete any header fields."
  (interactive "P")
  (if mail-reply-action
      (let ((start (point))
-            (original mail-reply-action))
+            (original mail-reply-action)
+            (omark (mark t)))
        (and (consp original) (eq (car original) 'insert-buffer)
             (setq original (nth 1 original)))
        (if (consp original)
-            (apply (car original) (cdr original))
+            (progn
-          ;; If the original message is in another window in the same frame,
+              ;; Call yank function, and set the mark if it doesn't.
-          ;; delete that window to save screen space.
+              (apply (car original) (cdr original))
-          ;; t means don't alter other frames.
+              (if (eq omark (mark t))
+                  (push-mark (point))))
+          ;; If the original message is in another window in the same
+          ;; frame, delete that window to save space.
          (delete-windows-on original t)
          (with-no-warnings
            ;; We really want this to set mark.
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index f789110d26f..3f4af0ebf0e 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -6890,7 +6890,7 @@ input.
 If they are variables, this variable is a string containing a Perl
 implementation for this functionality.  This Perl program will be transferred
-to the remote host, and it is avalible as shell function with the same name.")
+to the remote host, and it is available as shell function with the same name.")
 (defun tramp-find-inline-encoding (vec)
  "Find an inline transfer encoding that works.
diff --git a/lisp/nxml/nxml-mode.el b/lisp/nxml/nxml-mode.el
index 9fefd304b44..8bcde7a3a22 100644
--- a/lisp/nxml/nxml-mode.el
+++ b/lisp/nxml/nxml-mode.el
@@ -882,16 +882,17 @@ Called with `font-lock-beg' and `font-lock-end' dynamically bound."
 (defun nxml-extend-after-change-region (start end pre-change-length)
  (unless nxml-degraded
    (setq nxml-last-fontify-end nil)
+    (let ((region (nxml-with-degradation-on-error
-    (nxml-with-degradation-on-error 'nxml-extend-after-change-region
+                   'nxml-extend-after-change-region
-        (save-excursion
+                   (save-excursion
-          (save-restriction
+                     (save-restriction
-            (widen)
+                       (widen)
-            (save-match-data
+                       (save-match-data
-              (nxml-with-invisible-motion
+                         (nxml-with-invisible-motion
-                (nxml-with-unmodifying-text-property-changes
+                           (nxml-with-unmodifying-text-property-changes
-                  (nxml-extend-after-change-region1
+                             (nxml-extend-after-change-region1
-                   start end pre-change-length)))))))))
+                              start end pre-change-length)))))))))
+      (if (consp region) region))))
 (defun nxml-extend-after-change-region1 (start end pre-change-length)
  (let* ((region (nxml-after-change1 start end pre-change-length))
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index 2b94fdb25ff..3694de23f88 100644
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -590,8 +590,25 @@ This variable defines several rules to use to align different lines.")
 ;; FIXME: make this customizable
 (defconst ada-ident-re
-  "\\(\\sw\\|[_.]\\)+"
+  "[[:alpha:]]\\(?:[_[:alnum:]]\\)*"
-  "Regexp matching Ada (qualified) identifiers.")
+  ;; [:alnum:] matches any multibyte word constituent, as well as
+  ;; Latin-1 letters and numbers. This allows __ and trailing _;
+  ;; someone (emacs bug#1919) proposed [^\W_] to fix that, but \W does
+  ;; _not_ mean "not word constituent" inside a character alternative.
+  "Regexp matching an Ada identifier.")
+(defconst ada-goto-label-re
+  (concat "<<" ada-ident-re ">>")
+  "Regexp matching a goto label.")
+(defconst ada-block-label-re
+  (concat ada-ident-re "[ \t\n]*:[^=]")
+  "Regexp matching a block label.
+Note that this also matches a variable declaration.")
+(defconst ada-label-re
+  (concat "\\(?:" ada-block-label-re "\\)\\|\\(?:" ada-goto-label-re "\\)")
+  "Regexp matching a goto or block label.")
 ;;  "with" needs to be included in the regexp, to match generic subprogram parameters
 ;;  Similarly, we put '[not] overriding' on the same line with 'procedure' etc.
@@ -660,14 +677,6 @@ A new statement starts after these.")
            "\\>"))
  "Regexp used in `ada-goto-matching-start'.")
-(defvar ada-matching-decl-start-re
-  (eval-when-compile
-    (concat "\\<"
-            (regexp-opt
-             '("is" "separate" "end" "declare" "if" "new" "begin" "generic" "when") t)
-            "\\>"))
-  "Regexp used in `ada-goto-matching-decl-start'.")
 (defvar ada-loop-start-re
  "\\<\\(for\\|while\\|loop\\)\\>"
  "Regexp for the start of a loop.")
@@ -678,10 +687,6 @@ A new statement starts after these.")
                                "protected" "task") t) "\\>"))
  "Regexp for the start of a subprogram.")
-(defvar ada-named-block-re
-  "[ \t]*\\(\\sw\\|_\\)+[ \t]*:[^=]"
-  "Regexp of the name of a block or loop.")
 (defvar ada-contextual-menu-on-identifier nil
  "Set to true when the right mouse button was clicked on an identifier.")
@@ -2108,10 +2113,18 @@ Return the equivalent internal parameter list."
 (defun ada-indent-newline-indent-conditional ()
  "Insert a newline and indent it.
-The original line is indented first if `ada-indent-after-return' is non-nil."
+The original line is re-indented if `ada-indent-after-return' is non-nil."
  (interactive "*")
-  (if ada-indent-after-return (ada-indent-current))
+  ;; If at end of buffer (entering brand new code), some indentation
+  ;; fails.  For example, a block label requires whitespace following
+  ;; the : to be recognized.  So we do the newline first, then
+  ;; go back and indent the original line.
  (newline)
+  (if ada-indent-after-return
+      (progn
+        (forward-char -1)
+        (ada-indent-current)
+        (forward-char 1)))
  (ada-indent-current))
 (defun ada-justified-indent-current ()
@@ -2335,8 +2348,8 @@ and the offset."
                      (progn
                        (goto-char (car match-cons))
                        (save-excursion
-                          (beginning-of-line)
+                          (back-to-indentation)
-                          (if (looking-at ada-named-block-re)
+                          (if (looking-at ada-block-label-re)
                              (setq label (- ada-label-indent))))))))
            ;; found 'record' =>
@@ -2455,7 +2468,7 @@ and the offset."
     ((and (= (downcase (char-after)) ?b)
           (looking-at "begin\\>"))
      (save-excursion
-        (if (ada-goto-matching-decl-start t)
+        (if (ada-goto-decl-start t)
            (list (progn (back-to-indentation) (point)) 0)
          (ada-indent-on-previous-lines nil orgpoint orgpoint))))
@@ -2648,8 +2661,9 @@ and the offset."
     ;; label
     ;;---------------------------------
-     ((looking-at "\\(\\sw\\|_\\)+[ \t\n]*:[^=]")
+     ((looking-at ada-label-re)
      (if (ada-in-decl-p)
+          ;; ada-block-label-re matches variable declarations
          (ada-indent-on-previous-lines nil orgpoint orgpoint)
        (append (ada-indent-on-previous-lines nil orgpoint orgpoint)
                '(ada-label-indent))))
@@ -2674,9 +2688,10 @@ if INITIAL-POS is non-nil, moves point to INITIAL-POS before calculation."
    (if (ada-in-paramlist-p)
        (ada-get-indent-paramlist)
-      ;; move to beginning of current statement
+      ;; Move to beginning of current statement. If already at a
+      ;; statement start, move to beginning of enclosing statement.
      (unless nomove
-        (ada-goto-stmt-start))
+        (ada-goto-stmt-start t))
      ;; no beginning found => don't change indentation
      (if (and (eq oldpoint (point))
@@ -2702,6 +2717,12 @@ if INITIAL-POS is non-nil, moves point to INITIAL-POS before calculation."
         ((looking-at ada-block-start-re)
          (ada-get-indent-block-start orgpoint))
         ;;
+         ((looking-at ada-block-label-re) ; also variable declaration
+          (ada-get-indent-block-label orgpoint))
+         ;;
+         ((looking-at ada-goto-label-re)
+          (ada-get-indent-goto-label orgpoint))
+         ;;
         ((looking-at "\\(sub\\)?type\\>")
          (ada-get-indent-type orgpoint))
         ;;
@@ -2717,17 +2738,8 @@ if INITIAL-POS is non-nil, moves point to INITIAL-POS before calculation."
         ((looking-at "when\\>")
          (ada-get-indent-when orgpoint))
         ;;
-         ((looking-at "\\(\\sw\\|_\\)+[ \t\n]*:[^=]")
-          (ada-get-indent-label orgpoint))
-         ;;
         ((looking-at "separate\\>")
          (ada-get-indent-nochange))
-         ;; A label
-         ((looking-at "<<")
-          (list (+ (save-excursion (back-to-indentation) (point))
-                   (- ada-label-indent))))
         ;;
         ((looking-at "with\\>\\|use\\>")
          ;;  Are we still in that statement, or are we in fact looking at
@@ -2835,7 +2847,7 @@ ORGPOINT is the limit position used in the calculation."
              (if (looking-at "\\<begin\\>")
                  (progn
                    (setq indent (list (point) 0))
-                    (if (ada-goto-matching-decl-start t)
+                    (if (ada-goto-decl-start t)
                        (list (progn (back-to-indentation) (point)) 0)
                      indent))
                (list (progn (back-to-indentation) (point)) 0)
@@ -2960,6 +2972,10 @@ ORGPOINT is the limit position used in the calculation."
                (car (ada-search-ignore-string-comment "\\<type\\>" t)))
              'ada-indent)))
+     ;; Special case for label:
+     ((looking-at ada-block-label-re)
+      (list (- (save-excursion (back-to-indentation) (point)) ada-label-indent) 'ada-indent))
     ;; nothing follows the block-start
     (t
      (list (save-excursion (back-to-indentation) (point)) 'ada-indent)))))
@@ -3055,10 +3071,10 @@ ORGPOINT is the limit position used in the calculation."
        (list (save-excursion (back-to-indentation) (point))
              'ada-broken-decl-indent))
-       ;;  This one is called in every over case when indenting a line at the
+       ;;  This one is called in every other case when indenting a line at the
       ;;  top level
       (t
-        (if (looking-at ada-named-block-re)
+        (if (looking-at (concat "[ \t]*" ada-block-label-re))
            (setq label (- ada-label-indent))
          (let (p)
@@ -3087,7 +3103,7 @@ ORGPOINT is the limit position used in the calculation."
          (list (+ (save-excursion (back-to-indentation) (point)) label)
                'ada-broken-indent)))))))
-(defun ada-get-indent-label (orgpoint)
+(defun ada-get-indent-block-label (orgpoint)
  "Calculate the indentation when before a label or variable declaration.
 ORGPOINT is the limit position used in the calculation."
  (let ((match-cons nil)
@@ -3119,6 +3135,16 @@ ORGPOINT is the limit position used in the calculation."
     (t
      (list cur-indent '(- ada-label-indent))))))
+(defun ada-get-indent-goto-label (orgpoint)
+  "Calculate the indentation when at a goto label."
+  (search-forward ">>")
+  (ada-goto-next-non-ws)
+  (if (>= (point) orgpoint)
+      ;; labeled statement is the one we need to indent
+      (list (- (point) ada-label-indent))
+    ;; else indentation is indent for labeled statement
+    (ada-indent-on-previous-lines t orgpoint)))
 (defun ada-get-indent-loop (orgpoint)
  "Calculate the indentation when just before a loop or a for ... use.
 ORGPOINT is the limit position used in the calculation."
@@ -3127,8 +3153,8 @@ ORGPOINT is the limit position used in the calculation."
        ;; If looking at a named block, skip the label
        (label (save-excursion
-                 (beginning-of-line)
+                 (back-to-indentation)
-                 (if (looking-at ada-named-block-re)
+                 (if (looking-at ada-block-label-re)
                     (- ada-label-indent)
                   0))))
@@ -3286,7 +3312,7 @@ ORGPOINT is the limit position used in the calculation."
 ;; -- searching and matching
 ;; -----------------------------------------------------------
-(defun ada-goto-stmt-start ()
+(defun ada-goto-stmt-start (&optional ignore-goto-label)
  "Move point to the beginning of the statement that point is in or after.
 Return the new position of point.
 As a special case, if we are looking at a closing parenthesis, skip to the
@@ -3304,7 +3330,7 @@ open parenthesis."
          (progn
            (unless (save-excursion
                      (goto-char (cdr match-dat))
-                      (ada-goto-next-non-ws orgpoint))
+                      (ada-goto-next-non-ws orgpoint ignore-goto-label))
              ;;
              ;; nothing follows => it's the end-statement directly in
              ;;                    front of point => search again
@@ -3326,7 +3352,7 @@ open parenthesis."
        (goto-char (point-min))
        ;;
        ;; skip to the very first statement, if there is one
-          ;;
+        ;;
        (unless (ada-goto-next-non-ws orgpoint)
          (goto-char orgpoint))))
    (point)))
@@ -3387,19 +3413,25 @@ is the end of the match."
        match-dat
      nil)))
+(defun ada-goto-next-non-ws (&optional limit skip-goto-label)
-(defun ada-goto-next-non-ws (&optional limit)
+  "Skip to next non-whitespace character.
-  "Skip white spaces, newlines and comments to next non-ws character.
+Skips spaces, newlines and comments, and possibly goto labels.
+Return `point' if moved, nil if not.
 Stop the search at LIMIT.
 Do not call this function from within a string."
  (unless limit
    (setq limit (point-max)))
  (while (and (<= (point) limit)
-              (progn (forward-comment 10000)
+              (or (progn (forward-comment 10000)
-                     (if (and (not (eobp))
+                         (if (and (not (eobp))
-                              (save-excursion (forward-char 1)
+                                  (save-excursion (forward-char 1)
-                                              (ada-in-string-p)))
+                                                  (ada-in-string-p)))
-                         (progn (forward-sexp 1) t)))))
+                             (progn (forward-sexp 1) t)))
+                  (and skip-goto-label
+                       (looking-at ada-goto-label-re)
+                       (progn
+                         (goto-char (match-end 0))
+                         t)))))
  (if (< (point) limit)
      (point)
    nil)
@@ -3426,9 +3458,7 @@ Return the new position of point or nil if not found."
    (unless backward
      (skip-syntax-forward "w"))
    (if (setq match-cons
-             (if backward
+              (ada-search-ignore-string-comment "\\w" backward nil t))
-                 (ada-search-ignore-string-comment "\\w" t nil t)
-               (ada-search-ignore-string-comment "\\w" nil nil t)))
        ;;
        ;; move to the beginning of the word found
        ;;
@@ -3463,13 +3493,13 @@ Moves point to the beginning of the declaration."
  (if (save-excursion
        (ada-goto-previous-word)
        (looking-at (concat "\\<" defun-name "\\> *:")))
-      t                                 ; do nothing
+      t                                 ; name matches
    ;; else
    ;;
    ;; 'accept' or 'package' ?
    ;;
    (unless (looking-at ada-subprog-start-re)
-      (ada-goto-matching-decl-start))
+      (ada-goto-decl-start))
    ;;
    ;; 'begin' of 'procedure'/'function'/'task' or 'declare'
    ;;
@@ -3502,14 +3532,20 @@ Moves point to the beginning of the declaration."
               (buffer-substring (point)
                                 (progn (forward-sexp 1) (point))))))))
-(defun ada-goto-matching-decl-start (&optional noerror recursive)
+(defun ada-goto-decl-start (&optional noerror)
-  "Move point to the matching declaration start of the current 'begin'.
+  "Move point to the declaration start of the current construct.
-If NOERROR is non-nil, it only returns nil if no match was found."
+If NOERROR is non-nil, return nil if no match was found;
+otherwise throw error."
  (let ((nest-count 1)
+        (regexp (eval-when-compile
+                  (concat "\\<"
+                          (regexp-opt
+                           '("is" "separate" "end" "declare" "if" "new" "begin" "generic" "when") t)
+                          "\\>")))
        ;;  first should be set to t if we should stop at the first
        ;;  "begin" we encounter.
-        (first (not recursive))
+        (first t)
        (count-generic nil)
        (stop-at-when nil)
        )
@@ -3533,7 +3569,7 @@ If NOERROR is non-nil, it only returns nil if no match was found."
    ;; search backward for interesting keywords
    (while (and
            (not (zerop nest-count))
-            (ada-search-ignore-string-comment ada-matching-decl-start-re t))
+            (ada-search-ignore-string-comment regexp t))
      ;;
      ;; calculate nest-depth
      ;;
@@ -3566,7 +3602,6 @@ If NOERROR is non-nil, it only returns nil if no match was found."
                  (if (looking-at "end")
                      (ada-goto-matching-start 1 noerror t)
-                    ;; (ada-goto-matching-decl-start noerror t)
                    (setq loop-again nil)
                    (unless (looking-at "begin")
@@ -3594,34 +3629,50 @@ If NOERROR is non-nil, it only returns nil if no match was found."
        (setq first t))
       ;;
       ((looking-at "is")
-        ;; check if it is only a type definition, but not a protected
+        ;; look for things to ignore
-        ;; type definition, which should be handled like a procedure.
+        (if
-        (if (or (looking-at "is[ \t]+<>")
+            (or
-                (save-excursion
+             ;; generic formal parameter
-                  (forward-comment -10000)
+             (looking-at "is[ t]+<>")
-                  (forward-char -1)
+             ;; A type definition, or a case statement.  Note that the
-                  ;; Detect if we have a closing parenthesis (Could be
+             ;; goto-matching-start above on 'end record' leaves us at
-                  ;; either the end of subprogram parameters or (<>)
+             ;; 'record', not at 'type'.
-                  ;; in a type definition
+             ;;
-                  (if (= (char-after) ?\))
+             ;; We get to a case statement here by calling
-                      (progn
+             ;; 'ada-move-to-end' from inside a case statement; then
-                        (forward-char 1)
+             ;; we are not ignoring 'when'.
-                        (backward-sexp 1)
+             (save-excursion
-                        (forward-comment -10000)
+               ;; Skip type discriminants or case argument function call param list
-                        ))
+               (forward-comment -10000)
-                  (skip-chars-backward "a-zA-Z0-9_.'")
+               (forward-char -1)
-                  (ada-goto-previous-word)
+               (if (= (char-after) ?\))
-                  (and
+                   (progn
-                   (looking-at "\\<\\(sub\\)?type\\|case\\>")
+                     (forward-char 1)
+                     (backward-sexp 1)
+                     (forward-comment -10000)
+                     ))
+               ;; skip type or case argument name
+               (skip-chars-backward "a-zA-Z0-9_.'")
+               (ada-goto-previous-word)
+               (and
+                ;; if it's a protected type, it's the decl start we
+                ;; are looking for; since we didn't see the 'end'
+                ;; above, we are inside it.
+                (looking-at "\\<\\(sub\\)?type\\|case\\>")
                   (save-match-data
                     (ada-goto-previous-word)
                     (not (looking-at "\\<protected\\>"))))
-                  ))                    ; end of `or'
+               )                    ; end of type definition p
-            (goto-char (match-beginning 0))
-          (progn
+             ;; null procedure declaration
-            (setq nest-count (1- nest-count))
+             (save-excursion (ada-goto-next-word) (looking-at "\\<null\\>"))
-            (setq first nil))))
+             );; end or
+            ;; skip this construct
+            nil
+          ;; this is the right "is"
+          (setq nest-count (1- nest-count))
+          (setq first nil)))
       ;;
       ((looking-at "new")
@@ -4076,7 +4127,7 @@ Point is moved at the beginning of the SEARCH-RE."
 Assumes point to be at the end of a statement."
  (or (ada-in-paramlist-p)
      (save-excursion
-        (ada-goto-matching-decl-start t))))
+        (ada-goto-decl-start t))))
 (defun ada-looking-at-semi-or ()
@@ -4370,7 +4421,7 @@ of the region.  Otherwise, operate only on the current line."
                  ;;
                  ada-move-to-declaration
                  (looking-at "\\<begin\\>")
-                  (ada-goto-matching-decl-start)
+                  (ada-goto-decl-start)
                  (setq pos (point))))
            )                           ; end of save-excursion
@@ -4382,7 +4433,7 @@ of the region.  Otherwise, operate only on the current line."
      (set-syntax-table previous-syntax-table))))
 (defun ada-move-to-end ()
-  "Move point to the matching end of the block around point.
+  "Move point to the end of the block around point.
 Moves to 'begin' if in a declarative part."
  (interactive)
  (let ((pos (point))
@@ -4432,7 +4483,7 @@ Moves to 'begin' if in a declarative part."
              (ada-goto-matching-end 0))
             ;; package start
             ((save-excursion
-                (setq decl-start (and (ada-goto-matching-decl-start t) (point)))
+                (setq decl-start (and (ada-goto-decl-start t) (point)))
                (and decl-start (looking-at "\\<package\\>")))
              (ada-goto-matching-end 1))
diff --git a/lisp/progmodes/cc-defs.el b/lisp/progmodes/cc-defs.el
index de0cd896b8e..bb91dee6ce8 100644
--- a/lisp/progmodes/cc-defs.el
+++ b/lisp/progmodes/cc-defs.el
@@ -1217,12 +1217,14 @@ been put there by c-put-char-property.  POINT remains unchanged."
  ;; This macro does a hidden buffer change.
  `(progn
     (c-put-char-property ,beg 'category 'c-cpp-delimiter)
-     (c-put-char-property ,end 'category 'c-cpp-delimiter)))
+     (if (< ,end (point-max))
+         (c-put-char-property ,end 'category 'c-cpp-delimiter))))
 (defmacro c-clear-cpp-delimiters (beg end)
  ;; This macro does a hidden buffer change.
  `(progn
     (c-clear-char-property ,beg 'category)
-     (c-clear-char-property ,end 'category)))
+     (if (< ,end (point-max))
+         (c-clear-char-property ,end 'category))))
 (defsubst c-comment-out-cpps ()
  ;; Render all preprocessor constructs syntactically commented out.
diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index 0e6358aeee1..9d0af1d53ce 100644
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -2996,9 +2996,11 @@ comment at the start of cc-engine.el for more info."
  ;; containing point.  We can then call `c-invalidate-state-cache-1' without
  ;; worrying further about macros and template delimiters.
  (c-with-<->-as-parens-suppressed
-   (if c-state-old-cpp-beg
+   (if (and c-state-old-cpp-beg
+            (< c-state-old-cpp-beg here))
       (c-with-all-but-one-cpps-commented-out
-        c-state-old-cpp-beg c-state-old-cpp-end
+        c-state-old-cpp-beg
+        (min c-state-old-cpp-end here)
        (c-invalidate-state-cache-1 here))
     (c-with-cpps-commented-out
      (c-invalidate-state-cache-1 here)))))
@@ -3029,8 +3031,9 @@ comment at the start of cc-engine.el for more info."
              (c-parse-state-1))
           (c-with-cpps-commented-out
            (c-parse-state-1))))
-      (setq c-state-old-cpp-beg here-cpp-beg
+      (setq c-state-old-cpp-beg (and here-cpp-beg (copy-marker here-cpp-beg t))
-            c-state-old-cpp-end here-cpp-end))))
+            c-state-old-cpp-end (and here-cpp-end (copy-marker here-cpp-end t)))
+      )))
 ;; Debug tool to catch cache inconsistencies.  This is called from
 ;; 000tests.el.
diff --git a/lisp/term.el b/lisp/term.el
index a619ed6ad66..7cb364af622 100644
--- a/lisp/term.el
+++ b/lisp/term.el
@@ -1208,8 +1208,17 @@ without any interpretation."
 (defun term-send-raw-meta ()
  (interactive)
-  (let* ((keys (this-command-keys))
+  (let ((char last-input-event))
-         (char (aref keys (1- (length keys)))))
+    (when (symbolp last-input-event)
+      ;; Convert `return' to C-m, etc.
+      (let ((tmp (get char 'event-symbol-elements)))
+        (when tmp
+          (setq char (car tmp)))
+        (when (symbolp char)
+          (setq tmp (get char 'ascii-character))
+          (when tmp
+            (setq char tmp)))))
+    (setq char (event-basic-type char))
    (term-send-raw-string (if (and (numberp char)
                                   (> char 127)
                                   (< char 256))
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el
index 21be4ee85d0..3208ece9c09 100644
--- a/lisp/term/x-win.el
+++ b/lisp/term/x-win.el
@@ -133,9 +133,9 @@ When a session manager tells Emacs that the window system is shutting
 down, this function is called.  It calls the functions in the hook
 `emacs-save-session-functions'.  Functions are called with the current
 buffer set to a temporary buffer.  Functions should use `insert' to insert
-lisp code to save the session state.  The buffer is saved
+lisp code to save the session state.  The buffer is saved in a file in the
-in a file in the home directory of the user running Emacs.  The file
+home directory of the user running Emacs.  The file is evaluated when
-is evaluated when Emacs is restarted by the session manager.
+Emacs is restarted by the session manager.
 If any of the functions returns non-nil, no more functions are called
 and this function returns non-nil.  This will inform the session manager
@@ -1286,7 +1286,7 @@ The value nil is the same as this list:
 ")
 ;; Get a selection value of type TYPE by calling x-get-selection with
-;; an appropiate DATA-TYPE argument decided by `x-select-request-type'.
+;; an appropriate DATA-TYPE argument decided by `x-select-request-type'.
 ;; The return value is already decoded.  If x-get-selection causes an
 ;; error, this function return nil.
@@ -1425,7 +1425,7 @@ The value nil is the same as this list:
 (declare-function accelerate-menu "xmenu.c" (&optional frame) t)
 (defun x-menu-bar-open (&optional frame)
-  "Open the menu bar if `menu-bar-mode' is on. otherwise call `tmm-menubar'."
+  "Open the menu bar if `menu-bar-mode' is on, otherwise call `tmm-menubar'."
  (interactive "i")
  (if (and menu-bar-mode
           (fboundp 'accelerate-menu))
@@ -1482,7 +1482,7 @@ The value nil is the same as this list:
  ;; Create the standard fontset.
  (condition-case err
        (create-fontset-from-fontset-spec standard-fontset-spec t)
-    (error (display-warning 
+    (error (display-warning
            'initialization
            (format "Creation of the standard fontset failed: %s" err)
            :error)))
@@ -1654,7 +1654,7 @@ A value that begins with n: denotes a named icon instead of a stock icon."
  :group 'x)
 (defcustom icon-map-list '(x-gtk-stock-map)
-  "A list of alists that maps icon file names to stock/named icons.
+  "A list of alists that map icon file names to stock/named icons.
 The alists are searched in the order they appear.  The first match is used.
 The keys in the alists are file names without extension and with two directory
 components.  For example, to map /usr/share/emacs/22.1.1/etc/images/open.xpm
diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index 137f358970c..e1d7b053491 100644
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -870,7 +870,7 @@ EXIT-FN is, if non-nil, a function that is called after filling
  is done.  Arguments and return values for this funcion are
  described below.
 DRAW-HOW defines the kind of shape.  The kinds of shapes are:
-  `artist-do-continously'  -- Do drawing operation continously,
+  `artist-do-continously'  -- Do drawing operation continuously,
                              as long as the mouse button is held down.
  `artist-do-poly'         -- Do drawing operation many times.
  1                        -- Do drawing operation only once.
@@ -3879,8 +3879,8 @@ The 2-point shape SHAPE is drawn from X1, Y1 to X2, Y2."
 ;;
 (defun artist-key-undraw-continously (x y)
-  "Undraw current continous shape with point at X, Y."
+  "Undraw current continuous shape with point at X, Y."
-  ;; No undraw-info for continous shapes
+  ;; No undraw-info for continuous shapes
  nil)
 (defun artist-key-undraw-poly (x y)
@@ -3937,7 +3937,7 @@ The 2-point shape SHAPE is drawn from X1, Y1 to X2, Y2."
 ;; user has released the button, so the timer will always be cancelled
 ;; at that point.
 (defun artist-key-draw-continously (x y)
-  "Draw current continous shape at X,Y."
+  "Draw current continuous shape at X,Y."
  (let ((draw-fn   (artist-go-get-draw-fn-from-symbol artist-curr-go)))
    (setq artist-key-shape (artist-funcall draw-fn x y))))
@@ -4018,7 +4018,7 @@ Trimming here means removing white space at end of a line."
 ;;
 (defun artist-key-do-continously-continously (x y)
-  "Update current continous shape at X,Y."
+  "Update current continuous shape at X,Y."
  (let ((draw-fn   (artist-go-get-draw-fn-from-symbol artist-curr-go)))
    (artist-funcall draw-fn x y)))
@@ -4045,7 +4045,7 @@ Trimming here means removing white space at end of a line."
 (defun artist-key-do-continously-1point (x y)
  "Update current 1-point shape at X,Y."
-  ;; Nothing to do continously for operations
+  ;; Nothing to do continuously for operations
  ;; where we have only one input point
  nil)
@@ -4094,8 +4094,8 @@ Trimming here means removing white space at end of a line."
 (defun artist-key-set-point-continously (x y)
-  "Set point for current continous shape at X,Y."
+  "Set point for current continuous shape at X,Y."
-  ;; Maybe set arrow-points for continous shapes
+  ;; Maybe set arrow-points for continuous shapes
  (let ((arrow-pred   (artist-go-get-arrow-pred-from-symbol artist-curr-go))
        (arrow-set-fn (artist-go-get-arrow-set-fn-from-symbol artist-curr-go))
        (init-fn      (artist-go-get-init-fn-from-symbol artist-curr-go))
@@ -4914,7 +4914,7 @@ If optional argument STATE is positive, turn borders on."
 (defun artist-mouse-draw-continously (ev)
  "Generic function for shapes that require 1 point as input.
-Operation is done continously while the mouse button is hold down.
+Operation is done continuously while the mouse button is hold down.
 The event, EV, is the mouse event."
  (let* ((unshifted    (artist-go-get-symbol-shift artist-curr-go nil))
         (shifted      (artist-go-get-symbol-shift artist-curr-go t))
@@ -5395,8 +5395,8 @@ The event, EV, is the mouse event."
 ;; 1.   If your new drawing mode falls into one of the following
 ;;      categories, goto point 2, otherwise goto point 3.
 ;;
-;;         - Modes where the shapes are drawn continously, as long as
+;;         - Modes where the shapes are drawn continuously, as long as
-;;           the mouse button is held down (continous modes).
+;;           the mouse button is held down (continuous modes).
 ;;           Example: the erase-char mode, the pen and pen-line modes.
 ;;
 ;;         - Modes where the shape is made up of from 2 points to an
@@ -5408,7 +5408,7 @@ The event, EV, is the mouse event."
 ;;           Example: lines, rectangles
 ;;
 ;;         - Modes where the shape is made up of 1 point (1-point
-;;           modes). This mode differs from the continous modes in
+;;           modes). This mode differs from the continuous modes in
 ;;           that the shape is drawn only once when the mouse button
 ;;           is pressed.
 ;;           Examples: paste, a flood-fill, vaporize modes
@@ -5426,7 +5426,7 @@ The event, EV, is the mouse event."
 ;;    For each of the cases below, the arguments given to the init-fn,
 ;;    prep-fill-fn, arrow-set-fn and exit-fn are stated.
 ;;
-;;    If your mode matches the continous mode or the 1-point mode:
+;;    If your mode matches the continuous mode or the 1-point mode:
 ;;
 ;;      a. Create a draw-function that draws your shape. Your function
 ;;         must take x and y as arguments. The return value is not
@@ -5528,7 +5528,7 @@ The event, EV, is the mouse event."
 ;;         See `artist-draw-rect' for an example.
 ;;
 ;;         You must call the init-fn, the prep-fill-fn, arrow-set-fn
-;;         and the exit-fn at the apropriate points.
+;;         and the exit-fn at the appropriate points.
 ;;
 ;;         When artist-mouse-draw-xxx ends, the shape for your mode
 ;;         must be completely drawn.
@@ -5538,8 +5538,8 @@ The event, EV, is the mouse event."
 ;;         - artist-key-set-point-xxx for setting a point in the
 ;;           mode, to be called from `artist-key-set-point-common'.
 ;;
-;;         - artist-key-do-continously-xxx to be called from
+;;         - artist-key-do-continuously-xxx to be called from
-;;           `artist-key-do-continously-common' whenever the user
+;;           `artist-key-do-continuously-common' whenever the user
 ;;           moves around.
 ;;
 ;;         As for the artist-mouse-draw-xxx, these two functions must
@@ -5561,7 +5561,7 @@ The event, EV, is the mouse event."
 ;;         work.
 ;;
 ;;         You must call the init-fn, the prep-fill-fn, arrow-set-fn
-;;         and the exit-fn at the apropriate points.
+;;         and the exit-fn at the appropriate points.
 ;;
 ;;      e. Add your new mode to the master table, `artist-mt'.
 ;;
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 996734637bc..b9d52acdeba 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -608,11 +608,7 @@ Uses `sgml-char-names'."
  "Insert a symbolic character name according to `sgml-char-names'."
  (interactive "*")
  (if sgml-name-8bit-mode
-      (let ((mc last-command-event))
+      (sgml-name-char last-command-event)
-        (if (< mc 256)
-            (setq mc (unibyte-char-to-multibyte mc)))
-        (or mc (setq mc last-command-event))
-        (sgml-name-char mc))
    (self-insert-command 1)))
 (defun sgml-name-8bit-mode ()
diff --git a/lisp/vc-dir.el b/lisp/vc-dir.el
index 575a64c1f80..2f661e8becf 100644
--- a/lisp/vc-dir.el
+++ b/lisp/vc-dir.el
@@ -874,7 +874,10 @@ If it is a file, return the corresponding cons for the file itself."
            (let ((ddir default-directory))
              (when (vc-string-prefix-p ddir file)
                (if (file-directory-p file)
-                    (vc-dir-resync-directory-files file)
+                    (progn
+                      (vc-dir-resync-directory-files file)
+                      (ewoc-set-hf vc-ewoc
+                                   (vc-dir-headers vc-dir-backend default-directory) ""))
                  (let ((state (vc-dir-recompute-file-state file ddir)))
                    (vc-dir-update
                     (list state)
diff --git a/lisp/vc-dispatcher.el b/lisp/vc-dispatcher.el
index 310cc3dc351..40223c9010d 100644
--- a/lisp/vc-dispatcher.el
+++ b/lisp/vc-dispatcher.el
@@ -320,11 +320,14 @@ case, and the process object in the asynchronous case."
          (setq squeezed (nconc squeezed files)))
        (let ((exec-path (append vc-path exec-path))
              ;; Add vc-path to PATH for the execution of this command.
+              ;; Also, since some functions need to parse the output
+              ;; from external commands, set LC_MESSAGES to C.
              (process-environment
               (cons (concat "PATH=" (getenv "PATH")
                             path-separator
                             (mapconcat 'identity vc-path path-separator))
-                     process-environment))
+                     (cons "LC_MESSAGES=C"
+                           process-environment)))
              (w32-quote-process-args t))
          (if (eq okstatus 'async)
              ;; Run asynchronously.
diff --git a/lisp/vc.el b/lisp/vc.el
index 3a0cf804e26..2ca36ef4e01 100644
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -791,13 +791,23 @@ in their implementation of vc-BACKEND-diff.")
 (defmacro with-vc-properties (files form settings)
  "Execute FORM, then maybe set per-file properties for FILES.
+If any of FILES is actually a directory, then do the same for all
+buffers for files in that directory.
 SETTINGS is an association list of property/value pairs.  After
 executing FORM, set those properties from SETTINGS that have not yet
 been updated to their corresponding values."
  (declare (debug t))
-  `(let ((vc-touched-properties (list t)))
+  `(let ((vc-touched-properties (list t))
-     ,form
+         (flist nil))
     (dolist (file ,files)
+       (if (file-directory-p file)
+           (dolist (buffer (buffer-list))
+             (let ((fname (buffer-file-name buffer)))
+               (when (and fname (vc-string-prefix-p file fname))
+                 (push fname flist))))
+         (push file flist)))
+     ,form
+     (dolist (file flist)
       (dolist (setting ,settings)
         (let ((property (car setting)))
           (unless (memq property vc-touched-properties)
diff --git a/lisp/whitespace.el b/lisp/whitespace.el
index fbdc6d120a0..183698a28f3 100644
--- a/lisp/whitespace.el
+++ b/lisp/whitespace.el
@@ -397,14 +397,14 @@ It's a list containing some or all of the following values:
   spaces               SPACEs and HARD SPACEs are visualized via
                        faces.
-   lines                lines whose have columns beyond
+   lines                lines which have columns beyond
                        `whitespace-line-column' are highlighted via
-                        faces .
+                        faces.
                        Whole line is highlighted.
                        It has precedence over `lines-tail' (see
                        below).
-   lines-tail           lines whose have columns beyond
+   lines-tail           lines which have columns beyond
                        `whitespace-line-column' are highlighted via
                        faces.
                        But only the part of line which goes
@@ -462,7 +462,7 @@ Any other value is ignored.
 If nil, don't visualize TABs, (HARD) SPACEs and NEWLINEs via faces and
 via display table.
-There is an evaluation order for some values, if some values are
+There is an evaluation order for some values, if they are
 included in `whitespace-style' list.  For example, if
 indentation, indentation::tab and/or indentation::space are
 included in `whitespace-style' list.  The evaluation order for
@@ -1134,7 +1134,7 @@ otherwise, turn off visualization.
 Use `global-whitespace-newline-mode' only for NEWLINE
 visualization exclusively.  For other visualizations, including
 NEWLINE visualization together with (HARD) SPACEs and/or TABs,
-please, use `global-whitespace-mode'.
+please use `global-whitespace-mode'.
 See also `whitespace-newline' and `whitespace-display-mappings'."
  :lighter    " NL"
@@ -2046,7 +2046,7 @@ See also `whitespace-toggle-option-alist'."
        ((quit error)
         (whitespace-help-off)
         (error (error-message-string data)))))
-    (list sym)))                        ; return the apropriate symbol
+    (list sym)))                        ; return the appropriate symbol
 (defun whitespace-toggle-list (local-p arg the-list)
diff --git a/src/ChangeLog b/src/ChangeLog
index e1d2ba440ab..5589b7f34a2 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,38 @@
+2010-01-22  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
+        * lisp.h (make_pure_string): String pointer arg now points to const.
+        * alloc.c (find_string_data_in_pure, make_pure_string): String pointer
+        args now point to const.
+2010-01-22  Eli Zaretskii  <eliz@gnu.org>
+        * lread.c (Fload): Don't treat files without .elc extension as
+        byte-compiled if they are ``magic'', i.e. `openp' returned -2 for
+        them.  (bug#5303)
+2010-01-20  Kenichi Handa  <handa@m17n.org>
+        * coding.c (consume_chars): If ! multibyte and the encoder is ccl,
+        treat the source as actual byte sequence.
+2010-01-19  Alan Mackenzie  <acm@muc.de>
+        Fix spurious before-change-functions invocation from (insert ?\n).
+        * textprop.c (set_text_properties): rename parameter
+        `signal_after_change_p' to `coherent_change_p', and make the
+        invocation of `modify_region' conditional on it.
+2010-01-19  Jan Djärv  <jan.h.d@swipnet.se>
+        * xsettings.c (apply_xft_settings): Save settings in Vxft_settings
+        for debug purpose.
+        (syms_of_xsettings): Declare xft-settings.
+2010-01-18  Chong Yidong  <cyd@stupidchicken.com>
+        * editfns.c (Fcurrent_time_string): Doc fix (Bug#5408).
 2010-01-16  Stefan Monnier  <monnier@iro.umontreal.ca>
        * xterm.c (event_handler_gdk): Block input (Bug#5037).
diff --git a/src/alloc.c b/src/alloc.c
index 3c48f8762f8..9a935cc8952 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -4725,11 +4725,11 @@ check_pure_size ()
 static char *
 find_string_data_in_pure (data, nbytes)
-     char *data;
+     const char *data;
     int nbytes;
 {
  int i, skip, bm_skip[256], last_char_skip, infinity, start, start_max;
-  unsigned char *p;
+  const unsigned char *p;
  char *non_lisp_beg;
  if (pure_bytes_used_non_lisp < nbytes + 1)
@@ -4740,7 +4740,7 @@ find_string_data_in_pure (data, nbytes)
  for (i = 0; i < 256; i++)
    bm_skip[i] = skip;
-  p = (unsigned char *) data;
+  p = (const unsigned char *) data;
  while (--skip > 0)
    bm_skip[*p++] = skip;
@@ -4754,7 +4754,7 @@ find_string_data_in_pure (data, nbytes)
  infinity = pure_bytes_used_non_lisp + 1;
  bm_skip['\0'] = infinity;
-  p = (unsigned char *) non_lisp_beg + nbytes;
+  p = (const unsigned char *) non_lisp_beg + nbytes;
  start = 0;
  do
    {
@@ -4796,7 +4796,7 @@ find_string_data_in_pure (data, nbytes)
 Lisp_Object
 make_pure_string (data, nchars, nbytes, multibyte)
-     char *data;
+     const char *data;
     int nchars, nbytes;
     int multibyte;
 {
diff --git a/src/atimer.h b/src/atimer.h
index 5ea1197e66d..fd354caf54d 100644
--- a/src/atimer.h
+++ b/src/atimer.h
@@ -43,7 +43,7 @@ enum atimer_type
  /* Timer is ripe at now plus an offset.  */
  ATIMER_RELATIVE,
-  /* Timer runs continously.  */
+  /* Timer runs continuously.  */
  ATIMER_CONTINUOUS
 };
diff --git a/src/coding.c b/src/coding.c
index b3a51eb0c4c..935d32e6a58 100644
--- a/src/coding.c
+++ b/src/coding.c
@@ -7417,7 +7417,8 @@ consume_chars (coding, translation_table, max_lookup)
        {
          EMACS_INT bytes;
-          if (coding->encoder == encode_coding_raw_text)
+          if (coding->encoder == encode_coding_raw_text
+              || coding->encoder == encode_coding_ccl)
            c = *src++, pos++;
          else if ((bytes = MULTIBYTE_LENGTH (src, src_end)) > 0)
            c = STRING_CHAR_ADVANCE_NO_UNIFY (src), pos += bytes;
diff --git a/src/editfns.c b/src/editfns.c
index 00ac0ca0fa9..093f141bff2 100644
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -1897,7 +1897,7 @@ usage: (encode-time SECOND MINUTE HOUR DAY MONTH YEAR &optional ZONE)  */)
 }
 DEFUN ("current-time-string", Fcurrent_time_string, Scurrent_time_string, 0, 1, 0,
-       doc: /* Return the current time, as a human-readable string.
+       doc: /* Return the current local time, as a human-readable string.
 Programs can use this function to decode a time,
 since the number of columns in each field is fixed
 if the year is in the range 1000-9999.
diff --git a/src/lisp.h b/src/lisp.h
index 5ea0303976d..7032a3f48f4 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2686,7 +2686,7 @@ extern Lisp_Object make_uninit_multibyte_string P_ ((int, int));
 extern Lisp_Object make_string_from_bytes P_ ((const char *, int, int));
 extern Lisp_Object make_specified_string P_ ((const char *, int, int, int));
 EXFUN (Fpurecopy, 1);
-extern Lisp_Object make_pure_string P_ ((char *, int, int, int));
+extern Lisp_Object make_pure_string P_ ((const char *, int, int, int));
 extern Lisp_Object make_pure_c_string (const char *data);
 extern Lisp_Object pure_cons P_ ((Lisp_Object, Lisp_Object));
 extern Lisp_Object make_pure_vector P_ ((EMACS_INT));
diff --git a/src/lread.c b/src/lread.c
index db425b82299..ba9d5378104 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -1155,7 +1155,7 @@ Return t if the file exists and loads successfully.  */)
  if (!bcmp (SDATA (found) + SBYTES (found) - 4,
             ".elc", 4)
-      || (version = safe_to_load_p (fd)) > 0)
+      || (fd >= 0 && (version = safe_to_load_p (fd)) > 0))
    /* Load .elc files directly, but not when they are
       remote and have no handler!  */
    {
diff --git a/src/textprop.c b/src/textprop.c
index fee73321deb..83d09cce558 100644
--- a/src/textprop.c
+++ b/src/textprop.c
@@ -1346,13 +1346,15 @@ the designated part of OBJECT.  */)
 /* Replace properties of text from START to END with new list of
   properties PROPERTIES.  OBJECT is the buffer or string containing
   the text.  OBJECT nil means use the current buffer.
-   SIGNAL_AFTER_CHANGE_P nil means don't signal after changes.  Value
+   COHERENT_CHANGE_P nil means this is being called as an internal
-   is nil if the function _detected_ that it did not replace any
+   subroutine, rather than as a change primitive with checking of
-   properties, non-nil otherwise.  */
+   read-only, invoking change hooks, etc..  Value is nil if the
+   function _detected_ that it did not replace any properties, non-nil
+   otherwise.  */
 Lisp_Object
-set_text_properties (start, end, properties, object, signal_after_change_p)
+set_text_properties (start, end, properties, object, coherent_change_p)
-     Lisp_Object start, end, properties, object, signal_after_change_p;
+     Lisp_Object start, end, properties, object, coherent_change_p;
 {
  register INTERVAL i;
  Lisp_Object ostart, oend;
@@ -1397,12 +1399,12 @@ set_text_properties (start, end, properties, object, signal_after_change_p)
        return Qnil;
    }
-  if (BUFFERP (object))
+  if (BUFFERP (object) && !NILP (coherent_change_p))
    modify_region (XBUFFER (object), XINT (start), XINT (end), 1);
  set_text_properties_1 (start, end, properties, object, i);
-  if (BUFFERP (object) && !NILP (signal_after_change_p))
+  if (BUFFERP (object) && !NILP (coherent_change_p))
    signal_after_change (XINT (start), XINT (end) - XINT (start),
                         XINT (end) - XINT (start));
  return Qt;
diff --git a/src/xsettings.c b/src/xsettings.c
index 3e673129d4c..945007db2f0 100644
--- a/src/xsettings.c
+++ b/src/xsettings.c
@@ -42,6 +42,8 @@ static char *current_mono_font;
 static struct x_display_info *first_dpyinfo;
 static Lisp_Object Qfont_name, Qfont_render;
 static int use_system_font;
+static Lisp_Object Vxft_settings;
 #ifdef HAVE_GCONF
 static GConfClient *gconf_client;
@@ -406,12 +408,13 @@ apply_xft_settings (dpyinfo, send_event_p)
  FcPattern *pat;
  struct xsettings settings, oldsettings;
  int changed = 0;
+  char buf[256];
  if (!read_xft_settings (dpyinfo, &settings))
    return;
  memset (&oldsettings, 0, sizeof (oldsettings));
+  buf[0] = '\0';
  pat = FcPatternCreate ();
  XftDefaultSubstitute (dpyinfo->display,
                        XScreenNumberOfScreen (dpyinfo->screen),
@@ -428,20 +431,30 @@ apply_xft_settings (dpyinfo, send_event_p)
      FcPatternDel (pat, FC_ANTIALIAS);
      FcPatternAddBool (pat, FC_ANTIALIAS, settings.aa);
      ++changed;
+      oldsettings.aa = settings.aa;
    }
+  sprintf (buf, "Antialias: %d", oldsettings.aa);
  if ((settings.seen & SEEN_HINTING) != 0
      && oldsettings.hinting != settings.hinting)
    {
      FcPatternDel (pat, FC_HINTING);
      FcPatternAddBool (pat, FC_HINTING, settings.hinting);
      ++changed;
+      oldsettings.hinting = settings.hinting;
    }
+  if (strlen (buf) > 0) strcat (buf, ", ");
+  sprintf (buf+strlen (buf), "Hinting: %d", oldsettings.hinting);
  if ((settings.seen & SEEN_RGBA) != 0 && oldsettings.rgba != settings.rgba)
    {
      FcPatternDel (pat, FC_RGBA);
      FcPatternAddInteger (pat, FC_RGBA, settings.rgba);
+      oldsettings.rgba = settings.rgba;
      ++changed;
    }
+  if (strlen (buf) > 0) strcat (buf, ", ");
+  sprintf (buf+strlen (buf), "RGBA: %d", oldsettings.rgba);
  /* Older fontconfig versions don't have FC_LCD_FILTER. */
  if ((settings.seen & SEEN_LCDFILTER) != 0
      && oldsettings.lcdfilter != settings.lcdfilter)
@@ -449,14 +462,22 @@ apply_xft_settings (dpyinfo, send_event_p)
      FcPatternDel (pat, FC_LCD_FILTER);
      FcPatternAddInteger (pat, FC_LCD_FILTER, settings.lcdfilter);
      ++changed;
+      oldsettings.lcdfilter = settings.lcdfilter;
    }
+  if (strlen (buf) > 0) strcat (buf, ", ");
+  sprintf (buf+strlen (buf), "LCDFilter: %d", oldsettings.lcdfilter);
  if ((settings.seen & SEEN_HINTSTYLE) != 0
      && oldsettings.hintstyle != settings.hintstyle)
    {
      FcPatternDel (pat, FC_HINT_STYLE);
      FcPatternAddInteger (pat, FC_HINT_STYLE, settings.hintstyle);
      ++changed;
+      oldsettings.hintstyle = settings.hintstyle;
    }
+  if (strlen (buf) > 0) strcat (buf, ", ");
+  sprintf (buf+strlen (buf), "Hintstyle: %d", oldsettings.hintstyle);
  if ((settings.seen & SEEN_DPI) != 0 && oldsettings.dpi != settings.dpi
      && settings.dpi > 0)
    {
@@ -465,7 +486,8 @@ apply_xft_settings (dpyinfo, send_event_p)
      FcPatternDel (pat, FC_DPI);
      FcPatternAddDouble (pat, FC_DPI, settings.dpi);
      ++changed;
+      oldsettings.dpi = settings.dpi;
+      
      /* Change the DPI on this display and all frames on the display.  */
      dpyinfo->resy = dpyinfo->resx = settings.dpi;
      FOR_EACH_FRAME (tail, frame)
@@ -474,12 +496,16 @@ apply_xft_settings (dpyinfo, send_event_p)
          XFRAME (frame)->resy = XFRAME (frame)->resx = settings.dpi;
    }
+  if (strlen (buf) > 0) strcat (buf, ", ");
+  sprintf (buf+strlen (buf), "DPI: %lf", oldsettings.dpi);
  if (changed)
    {
      XftDefaultSet (dpyinfo->display, pat);
      if (send_event_p)
        store_font_changed_event (Qfont_render,
                                  XCAR (dpyinfo->name_list_element));
+      Vxft_settings = make_string (buf, strlen (buf));
    }
  else
    FcPatternDestroy (pat);
@@ -638,6 +664,10 @@ syms_of_xsettings ()
    doc: /* *Non-nil means to use the system defined font.  */);
  use_system_font = 0;
+  DEFVAR_LISP ("xft-settings", &Vxft_settings,
+               doc: /* Font settings applied to Xft.  */);
+  Vxft_settings = make_string ("", 0);
 #ifdef HAVE_XFT
  Fprovide (intern_c_string ("font-render-setting"), Qnil);
 #ifdef HAVE_GCONF
diff --git a/test/ChangeLog b/test/ChangeLog
index e52559399e5..e17adc0bfc7 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,3 +1,10 @@
+2010-01-18  Juanma Barranquero  <lekktu@gmail.com>
+        * cedet/semantic-tests.el (semanticdb-test-gnu-global)
+        (semantic-lex-test-full-depth, semantic-symref-test-count-hits-in-tag):
+        Fix typos in docstrings and error messages.
+        (semanticdb-ebrowse-run-tests): Fix typos in error messages.
 2010-01-14  Juanma Barranquero  <lekktu@gmail.com>
        * cedet/cedet-utests.el (cedet-utest-log-shutdown, pulse-test):
diff --git a/test/cedet/semantic-tests.el b/test/cedet/semantic-tests.el
index b21b451691b..6d13be1d5d2 100644
--- a/test/cedet/semantic-tests.el
+++ b/test/cedet/semantic-tests.el
@@ -58,7 +58,7 @@ All systems are different.  Ask questions along the way."
  (when (not (or (eq major-mode 'c-mode)
                 (eq major-mode 'c++-mode)))
    (error "Please make your default buffer be a C or C++ file, then
-run the test again..")))
+run the test again")))
 (defun semanticdb-ebrowse-dump ()
  "Find the first loaded ebrowse table, and dump out the contents."
@@ -83,7 +83,7 @@ run the test again..")))
 (defun semanticdb-test-gnu-global (searchfor &optional standardfile)
  "Test the GNU Global semanticdb.
 Argument SEARCHFOR is the text to search for.
-If optional arg STANDARDFILE is non nil, use a standard file w/ global enabled."
+If optional arg STANDARDFILE is non-nil, use a standard file w/ global enabled."
  (interactive "sSearch For Tag: \nP")
  (require 'data-debug)
@@ -235,7 +235,7 @@ Optional argument ARG specifies not to use color."
 (defun semantic-lex-test-full-depth (arg)
  "Test the semantic lexer in the current buffer parsing through lists.
-Usually the lexer parses
+Usually the lexer parses.
 If universal argument ARG, then try the whole buffer."
  (interactive "P")
  (let* ((start (current-time))
@@ -309,7 +309,7 @@ Analyze the area between BEG and END."
 (defun semantic-symref-test-count-hits-in-tag ()
  "Lookup in the current tag the symbol under point.
-the count all the other references to the same symbol within the
+Then count all the other references to the same symbol within the
 tag that contains point, and return that."
  (interactive)
  (let* ((ctxt (semantic-analyze-current-context))
@@ -323,7 +323,7 @@ tag that contains point, and return that."
       (semantic-tag-start tag)
       (semantic-tag-end tag))
      (when (interactive-p)
-        (message "Found %d occurances of %s in %.2f seconds"
+        (message "Found %d occurrences of %s in %.2f seconds"
                 Lcount (semantic-tag-name target)
                 (semantic-elapsed-time start (current-time))))
      Lcount)))