Fix typos.

diff --git a/ChangeLog b/ChangeLog
index bce682d5d88e5069e75fbbda0efacafdba68194b..34039b3860c7d1abcc22da0c6ce6ac4cd0241e02 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -2393,7 +2393,7 @@
 
        * BUGS: Use new binding of view-emacs-problems.
 
 
        * BUGS: Use new binding of view-emacs-problems.
 

-2009-05-04   Simon Leinen  <simon.leinen@switch.ch>  (tiny change)
+2009-05-04  Simon Leinen  <simon.leinen@switch.ch>  (tiny change)

 
        * Makefile.in (install-arch-dep): Avoid using $$(..) construct,
        for Solaris compatibility.
 
        * Makefile.in (install-arch-dep): Avoid using $$(..) construct,
        for Solaris compatibility.

diff --git a/admin/ChangeLog b/admin/ChangeLog
index fc3370bb380eb8957a5707235a7615d5ed181d40..40a6df09c315f8446dfc1fb403c49a44fdcce4e4 100644 (file)
--- a/admin/ChangeLog
+++ b/admin/ChangeLog
@@ -1,3 +1,7 @@
+2011-11-15  Juanma Barranquero  <lekktu@gmail.com>
+
+       * make-emacs: Fix typo.
+

 2011-11-07  Juanma Barranquero  <lekktu@gmail.com>
 
        * unidata/makefile.w32-in (clean): Remove bidimirror.h and biditype.h.
 2011-11-07  Juanma Barranquero  <lekktu@gmail.com>
 
        * unidata/makefile.w32-in (clean): Remove bidimirror.h and biditype.h.

diff --git a/admin/make-emacs b/admin/make-emacs
index b21dcad5f37382df990ac4359bfe3323828a063c..d231f66b03bc37ad435b07656a085b46ebab69c8 100755 (executable)
--- a/admin/make-emacs
+++ b/admin/make-emacs
@@ -72,7 +72,7 @@ Build Emacs.
  --gprof               make Emacs for profiling
  --union-type          define USE_LISP_UNION_TYPE (bad for GDB)
  --malloc-check                define GC_MALLOC_CHECK
  --gprof               make Emacs for profiling
  --union-type          define USE_LISP_UNION_TYPE (bad for GDB)
  --malloc-check                define GC_MALLOC_CHECK

- --no-mcheck           dont define GC_MCHECK
+ --no-mcheck           don't define GC_MCHECK

  --wall                        compile with -Wall
  --gcc3                        use GCC 3.0 (30% slower compilation, slower code)
  --trace-selection     print traces in xselect.c
  --wall                        compile with -Wall
  --gcc3                        use GCC 3.0 (30% slower compilation, slower code)
  --trace-selection     print traces in xselect.c

diff --git a/configure.in b/configure.in
index 5067aac3d1dc13b192a4841a6073560544caa084..bf41b26b62135d6ba0704243587f435d4260105b 100644 (file)
--- a/configure.in
+++ b/configure.in
@@ -1593,7 +1593,7 @@ case "${window_system}" in
       athena | lucid ) USE_X_TOOLKIT=LUCID ;;
       motif ) USE_X_TOOLKIT=MOTIF ;;
       gtk ) with_gtk=yes
       athena | lucid ) USE_X_TOOLKIT=LUCID ;;
       motif ) USE_X_TOOLKIT=MOTIF ;;
       gtk ) with_gtk=yes

-dnl Dont set this for GTK.  A lot of tests below assumes Xt when
+dnl Don't set this for GTK.  A lot of tests below assumes Xt when

 dnl USE_X_TOOLKIT is set.
             USE_X_TOOLKIT=none ;;
       gtk3 ) with_gtk3=yes
 dnl USE_X_TOOLKIT is set.
             USE_X_TOOLKIT=none ;;
       gtk3 ) with_gtk3=yes

diff --git a/doc/lispref/two-volume-cross-refs.txt b/doc/lispref/two-volume-cross-refs.txt
index 99b48d342ab39e5bdf2eee2e18e3940be63067cd..53a9f58cd01dc7e9cf3a1398781064d4123389d1 100644 (file)
--- a/doc/lispref/two-volume-cross-refs.txt
+++ b/doc/lispref/two-volume-cross-refs.txt
@@ -87,7 +87,7 @@ to create             elisp2-aux-vol-added
 insert elisp2-aux-vol-added into vol1.aux  (append)
 insert elisp1-aux-vol-added into vol2.aux  (prepend)
 
 insert elisp2-aux-vol-added into vol1.aux  (append)
 insert elisp1-aux-vol-added into vol2.aux  (prepend)
 

-(so you dont have to do it again)
+(so you don't have to do it again)

 % cp vol1.aux elisp1-aux-ready
 % cp vol2.aux elisp2-aux-ready
 
 % cp vol1.aux elisp1-aux-ready
 % cp vol2.aux elisp2-aux-ready
 


@@ -120,7 +120,7 @@ Be sure that .fn file has no blank lines.
 % texindex vol1.fn
 % texindex vol2.fn
 
 % texindex vol1.fn
 % texindex vol2.fn
 

-(so you dont have to do it again)
+(so you don't have to do it again)

 % cp vol1.fns elisp1-fns-2vol-ready
 % cp vol2.fns elisp2-fns-2vol-ready
 
 % cp vol1.fns elisp1-fns-2vol-ready
 % cp vol2.fns elisp2-fns-2vol-ready
 

diff --git a/doc/man/ChangeLog b/doc/man/ChangeLog
index b9175ce51ea669507e35e6a5a10a55957d0cdd60..b53b81e52f24275c9982077b724f53a92ea74e09 100644 (file)
--- a/doc/man/ChangeLog
+++ b/doc/man/ChangeLog
@@ -18,7 +18,7 @@
 
        * Version 23.3 released.
 
 
        * Version 23.3 released.
 

-2011-01-02  Jari Aalto  <jari.aalto@cante.net>  (tiny change)
+2011-01-02  Jari Aalto  <jari.aalto@cante.net>

 
        * emacsclient.1: Arrange options alphabetically (Bug#7620).
 
 
        * emacsclient.1: Arrange options alphabetically (Bug#7620).
 

diff --git a/doc/misc/ChangeLog b/doc/misc/ChangeLog
index 10e62b7d25f6b43c177cc0a3ceaee39d524c9d0c..84333be4a5bd1f3b95d58da27baccb92ad8dc248 100644 (file)
--- a/doc/misc/ChangeLog
+++ b/doc/misc/ChangeLog
@@ -1,11 +1,13 @@
 2011-11-15  Juanma Barranquero  <lekktu@gmail.com>
 
 2011-11-15  Juanma Barranquero  <lekktu@gmail.com>
 

-       * ede.texi (project-am-texinfo): Fix typo.
+       * ede.texi (project-am-texinfo):
+       * gnus.texi (Sending or Not Sending):
+       * org.texi (Template elements): Fix typos.

 
 2011-11-14  Juanma Barranquero  <lekktu@gmail.com>
 
        * ediff.texi (Hooks):
 
 2011-11-14  Juanma Barranquero  <lekktu@gmail.com>
 
        * ediff.texi (Hooks):

-       * sem-user.texi (Semanticdb Roots): Fix typo.
+       * sem-user.texi (Semanticdb Roots): Fix typos.

 
 2011-11-11  Juanma Barranquero  <lekktu@gmail.com>
 
 
 2011-11-11  Juanma Barranquero  <lekktu@gmail.com>
 

diff --git a/doc/misc/gnus.texi b/doc/misc/gnus.texi
index 03c457d519a77c95a2936c0a47d8bf0142e5b4c6..7c3328b9d77ce1bf20c97adc32c3b209d333fcc9 100644 (file)
--- a/doc/misc/gnus.texi
+++ b/doc/misc/gnus.texi
@@ -18105,7 +18105,7 @@ mail sending with @code{nndiary}:
 @itemize @bullet
 @item
 @code{nndiary} is a @emph{real} mail back end.  You really send real diary
 @itemize @bullet
 @item
 @code{nndiary} is a @emph{real} mail back end.  You really send real diary

-messsages for real.  This means for instance that you can give
+messages for real.  This means for instance that you can give

 appointments to anybody (provided they use Gnus and @code{nndiary}) by
 sending the diary message to them as well.
 @item
 appointments to anybody (provided they use Gnus and @code{nndiary}) by
 sending the diary message to them as well.
 @item

diff --git a/doc/misc/org.texi b/doc/misc/org.texi
index f690576417ac0fd157f50fa086b42faaff1e2654..955d1b55f410c1237072948cac362cd337d38ca7 100644 (file)
--- a/doc/misc/org.texi
+++ b/doc/misc/org.texi
@@ -6393,7 +6393,7 @@ like this:
 @node Template elements, Template expansion, Capture templates, Capture templates
 @subsubsection Template elements
 
 @node Template elements, Template expansion, Capture templates, Capture templates
 @subsubsection Template elements
 

-Now lets look at the elements of a template definition.  Each entry in
+Now let's look at the elements of a template definition.  Each entry in

 @code{org-capture-templates} is a list with the following items:
 
 @table @var
 @code{org-capture-templates} is a list with the following items:
 
 @table @var

diff --git a/leim/ChangeLog b/leim/ChangeLog
index 6130bf5780033d3a8aa239b13944ccfe0edc4870..ed6546554f0020c24bbd8f287974a1a38251b5f6 100644 (file)
--- a/leim/ChangeLog
+++ b/leim/ChangeLog
@@ -251,7 +251,7 @@
        * quail/hangul.el (hangul-im-keymap): Add binding of key
        Hangul_Hanja.
 
        * quail/hangul.el (hangul-im-keymap): Add binding of key
        Hangul_Hanja.
 

-2009-05-04   Simon Leinen  <simon.leinen@switch.ch>  (tiny change)
+2009-05-04  Simon Leinen  <simon.leinen@switch.ch>  (tiny change)

 
        * Makefile.in (install): Avoid using $$(..) construct, for Solaris
        compatibility.
 
        * Makefile.in (install): Avoid using $$(..) construct, for Solaris
        compatibility.

diff --git a/leim/quail/tibetan.el b/leim/quail/tibetan.el
index e1a95d193c88cad759577987df2e79d5c39a6b5d..3b6e14c459b268ff30320e6cc190a7847a722b4e 100644 (file)
--- a/leim/quail/tibetan.el
+++ b/leim/quail/tibetan.el
@@ -427,7 +427,7 @@
 
     1. Vowel 'a' should be typed explicitly by the key 'A'.
        This is really inconvenient. But to make the coding
 
     1. Vowel 'a' should be typed explicitly by the key 'A'.
        This is really inconvenient. But to make the coding

-       scheme clear, it is desirable to have an explicite
+       scheme clear, it is desirable to have an explicit

        vowel sign for 'a'.
     2. Tsheg is assigned to SPC key. You can input a space
        by typing '>'.
        vowel sign for 'a'.
     2. Tsheg is assigned to SPC key. You can input a space
        by typing '>'.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 91724c54e8487126a3a71dfa4076b4c24e24b0ef..9b76ce5e22e0b2073b7515f530a4641307151f77 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,16 @@
+2011-11-15  Juanma Barranquero  <lekktu@gmail.com>
+
+       * allout.el (allout-encryption-plaintext-sanitization-regexps):
+       * frame.el (display-mm-dimensions-alist):
+       * outline.el (outline-mode-menu-bar-map, outline-move-subtree-up)
+       (outline-move-subtree-down):
+       * net/newst-treeview.el (newsticker--treeview-do-get-node-of-feed)
+       (newsticker--treeview-do-get-node):
+       * net/quickurl.el (quickurl-list-buffer-name):
+       * progmodes/dcl-mode.el (dcl-mode):
+       * progmodes/gdb-mi.el (gdb-mapcar*):
+       * progmodes/sql.el (sql-mode-oracle-font-lock-keywords): Fix typos.
+

 2011-11-15  Glenn Morris  <rgm@gnu.org>
 
        * mail/rmail.el (rmail-file-coding-system): It's only ever used
 2011-11-15  Glenn Morris  <rgm@gnu.org>
 
        * mail/rmail.el (rmail-file-coding-system): It's only ever used


@@ -491,7 +504,7 @@
 2011-10-26  Michael Albinus  <michael.albinus@gmx.de>
 
        * ido.el (ido-file-name-all-completions-1): Do not require
 2011-10-26  Michael Albinus  <michael.albinus@gmx.de>
 
        * ido.el (ido-file-name-all-completions-1): Do not require

-       tramp.el explicitely.  (Bug#7583)
+       tramp.el explicitly.  (Bug#7583)

 
 2011-10-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 
 
 2011-10-26  Stefan Monnier  <monnier@iro.umontreal.ca>
 

diff --git a/lisp/ChangeLog.10 b/lisp/ChangeLog.10
index e0846012697bd56d312cf549ffbe88e8cad1f1cd..36c3d68e96f5b57614a97e40553ebdffc107063b 100644 (file)
--- a/lisp/ChangeLog.10
+++ b/lisp/ChangeLog.10
@@ -3318,7 +3318,7 @@
        ada-prj.el are now defined in this package, which makes it easier to
        edit menus.
        (ada-narrow-to-defun): Add support for `narrow-to-region'.
        ada-prj.el are now defined in this package, which makes it easier to
        edit menus.
        (ada-narrow-to-defun): Add support for `narrow-to-region'.

-       No longer explicitely load ada-xref.el and ada-prj.el.  Use autoload
+       No longer explicitly load ada-xref.el and ada-prj.el.  Use autoload

        statements instead.
 
        * progmodes/ada-xref.el (ada-gnatls-args): New variable.
        statements instead.
 
        * progmodes/ada-xref.el (ada-gnatls-args): New variable.

diff --git a/lisp/ChangeLog.12 b/lisp/ChangeLog.12
index 2cb3d27d6948b7b7f2c9ac6a02fe795564976322..ab7d25632d87ea6b6ec6c36ecf2369e59e4ffc7f 100644 (file)
--- a/lisp/ChangeLog.12
+++ b/lisp/ChangeLog.12
@@ -764,7 +764,7 @@
        Fix calls to get-buffer-window to find windows in other frames.
        Reported by David Hansen <david.hansen@gmx.net>.
 
        Fix calls to get-buffer-window to find windows in other frames.
        Reported by David Hansen <david.hansen@gmx.net>.
 

-2007-03-27   Kevin Ryde  <user42@zip.com.au>
+2007-03-27  Kevin Ryde  <user42@zip.com.au>

 
        * info.el (Info-display-images-node): On a text-only terminal,
        show the "text" or "alt" parts of the image blobs.
 
        * info.el (Info-display-images-node): On a text-only terminal,
        show the "text" or "alt" parts of the image blobs.

diff --git a/lisp/ChangeLog.13 b/lisp/ChangeLog.13
index d1cc345e158d5e7807628a5b7f0846e68f759569..429ff173fd44a10f66de760e90180685413b3c0f 100644 (file)
--- a/lisp/ChangeLog.13
+++ b/lisp/ChangeLog.13
@@ -11855,7 +11855,7 @@
        (org-agenda-files): Ignore non-existing files.
        (org-agenda-skip-unavailable-files): New variable.
        (org-ellipsis): All a face as value.
        (org-agenda-files): Ignore non-existing files.
        (org-agenda-skip-unavailable-files): New variable.
        (org-ellipsis): All a face as value.

-       (org-mode): Interprete the face value of `org-ellipsis'.
+       (org-mode): Interpret the face value of `org-ellipsis'.

        (org-archive-save-context-info): New option.
        (org-archive-subtree): Store context info in archived entry.
        (org-fast-tag-selection-can-set-todo-state): New variable.
        (org-archive-save-context-info): New option.
        (org-archive-subtree): Store context info in archived entry.
        (org-fast-tag-selection-can-set-todo-state): New variable.


@@ -11890,7 +11890,7 @@
        (org-set-regexps-and-options): Use `org-remove-keyword-keys'.
        (org-remove-keyword-keys): New function.
 
        (org-set-regexps-and-options): Use `org-remove-keyword-keys'.
        (org-remove-keyword-keys): New function.
 

-2007-08-30  Jari Aalto  <jari.aalto@cante.net>  (tiny change)
+2007-08-30  Jari Aalto  <jari.aalto@cante.net>

 
        * progmodes/grep.el (grep-find-ignored-directories):
        Add monotone _MTN bookkeeping directory in workspaces.
 
        * progmodes/grep.el (grep-find-ignored-directories):
        Add monotone _MTN bookkeeping directory in workspaces.

diff --git a/lisp/ChangeLog.14 b/lisp/ChangeLog.14
index e904c1f64b94fea5508691f60f604f1970718357..a7e9d5fbaaaf9f1bccabce342898cb239cbe625b 100644 (file)
--- a/lisp/ChangeLog.14
+++ b/lisp/ChangeLog.14
@@ -6724,7 +6724,7 @@
        (rx-check-any): Return result as a list.  Don't convert chars to
        strings.  Don't prepend "\\" to "^".  Don't search for close bracket.
        Check char category string.  Call rx-form instead of rx-to-string.
        (rx-check-any): Return result as a list.  Don't convert chars to
        strings.  Don't prepend "\\" to "^".  Don't search for close bracket.
        Check char category string.  Call rx-form instead of rx-to-string.

-       (rx-any): Rebuid to complete the function.
+       (rx-any): Rebuild to complete the function.

        (rx-check-not): Fix char category regexp pattern string.
        Call rx-form instead of rx-to-string.
        (rx-not): Call rx-form instead of rx-to-string.  Convert "[^]" to
        (rx-check-not): Fix char category regexp pattern string.
        Call rx-form instead of rx-to-string.
        (rx-not): Call rx-form instead of rx-to-string.  Convert "[^]" to

diff --git a/lisp/ChangeLog.15 b/lisp/ChangeLog.15
index e51e10df6a55aceb8be49c1715800a093877d381..9b4dddc076d311b4add545765502eebc91cf129d 100644 (file)
--- a/lisp/ChangeLog.15
+++ b/lisp/ChangeLog.15
@@ -3058,7 +3058,7 @@
        * net/tramp-sh.el (tramp-sh-handle-start-file-process):
        Protect buffer-modified value.  (Bug#7557)
 
        * net/tramp-sh.el (tramp-sh-handle-start-file-process):
        Protect buffer-modified value.  (Bug#7557)
 

-2010-12-13   Jan Moringen  <jmoringe@techfak.uni-bielefeld.de>
+2010-12-13  Jan Moringen  <jmoringe@techfak.uni-bielefeld.de>

 
        * log-edit.el (log-edit-changelog-entries):
        Regexp quote filename.  (Bug#7505)
 
        * log-edit.el (log-edit-changelog-entries):
        Regexp quote filename.  (Bug#7505)


@@ -12985,7 +12985,7 @@
        file has no read permissions for the owner, there might be
        problems otherwise.  Reported by Ole Laursen <olau@iola.dk>.
 
        file has no read permissions for the owner, there might be
        problems otherwise.  Reported by Ole Laursen <olau@iola.dk>.
 

-22010-02-18  Glenn Morris  <rgm@gnu.org>
+2010-02-18  Glenn Morris  <rgm@gnu.org>

 
        * emacs-lisp/authors.el (authors-renamed-files-alist):
        Add entries for INSTALL.CVS.
 
        * emacs-lisp/authors.el (authors-renamed-files-alist):
        Add entries for INSTALL.CVS.


@@ -13597,7 +13597,7 @@
        * textmodes/artist.el (artist-compute-popup-menu-table):
        Remove duplicated words in doc-strings.
 
        * textmodes/artist.el (artist-compute-popup-menu-table):
        Remove duplicated words in doc-strings.
 

-2010-01-15   David Abrahams  <dave@boostpro.com>  (tiny change)
+2010-01-15  David Abrahams  <dave@boostpro.com>  (tiny change)

 
        * net/mairix.el (mairix-widget-send-query): Send -1 instead of nil
        to mairix-search to suppress threading (Bug#5342).
 
        * net/mairix.el (mairix-widget-send-query): Send -1 instead of nil
        to mairix-search to suppress threading (Bug#5342).

diff --git a/lisp/ChangeLog.5 b/lisp/ChangeLog.5
index 5e261722cb178f57667beecffaadf323870ab5e4..28d8e7260388b9485f98b2fab337bcd51872e48d 100644 (file)
--- a/lisp/ChangeLog.5
+++ b/lisp/ChangeLog.5
@@ -879,7 +879,7 @@
        * ada-mode.el (initial comments): Copyright 1995; don't speak
        about setup; correct history for a file that actually IS in
        Emacs 19.29; update list of known bugs.
        * ada-mode.el (initial comments): Copyright 1995; don't speak
        about setup; correct history for a file that actually IS in
        Emacs 19.29; update list of known bugs.

-       (all functions): Initialize all local variables explicitely to 'nil'.
+       (all functions): Initialize all local variables explicitly to 'nil'.

        (ada-font-lock-keywords): Initialized according to new user option
        `font-lock-maximum-decoration'.
 
        (ada-font-lock-keywords): Initialized according to new user option
        `font-lock-maximum-decoration'.
 

diff --git a/lisp/ChangeLog.7 b/lisp/ChangeLog.7
index e9723e04a27c9dfebcd8ec20e529ddbbe932384e..35204641fb1362becfc96444b6fe32fa7f5ac046 100644 (file)
--- a/lisp/ChangeLog.7
+++ b/lisp/ChangeLog.7
@@ -6815,9 +6815,9 @@
        `reftex-no-include-regexps'.
        (reftex-no-include-regexps): New option.
        (reftex-do-parse): Initialize appendix flag.
        `reftex-no-include-regexps'.
        (reftex-no-include-regexps): New option.
        (reftex-do-parse): Initialize appendix flag.

-       (reftex-parse-from-file): Interprete appendix.
+       (reftex-parse-from-file): Interpret appendix.

        (reftex-section-info): Use changed version of reftex-section-number.
        (reftex-section-info): Use changed version of reftex-section-number.

-       (reftex-where-am-I): Interprete appendix match.
+       (reftex-where-am-I): Interpret appendix match.

        (reftex-init-section-numbers): New arg: appendix.
        (reftex-section-number): Treat appendix enumeration.
        (reftex-toc-external): Improved message.
        (reftex-init-section-numbers): New arg: appendix.
        (reftex-section-number): Treat appendix enumeration.
        (reftex-toc-external): Improved message.


@@ -11240,7 +11240,7 @@
        (reftex-cite-comment-format): New variable.
        (reftex-cite-punctuation): New variable.
        (reftex-make-master-buffer): Changed name of master buffer,
        (reftex-cite-comment-format): New variable.
        (reftex-cite-punctuation): New variable.
        (reftex-make-master-buffer): Changed name of master buffer,

-       removed interactive.  Runs a hook on the buffer.  Interprete
+       removed interactive.  Runs a hook on the buffer.  Interpret

        TEXINPUTS environment variable.  Allow naked argument for \input.
        Master buffer is now in fundamental mode.
        (reftex-access-scan-info): Name of master buffer changed.
        TEXINPUTS environment variable.  Allow naked argument for \input.
        Master buffer is now in fundamental mode.
        (reftex-access-scan-info): Name of master buffer changed.


@@ -11264,9 +11264,9 @@
        (reftex-allow-for-ctrl-m): New function.
        (reftex-label-info-update): Allow more general label commands.
        (reftex-label-info): New parameter derive.
        (reftex-allow-for-ctrl-m): New function.
        (reftex-label-info-update): Allow more general label commands.
        (reftex-label-info): New parameter derive.

-       (reftex-short-context): Interprete integer parse as nth arg of macro.
+       (reftex-short-context): Interpret integer parse as nth arg of macro.

        (reftex-nth-parens-substring): New function.
        (reftex-nth-parens-substring): New function.

-       (reftex-select-item): Interprete the new 'cnt text property.
+       (reftex-select-item): Interpret the new 'cnt text property.

        (reftex-pop-to-label): Allow more general label commands.
        (reftex-nicify-text): Allow more general label commands.
        (reftex-toc): Remember previous window configuration.  Use text
        (reftex-pop-to-label): Allow more general label commands.
        (reftex-nicify-text): Allow more general label commands.
        (reftex-toc): Remember previous window configuration.  Use text

diff --git a/lisp/ChangeLog.8 b/lisp/ChangeLog.8
index 33970b9555886fcf10c8088d90a60988fe7dd28e..36427d79ae8970d59cce4d60272b27d1af837a5f 100644 (file)
--- a/lisp/ChangeLog.8
+++ b/lisp/ChangeLog.8
@@ -3475,8 +3475,8 @@
        (reftex-process-string): Preserve default directory.
        (reftex-label-alist-builtin): Changed prefixes of endnote and footnote.
        Also the magic words.
        (reftex-process-string): Preserve default directory.
        (reftex-label-alist-builtin): Changed prefixes of endnote and footnote.
        Also the magic words.

-       (reftex-reference): Interprete new option `reftex-fref-is-default'.
-       (reftex-replace-prefix-escapes): Interprete new `%S' format.
+       (reftex-reference): Interpret new option `reftex-fref-is-default'.
+       (reftex-replace-prefix-escapes): Interpret new `%S' format.

        (reftex-toc-mouse-view-line): Command removed (had no binding).
        (reftex-everything-regexp): New function.
        (reftex-nearest-match): Made better.
        (reftex-toc-mouse-view-line): Command removed (had no binding).
        (reftex-everything-regexp): New function.
        (reftex-nearest-match): Made better.


@@ -9750,11 +9750,11 @@
        * international/mule.el (charset-description): Doc fix.
 
        * language/chinese.el, language/cyrillic.el, language/czech.el,
        * international/mule.el (charset-description): Doc fix.
 
        * language/chinese.el, language/cyrillic.el, language/czech.el,

-       language/devanagari.el, language/ethiopic.el,
-       language/european.el, language/hebrew.el, language/indian.el,
-       language/japanese.el, language/korean.el, language/lao.el,
-       language/slovak.el, language/thai.el, language/tibetan.el,
-       language/vietnamese.el:
+       * language/devanagari.el, language/ethiopic.el,
+       * language/european.el, language/hebrew.el, language/indian.el,
+       * language/japanese.el, language/korean.el, language/lao.el,
+       * language/slovak.el, language/thai.el, language/tibetan.el,
+       * language/vietnamese.el:

        Add coding: local variable, to avoid bootstrapping problem
        if you need to recompile all the Lisp files using interpreted code.
 
        Add coding: local variable, to avoid bootstrapping problem
        if you need to recompile all the Lisp files using interpreted code.
 

diff --git a/lisp/ChangeLog.9 b/lisp/ChangeLog.9
index d25556ce1736fb6236d845fdefe13bd210060958..4fea4a79b6499f852b9aeeed732545fd7c548b28 100644 (file)
--- a/lisp/ChangeLog.9
+++ b/lisp/ChangeLog.9
@@ -2030,7 +2030,7 @@
        Do not bind locally the uniquify-possibly-resolvable flag.  Use the
        cached proposed name is possible.
        (uniquify-get-proposed-name): Arguments changed, callers changed.
        Do not bind locally the uniquify-possibly-resolvable flag.  Use the
        cached proposed name is possible.
        (uniquify-get-proposed-name): Arguments changed, callers changed.

-       (uniquify-rationalize-conflicting-sublist): Explicitely reset the
+       (uniquify-rationalize-conflicting-sublist): Explicitly reset the

        uniquify-possibly-resolvable flag, which is no more bound locally.
        (uniquify-rename-buffer): Do not set the old unrationalised-buffer
        flag, which does not exist any more.
        uniquify-possibly-resolvable flag, which is no more bound locally.
        (uniquify-rename-buffer): Do not set the old unrationalised-buffer
        flag, which does not exist any more.


@@ -17396,7 +17396,7 @@
 
 2000-05-25  Kenichi Handa  <handa@etl.go.jp>
 
 
 2000-05-25  Kenichi Handa  <handa@etl.go.jp>
 

-       * international/mule-conf.el: Specify CHARSET-ID explicitely for
+       * international/mule-conf.el: Specify CHARSET-ID explicitly for

        private charsets.
        (mule-unicode-0100-24ff, japanese-jisx0213-1,
        japanese-jisx0213-2): New charsets.
        private charsets.
        (mule-unicode-0100-24ff, japanese-jisx0213-1,
        japanese-jisx0213-2): New charsets.

diff --git a/lisp/allout.el b/lisp/allout.el
index df2a21ffb2c75c1f523413bfa37994e756f6ddb1..2a4f5cbafbb533028577bf9c00348e5d8d3f6b21 100644 (file)
--- a/lisp/allout.el
+++ b/lisp/allout.el
@@ -1537,7 +1537,7 @@ Entries must be symbols that are bound to the desired values.
 Each value can be a regexp or a list with a regexp followed by a
 substitution string.  If it's just a regexp, all its matches are removed
 before the text is encrypted.  If it's a regexp and a substitution, the
 Each value can be a regexp or a list with a regexp followed by a
 substitution string.  If it's just a regexp, all its matches are removed
 before the text is encrypted.  If it's a regexp and a substitution, the

-substition is used against the regexp matches, a la `replace-match'.")
+substitution is used against the regexp matches, a la `replace-match'.")

 (make-variable-buffer-local 'allout-encryption-text-removal-regexps)
 ;;;_   = allout-encryption-ciphertext-rejection-regexps
 (defvar allout-encryption-ciphertext-rejection-regexps nil
 (make-variable-buffer-local 'allout-encryption-text-removal-regexps)
 ;;;_   = allout-encryption-ciphertext-rejection-regexps
 (defvar allout-encryption-ciphertext-rejection-regexps nil


@@ -3822,7 +3822,7 @@ Nuances:
                        (if (and (not (eobp))
                                 (or (not (bolp))
                                     (and (not (bobp))
                        (if (and (not (eobp))
                                 (or (not (bolp))
                                     (and (not (bobp))

-                                         ;; bolp doesnt detect concealed
+                                         ;; bolp doesn't detect concealed

                                          ;; trailing newlines, compensate:
                                          (save-excursion
                                            (forward-char -1)
                                          ;; trailing newlines, compensate:
                                          (save-excursion
                                            (forward-char -1)

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 55ac412b435f20b599701915e40a1f4340a2e2ac..60a84bdff35bf7fe246e4299e3b0cc28e3d6e23f 100644 (file)
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -124,7 +124,7 @@
 ;;     target integral is not complete (and the time limit has not run out)
 ;;     choose an incomplete integral from the cache and, for every integral
 ;;     appearing in its RHS's, add those integrals to the cache using the
 ;;     target integral is not complete (and the time limit has not run out)
 ;;     choose an incomplete integral from the cache and, for every integral
 ;;     appearing in its RHS's, add those integrals to the cache using the

-;;     same substitition, parts, etc. rules.  The cache should be organized
+;;     same substitution, parts, etc. rules.  The cache should be organized

 ;;     as a priority queue, choosing the "simplest" incomplete integral at
 ;;     each step, or choosing randomly among equally simple integrals.
 ;;     Simplicity equals small size, and few steps removed from the original
 ;;     as a priority queue, choosing the "simplest" incomplete integral at
 ;;     each step, or choosing randomly among equally simple integrals.
 ;;     Simplicity equals small size, and few steps removed from the original


@@ -428,7 +428,7 @@ in normal mode."
   nil
   "If non-nil, use a separate face to indicate selected sub-formulas.
 If `calc-show-selections' is non-nil, then selected sub-formulas are shown
   nil
   "If non-nil, use a separate face to indicate selected sub-formulas.
 If `calc-show-selections' is non-nil, then selected sub-formulas are shown

-by displaying the rest of the formula in `calc-nonselected-face'.  
+by displaying the rest of the formula in `calc-nonselected-face'.

 If `calc-show-selections' is nil, then selected sub-formulas are shown
 by displaying the sub-formula in `calc-selected-face'."
   :group 'calc
 If `calc-show-selections' is nil, then selected sub-formulas are shown
 by displaying the sub-formula in `calc-selected-face'."
   :group 'calc


@@ -446,14 +446,14 @@ by displaying the sub-formula in `calc-selected-face'."
   :group 'calc
   :type '(string))
 
   :group 'calc
   :type '(string))
 

-(defcustom calc-note-threshold "1" 
+(defcustom calc-note-threshold "1"

   "The number of cents that a frequency should be near a note
 to be identified as that note."
   :type 'string
   :group 'calc)
 
 (defface calc-nonselected-face
   "The number of cents that a frequency should be near a note
 to be identified as that note."
   :type 'string
   :group 'calc)
 
 (defface calc-nonselected-face

-  '((t :inherit shadow       
+  '((t :inherit shadow

        :slant italic))
   "Face used to show the non-selected portion of a formula."
   :group 'calc)
        :slant italic))
   "Face used to show the non-selected portion of a formula."
   :group 'calc)

diff --git a/lisp/cedet/ede/emacs.el b/lisp/cedet/ede/emacs.el
index b8759dd06ee27cc9124a7919b9093c28434f5005..c1ca8b69208ddd69f4afa2319946205ed6068a8e 100644 (file)
--- a/lisp/cedet/ede/emacs.el
+++ b/lisp/cedet/ede/emacs.el
@@ -63,7 +63,7 @@ DIR is the directory to search from."
     (if proj
        (ede-up-directory (file-name-directory
                           (oref proj :file)))
     (if proj
        (ede-up-directory (file-name-directory
                           (oref proj :file)))

-      ;; No pre-existing project.  Lets take a wild-guess if we have
+      ;; No pre-existing project.  Let's take a wild-guess if we have

       ;; an Emacs project here.
       (when (string-match "emacs[^/]*" dir)
        (let ((base (substring dir 0 (match-end 0))))
       ;; an Emacs project here.
       (when (string-match "emacs[^/]*" dir)
        (let ((base (substring dir 0 (match-end 0))))


@@ -121,7 +121,7 @@ Return nil if there isn't one.
 Argument DIR is the directory it is created for.
 ROOTPROJ is nil, since there is only one project."
   (or (ede-emacs-file-existing dir)
 Argument DIR is the directory it is created for.
 ROOTPROJ is nil, since there is only one project."
   (or (ede-emacs-file-existing dir)

-      ;; Doesn't already exist, so lets make one.
+      ;; Doesn't already exist, so let's make one.

       (let* ((vertuple (ede-emacs-version dir)))
        (ede-emacs-project (car vertuple)
                           :name (car vertuple)
       (let* ((vertuple (ede-emacs-version dir)))
        (ede-emacs-project (car vertuple)
                           :name (car vertuple)

diff --git a/lisp/cedet/ede/files.el b/lisp/cedet/ede/files.el
index 3d165c390169640d33db43ace8554af4e281d681..6179d3044642254a6641adb79f17f8a7b43112a0 100644 (file)
--- a/lisp/cedet/ede/files.el
+++ b/lisp/cedet/ede/files.el
@@ -101,7 +101,7 @@ of the anchor file for the project."
                 (setq ans SP)
               (ede-find-subproject-for-directory SP dir)))))
        ans)
                 (setq ans SP)
               (ede-find-subproject-for-directory SP dir)))))
        ans)

-    ;; We can use inodes, so lets try it.
+    ;; We can use inodes, so let's try it.

     (let ((ans nil)
          (inode (ede--inode-for-dir dir)))
       (ede-map-subprojects
     (let ((ans nil)
          (inode (ede--inode-for-dir dir)))
       (ede-map-subprojects

diff --git a/lisp/cedet/ede/generic.el b/lisp/cedet/ede/generic.el
index 8cf82d9f29cb4aedf586151eca5d0d146d5c641f..7efe534a640ea420f52f189f8113a9153b7ff5da 100644 (file)
--- a/lisp/cedet/ede/generic.el
+++ b/lisp/cedet/ede/generic.el
@@ -133,7 +133,7 @@
 Return nil if there isn't one.
 Argument DIR is the directory it is created for.
 ROOTPROJ is nil, since there is only one project."
 Return nil if there isn't one.
 Argument DIR is the directory it is created for.
 ROOTPROJ is nil, since there is only one project."

-  ;; Doesn't already exist, so lets make one.
+  ;; Doesn't already exist, so let's make one.

   (let* ((alobj ede-constructing)
         (this nil))
     (when (not alobj) (error "Cannot load generic project without the autoload instance"))
   (let* ((alobj ede-constructing)
         (this nil))
     (when (not alobj) (error "Cannot load generic project without the autoload instance"))

diff --git a/lisp/cedet/ede/linux.el b/lisp/cedet/ede/linux.el
index e11286c710e00316818ad2903fe1c5313fe36996..0ed9c3054ef692868f262cd1f6305f838c25c74f 100644 (file)
--- a/lisp/cedet/ede/linux.el
+++ b/lisp/cedet/ede/linux.el
@@ -62,7 +62,7 @@ DIR is the directory to search from."
     (if proj
        (ede-up-directory (file-name-directory
                           (oref proj :file)))
     (if proj
        (ede-up-directory (file-name-directory
                           (oref proj :file)))

-      ;; No pre-existing project.  Lets take a wild-guess if we have
+      ;; No pre-existing project.  Let's take a wild-guess if we have

       ;; an Linux project here.
       (when (string-match "linux[^/]*" dir)
        (let ((base (substring dir 0 (match-end 0))))
       ;; an Linux project here.
       (when (string-match "linux[^/]*" dir)
        (let ((base (substring dir 0 (match-end 0))))


@@ -101,7 +101,7 @@ Return nil if there isn't one.
 Argument DIR is the directory it is created for.
 ROOTPROJ is nil, since there is only one project."
   (or (ede-linux-file-existing dir)
 Argument DIR is the directory it is created for.
 ROOTPROJ is nil, since there is only one project."
   (or (ede-linux-file-existing dir)

-      ;; Doesn't already exist, so lets make one.
+      ;; Doesn't already exist, so let's make one.

       (ede-linux-project "Linux"
                         :name "Linux"
                         :version (ede-linux-version dir)
       (ede-linux-project "Linux"
                         :name "Linux"
                         :version (ede-linux-version dir)

diff --git a/lisp/cedet/ede/project-am.el b/lisp/cedet/ede/project-am.el
index 216138d0ba8653d7ca9f797fc376f685750a80d7..316309092e78f736b7e85d916f76e21dfc2505b6 100644 (file)
--- a/lisp/cedet/ede/project-am.el
+++ b/lisp/cedet/ede/project-am.el
@@ -659,7 +659,7 @@ Strip out duplicates, and recurse on variables."
       ;; their object still exists!
       ;; FIGURE THIS OUT
       (project-am-expand-subdirlist 'csubprojexpanded csubproj)
       ;; their object still exists!
       ;; FIGURE THIS OUT
       (project-am-expand-subdirlist 'csubprojexpanded csubproj)

-      ;; Ok, now lets look at all our sub-projects.
+      ;; Ok, now let's look at all our sub-projects.

       (mapc (lambda (sp)
              (let* ((subdir (file-name-as-directory
                              (expand-file-name
       (mapc (lambda (sp)
              (let* ((subdir (file-name-as-directory
                              (expand-file-name

diff --git a/lisp/cedet/inversion.el b/lisp/cedet/inversion.el
index 71960ddecd4891c55aa7795bd42983862f08d697..065ac6d05599a8ee96ab2dd5266c87f73039eca4 100644 (file)
--- a/lisp/cedet/inversion.el
+++ b/lisp/cedet/inversion.el
@@ -419,7 +419,7 @@ INSTALLDIR path."
           ;;(message "%S added to `load-path'" default-directory)
           (add-to-list 'load-path default-directory))
        ;; We get to this point iff we do not accept or there is no
           ;;(message "%S added to `load-path'" default-directory)
           (add-to-list 'load-path default-directory))
        ;; We get to this point iff we do not accept or there is no

-       ;; system file.  Lets check the version of what we just
+       ;; system file.  Let's check the version of what we just

        ;; installed... just to be safe.
        (let ((newver (inversion-find-version package)))
          (if (not newver)
        ;; installed... just to be safe.
        (let ((newver (inversion-find-version package)))
          (if (not newver)

diff --git a/lisp/cedet/semantic/analyze.el b/lisp/cedet/semantic/analyze.el
index 525086022d362d8277b56431800a8208033ea062..43e998b852ef0e288ed598b3234b20f3bf56fd77 100644 (file)
--- a/lisp/cedet/semantic/analyze.el
+++ b/lisp/cedet/semantic/analyze.el
@@ -287,7 +287,7 @@ Optional argument THROWSYM specifies a symbol the throw on non-recoverable error
 
     ;; For the middle entries
     (while s
 
     ;; For the middle entries
     (while s

-      ;; Using the tag found in TMP, lets find the tag
+      ;; Using the tag found in TMP, let's find the tag

       ;; representing the full typeographic information of its
       ;; type, and use that to determine the search context for
       ;; (car s)
       ;; representing the full typeographic information of its
       ;; type, and use that to determine the search context for
       ;; (car s)

diff --git a/lisp/cedet/semantic/bovine/el.el b/lisp/cedet/semantic/bovine/el.el
index c19df6aed772efe72032f3258d0d2d7cf8cd380e..1a4e0d9f6bad61952550fb67c00efba839b19290 100644 (file)
--- a/lisp/cedet/semantic/bovine/el.el
+++ b/lisp/cedet/semantic/bovine/el.el
@@ -515,7 +515,7 @@ Optional argument NOSNARF is ignored."
   (let ((d (semantic-tag-docstring tag)))
     (when (not d)
       (cond ((semantic-tag-with-position-p tag)
   (let ((d (semantic-tag-docstring tag)))
     (when (not d)
       (cond ((semantic-tag-with-position-p tag)

-            ;; Doc isn't in the tag itself.  Lets pull it out of the
+            ;; Doc isn't in the tag itself.  Let's pull it out of the

             ;; sources.
             (let ((semantic-elisp-store-documentation-in-tag t))
               (setq tag (with-current-buffer (semantic-tag-buffer tag)
             ;; sources.
             (let ((semantic-elisp-store-documentation-in-tag t))
               (setq tag (with-current-buffer (semantic-tag-buffer tag)

diff --git a/lisp/cedet/semantic/complete.el b/lisp/cedet/semantic/complete.el
index 18c7b5a1a505e4b00a96d52054d155ec71b0148f..f1aee1ef381f5c05a39fef6abe47472488617323 100644 (file)
--- a/lisp/cedet/semantic/complete.el
+++ b/lisp/cedet/semantic/complete.el
@@ -1618,7 +1618,7 @@ Display mechanism using tooltip for a list of possible completions.")
                 (string= (this-command-keys) "\C-i"))
            (oset obj typing-count (1+ typing-count)))
        ;; At this point, we know we have too many items.
                 (string= (this-command-keys) "\C-i"))
            (oset obj typing-count (1+ typing-count)))
        ;; At this point, we know we have too many items.

-       ;; Lets be brave, and truncate l
+       ;; Let's be brave, and truncate l

        (setcdr (nthcdr (oref obj max-tags) l) nil)
        (setq msg (mapconcat 'identity l "\n"))
        (cond
        (setcdr (nthcdr (oref obj max-tags) l) nil)
        (setq msg (mapconcat 'identity l "\n"))
        (cond

diff --git a/lisp/cedet/semantic/ctxt.el b/lisp/cedet/semantic/ctxt.el
index 1108e0198703c7b0e21f172fa52cdbf24e3fcc07..4fef5937bc3337a67645d6c60cf1dc64e27e9dbc 100644 (file)
--- a/lisp/cedet/semantic/ctxt.el
+++ b/lisp/cedet/semantic/ctxt.el
@@ -410,7 +410,7 @@ Depends on `semantic-type-relation-separator-character'."
          ;; Set our end point.
          (setq end (point))
 
          ;; Set our end point.
          (setq end (point))
 

-         ;; Now that we have gotten started, lets do the rest.
+         ;; Now that we have gotten started, let's do the rest.

          (condition-case nil
              (while (save-excursion
                       (forward-char -1)
          (condition-case nil
              (while (save-excursion
                       (forward-char -1)

diff --git a/lisp/cedet/semantic/db-ebrowse.el b/lisp/cedet/semantic/db-ebrowse.el
index d719fde317402bf436ff9be5cea334a53d5e7b6d..fe5f3c193dfe7dc215ca89dc322f02abd6160beb 100644 (file)
--- a/lisp/cedet/semantic/db-ebrowse.el
+++ b/lisp/cedet/semantic/db-ebrowse.el
@@ -219,7 +219,7 @@ warn instead."
 
 ;JAVE this just instantiates a default empty ebrowse struct?
 ; how would new instances wind up here?
 
 ;JAVE this just instantiates a default empty ebrowse struct?
 ; how would new instances wind up here?

-; the ebrowse class isnt singleton, unlike the emacs lisp one
+; the ebrowse class isn't singleton, unlike the emacs lisp one

 (defvar-mode-local c++-mode semanticdb-project-system-databases
   ()
   "Search Ebrowse for symbols.")
 (defvar-mode-local c++-mode semanticdb-project-system-databases
   ()
   "Search Ebrowse for symbols.")


@@ -296,7 +296,7 @@ If there is no database for DIRECTORY available, then
        (when (string= (oref (car dbs) reference-directory) directory)
          (setq found (car dbs))))
       (setq dbs (cdr dbs)))
        (when (string= (oref (car dbs) reference-directory) directory)
          (setq found (car dbs))))
       (setq dbs (cdr dbs)))

-    ;;STATIC means DBE cant be used as object, only as a class
+    ;;STATIC means DBE can't be used as object, only as a class

     (let* ((ebrowse-data (semanticdb-ebrowse-get-ebrowse-structure directory))
           (dat (car (cdr ebrowse-data)))
           (ebd (car dat))
     (let* ((ebrowse-data (semanticdb-ebrowse-get-ebrowse-structure directory))
           (dat (car (cdr ebrowse-data)))
           (ebd (car dat))


@@ -331,7 +331,7 @@ If there is no database for DIRECTORY available, then
 ;JAVE what it actually seems to do is split the original tree in "tables" associated with files
 ; im not sure it actually works:
 ;   the filename slot sometimes gets to be nil,
 ;JAVE what it actually seems to do is split the original tree in "tables" associated with files
 ; im not sure it actually works:
 ;   the filename slot sometimes gets to be nil,

-;      apparently for classes which definition cant be found, yet needs to be included in the tree
+;      apparently for classes which definition can't be found, yet needs to be included in the tree

 ;      like library baseclasses
 ;   a file can define several classes
   (let ((T (car (cdr data))));1st comes a header, then the tree
 ;      like library baseclasses
 ;   a file can define several classes
   (let ((T (car (cdr data))));1st comes a header, then the tree

diff --git a/lisp/cedet/semantic/db-typecache.el b/lisp/cedet/semantic/db-typecache.el
index 76428057ef59a7c11016c735528ea93b7d921cb2..ce76dddf359ecdc32318d5451a6ff41dd1150cc4 100644 (file)
--- a/lisp/cedet/semantic/db-typecache.el
+++ b/lisp/cedet/semantic/db-typecache.el
@@ -473,7 +473,7 @@ found tag to be loaded."
        ;;       find a type/namespace because everything else is excluded.
 
        ;; If this is not the last entry from the list, then it
        ;;       find a type/namespace because everything else is excluded.
 
        ;; If this is not the last entry from the list, then it

-       ;; must be a type or a namespace.  Lets double check.
+       ;; must be a type or a namespace.  Let's double check.

        (when (cdr type)
 
          ;; From above, there is only one tag in ans, and we prefer
        (when (cdr type)
 
          ;; From above, there is only one tag in ans, and we prefer


@@ -511,7 +511,7 @@ found tag to be loaded."
          ;; This won't liven up the tag since we have a copy, but
          ;; we ought to be able to get there and go to the right line.
          (find-file-noselect lastfile)
          ;; This won't liven up the tag since we have a copy, but
          ;; we ought to be able to get there and go to the right line.
          (find-file-noselect lastfile)

-       ;; We don't want to find-file match, so instead lets
+       ;; We don't want to find-file match, so instead let's

        ;; push the filename onto the return tag.
        (when lastans
          (setq lastans (semantic-tag-copy lastans nil lastfile))
        ;; push the filename onto the return tag.
        (when lastans
          (setq lastans (semantic-tag-copy lastans nil lastfile))

diff --git a/lisp/cedet/semantic/db.el b/lisp/cedet/semantic/db.el
index 65897b96adb152bff9b84e3c04f5eaba918fc5e3..f83d30ac12a2d155fa961593d429eddefc42190c 100644 (file)
--- a/lisp/cedet/semantic/db.el
+++ b/lisp/cedet/semantic/db.el
@@ -459,7 +459,7 @@ other than :table."
       (setq cache (cdr cache)))
     (if obj
        obj ;; Just return it.
       (setq cache (cdr cache)))
     (if obj
        obj ;; Just return it.

-      ;; No object, lets create a new one and return that.
+      ;; No object, let's create a new one and return that.

       (setq obj (funcall desired-class "Cache" :table table))
       (object-add-to-list table 'cache obj)
       obj)))
       (setq obj (funcall desired-class "Cache" :table table))
       (object-add-to-list table 'cache obj)
       obj)))


@@ -510,7 +510,7 @@ other than :table."
       (setq cache (cdr cache)))
     (if obj
        obj ;; Just return it.
       (setq cache (cdr cache)))
     (if obj
        obj ;; Just return it.

-      ;; No object, lets create a new one and return that.
+      ;; No object, let's create a new one and return that.

       (setq obj (funcall desired-class "Cache" :db db))
       (object-add-to-list db 'cache obj)
       obj)))
       (setq obj (funcall desired-class "Cache" :db db))
       (object-add-to-list db 'cache obj)
       obj)))


@@ -941,7 +941,7 @@ DONTLOAD does not affect the creation of new database objects."
          (setq fullfile (file-truename file))
          )
 
          (setq fullfile (file-truename file))
          )
 

-       ;; If we have a table, but no fullfile, that's ok.  Lets get the filename
+       ;; If we have a table, but no fullfile, that's ok.  Let's get the filename

        ;; from the table which is pre-truenamed.
        (when (and (not fullfile) tab)
          (setq fullfile (semanticdb-full-filename tab)))
        ;; from the table which is pre-truenamed.
        (when (and (not fullfile) tab)
          (setq fullfile (semanticdb-full-filename tab)))

diff --git a/lisp/cedet/semantic/decorate/include.el b/lisp/cedet/semantic/decorate/include.el
index e32aca54b0f258b9df799914cd57c8edeb442582..766a13023e87b9f446b845de7c30f3e4a804a401 100644 (file)
--- a/lisp/cedet/semantic/decorate/include.el
+++ b/lisp/cedet/semantic/decorate/include.el
@@ -739,7 +739,7 @@ any decorated referring includes.")
   "Refresh any highlighting in buffers referred to by TABLE.
 If TABLE is not in a buffer, do nothing."
   ;; This cache removal may seem odd in that we are "creating one", but
   "Refresh any highlighting in buffers referred to by TABLE.
 If TABLE is not in a buffer, do nothing."
   ;; This cache removal may seem odd in that we are "creating one", but

-  ;; since we cant get in the fcn unless one exists, this ought to be
+  ;; since we can't get in the fcn unless one exists, this ought to be

   ;; ok.
   (let ((c (semanticdb-cache-get
            table 'semantic-decoration-unparsed-include-cache)))
   ;; ok.
   (let ((c (semanticdb-cache-get
            table 'semantic-decoration-unparsed-include-cache)))

diff --git a/lisp/cedet/semantic/doc.el b/lisp/cedet/semantic/doc.el
index e5579d091138d5cdb5ededa0b910c40b48515381..ec3b5878c634eb1211d36a2da3417c92f3a5ccc7 100644 (file)
--- a/lisp/cedet/semantic/doc.el
+++ b/lisp/cedet/semantic/doc.el
@@ -56,7 +56,7 @@ If nosnarf if 'lex, then only return the lex token."
          ;; Check just before the definition.
          (when (semantic-tag-with-position-p tag)
            (semantic-documentation-comment-preceeding-tag tag nosnarf))
          ;; Check just before the definition.
          (when (semantic-tag-with-position-p tag)
            (semantic-documentation-comment-preceeding-tag tag nosnarf))

-         ;;  Lets look for comments either after the definition, but before code:
+         ;;  Let's look for comments either after the definition, but before code:

          ;; Not sure yet.  Fill in something clever later....
          nil))))))
 
          ;; Not sure yet.  Fill in something clever later....
          nil))))))
 

diff --git a/lisp/cedet/semantic/edit.el b/lisp/cedet/semantic/edit.el
index e7ed8c5ee474c33613c3e9ae056cf4b8277f4181..8115f3c9a1686629e73832e60fdc65e6727a034c 100644 (file)
--- a/lisp/cedet/semantic/edit.el
+++ b/lisp/cedet/semantic/edit.el
@@ -316,7 +316,7 @@ See `semantic-edits-change-leaf-tag' for details on parents."
                  (setq list-to-search nil)))
        ;; Search list is nil.
        ))
                  (setq list-to-search nil)))
        ;; Search list is nil.
        ))

-    ;; If we have a search list, lets go.  Otherwise nothing.
+    ;; If we have a search list, let's go.  Otherwise nothing.

     (while (and list-to-search (not found))
       (if (cdr list-to-search)
           ;; We end when the start of the CDR is after the end of our
     (while (and list-to-search (not found))
       (if (cdr list-to-search)
           ;; We end when the start of the CDR is after the end of our

diff --git a/lisp/cedet/semantic/format.el b/lisp/cedet/semantic/format.el
index 381801559daeea308b92ad4514b6d7c56a63d13d..8a099a9bfb0ab64f4d92fed069e86b5efef0d6f1 100644 (file)
--- a/lisp/cedet/semantic/format.el
+++ b/lisp/cedet/semantic/format.el
@@ -431,7 +431,7 @@ Optional argument COLOR means highlight the prototype with font-lock colors."
         (doc (semantic-tag-docstring tag buf)))
     (when (and (not doc) (not buf) fname)
       ;; If there is no doc, and no buffer, but we have a filename,
         (doc (semantic-tag-docstring tag buf)))
     (when (and (not doc) (not buf) fname)
       ;; If there is no doc, and no buffer, but we have a filename,

-      ;; lets try again.
+      ;; let's try again.

       (save-match-data
        (setq buf (find-file-noselect fname)))
       (setq doc (semantic-tag-docstring tag buf)))
       (save-match-data
        (setq buf (find-file-noselect fname)))
       (setq doc (semantic-tag-docstring tag buf)))

diff --git a/lisp/cedet/semantic/ia.el b/lisp/cedet/semantic/ia.el
index 3941424e4b5d6c028d7fad8edfd20df79ac7b024..50de8e4f57f16ea2b7fc4391a733c563cdfe7d6e 100644 (file)
--- a/lisp/cedet/semantic/ia.el
+++ b/lisp/cedet/semantic/ia.el
@@ -115,7 +115,7 @@ Completion options are calculated with `semantic-analyze-possible-completions'."
       (if (null syms)
          (if (semantic-analyze-context-p a)
              ;; This is a clever hack.  If we were unable to find any
       (if (null syms)
          (if (semantic-analyze-context-p a)
              ;; This is a clever hack.  If we were unable to find any

-             ;; smart completions, lets divert to how senator derives
+             ;; smart completions, let's divert to how senator derives

              ;; completions.
              ;;
              ;; This is a way of making this fcn more useful since
              ;; completions.
              ;;
              ;; This is a way of making this fcn more useful since


@@ -251,8 +251,8 @@ Completion options are calculated with `semantic-analyze-possible-completions'."
   "Jump to DEST, a Semantic tag.
 This helper manages the mark, buffer switching, and pulsing."
   ;; We have a tag, but in C++, we usually get a prototype instead
   "Jump to DEST, a Semantic tag.
 This helper manages the mark, buffer switching, and pulsing."
   ;; We have a tag, but in C++, we usually get a prototype instead

-  ;; because of header files.  Lets try to find the actual
-  ;; implementaion instead.
+  ;; because of header files.  Let's try to find the actual
+  ;; implementation instead.

   (when (semantic-tag-prototype-p dest)
     (let* ((refs (semantic-analyze-tag-references dest))
           (impl (semantic-analyze-refs-impl refs t))
   (when (semantic-tag-prototype-p dest)
     (let* ((refs (semantic-analyze-tag-references dest))
           (impl (semantic-analyze-refs-impl refs t))

diff --git a/lisp/cedet/semantic/idle.el b/lisp/cedet/semantic/idle.el
index 1c1233303e9fb2ebbf1966c33d3abd85b31880fc..b49d1db1ad5b00ff2d79d6e5dd1998d15f035e22 100644 (file)
--- a/lisp/cedet/semantic/idle.el
+++ b/lisp/cedet/semantic/idle.el
@@ -427,7 +427,7 @@ datasets."
 
 (defun semantic-idle-scheduler-work-parse-neighboring-files ()
   "Parse all the files in similar directories to buffers being edited."
 
 (defun semantic-idle-scheduler-work-parse-neighboring-files ()
   "Parse all the files in similar directories to buffers being edited."

-  ;; Lets check to see if EDE matters.
+  ;; Let's check to see if EDE matters.

   (let ((ede-auto-add-method 'never))
     (dolist (a auto-mode-alist)
       (when (eq (cdr a) major-mode)
   (let ((ede-auto-add-method 'never))
     (dolist (a auto-mode-alist)
       (when (eq (cdr a) major-mode)

diff --git a/lisp/cedet/semantic/scope.el b/lisp/cedet/semantic/scope.el
index 64e60fae0f2cc5b14662ddbae089aa5f1fef7d4c..16deb24552782fbf0f01a8415a528299d5919a8b 100644 (file)
--- a/lisp/cedet/semantic/scope.el
+++ b/lisp/cedet/semantic/scope.el
@@ -186,7 +186,7 @@ Use `semantic-ctxt-scoped-types' to find types."
   (save-excursion
     (goto-char position)
     (let ((code-scoped-types nil))
   (save-excursion
     (goto-char position)
     (let ((code-scoped-types nil))

-      ;; Lets ask if any types are currently scoped.  Scoped
+      ;; Let's ask if any types are currently scoped.  Scoped

       ;; classes and types provide their public methods and types
       ;; in source code, but are unrelated hierarchically.
       (let ((sp (semantic-ctxt-scoped-types)))
       ;; classes and types provide their public methods and types
       ;; in source code, but are unrelated hierarchically.
       (let ((sp (semantic-ctxt-scoped-types)))


@@ -249,7 +249,7 @@ are from nesting data types."
       ;;    Analyze the stack of tags we are nested in as parents.
       ;;
 
       ;;    Analyze the stack of tags we are nested in as parents.
       ;;
 

-      ;; If we have a pparent tag, lets go there
+      ;; If we have a pparent tag, let's go there

       ;; an analyze that stack of tags.
       (when (and pparent (semantic-tag-with-position-p pparent))
        (semantic-go-to-tag pparent)
       ;; an analyze that stack of tags.
       (when (and pparent (semantic-tag-with-position-p pparent))
        (semantic-go-to-tag pparent)

diff --git a/lisp/cedet/semantic/symref/grep.el b/lisp/cedet/semantic/symref/grep.el
index 1571622b29a0f8a17d09544fdce608489cc72231..da250e66bb5f4d47aee5d6a6c4f5bb9dcc1c08bd 100644 (file)
--- a/lisp/cedet/semantic/symref/grep.el
+++ b/lisp/cedet/semantic/symref/grep.el
@@ -102,7 +102,7 @@ ROOTDIR is the root location to run the `find' from.
 FILEPATTERN is a string representing find flags for searching file patterns.
 GREPFLAGS are flags passed to grep, such as -n or -l.
 GREPPATTERN is the pattern used by grep."
 FILEPATTERN is a string representing find flags for searching file patterns.
 GREPFLAGS are flags passed to grep, such as -n or -l.
 GREPPATTERN is the pattern used by grep."

-  ;; We have grep-compute-defaults.  Lets use it.
+  ;; We have grep-compute-defaults.  Let's use it.

   (grep-compute-defaults)
   (let* ((grep-expand-keywords semantic-symref-grep-expand-keywords)
         (cmd (grep-expand-template grep-find-template
   (grep-compute-defaults)
   (let* ((grep-expand-keywords semantic-symref-grep-expand-keywords)
         (cmd (grep-expand-template grep-find-template

diff --git a/lisp/cedet/semantic/texi.el b/lisp/cedet/semantic/texi.el
index 30c5a5cf8b6e273a70cabcddbe42146b94e7cb82..e79953400a78bbd09e767dd1fd34e6532acc963a 100644 (file)
--- a/lisp/cedet/semantic/texi.el
+++ b/lisp/cedet/semantic/texi.el
@@ -579,7 +579,7 @@ Note: TYPE not yet implemented."
 ;;         (setq doctag (if docstring sourcetag nil))))
 ;;       (setq tags (cdr tags)))))
 ;;     ;; If we found a prototype of the function that has some doc, but not the
 ;;         (setq doctag (if docstring sourcetag nil))))
 ;;       (setq tags (cdr tags)))))
 ;;     ;; If we found a prototype of the function that has some doc, but not the

-;;     ;; actual function, lets make due with that.
+;;     ;; actual function, let's make due with that.

 ;;     (if (not docstring)
 ;;     (cond ((stringp docstringvar)
 ;;            (setq docstring docstringvar
 ;;     (if (not docstring)
 ;;     (cond ((stringp docstringvar)
 ;;            (setq docstring docstringvar

diff --git a/lisp/cedet/srecode/dictionary.el b/lisp/cedet/srecode/dictionary.el
index 272e7693ccd1c071ed35797bd8fd39320e09a081..5f6806a06b3d479ca8dec614e3637fc43987224f 100644 (file)
--- a/lisp/cedet/srecode/dictionary.el
+++ b/lisp/cedet/srecode/dictionary.el
@@ -280,7 +280,7 @@ inserted dictionaries."
          (progn
            (srecode-dictionary-show-section new "FIRST")
            (srecode-dictionary-show-section new "LAST"))
          (progn
            (srecode-dictionary-show-section new "FIRST")
            (srecode-dictionary-show-section new "LAST"))

-       ;; Not the very first one.  Lets clean up CAR.
+       ;; Not the very first one.  Let's clean up CAR.

        (let ((tail (car (last ov))))
          (srecode-dictionary-hide-section tail "LAST")
          (srecode-dictionary-show-section tail "NOTLAST")
        (let ((tail (car (last ov))))
          (srecode-dictionary-hide-section tail "LAST")
          (srecode-dictionary-show-section tail "NOTLAST")

diff --git a/lisp/cedet/srecode/fields.el b/lisp/cedet/srecode/fields.el
index d7ca84c1f975578faf273ad1583ac0fdc05a18d9..f13fb17ca8f8a9180575ad731fa26961695e27a8 100644 (file)
--- a/lisp/cedet/srecode/fields.el
+++ b/lisp/cedet/srecode/fields.el
@@ -338,7 +338,7 @@ PRE-LEN is used in the after mode for the length of the changed text."
           (inhibit-modification-hooks t)
           )
       ;; Sometimes a field is deleted, but we might still get a stray
           (inhibit-modification-hooks t)
           )
       ;; Sometimes a field is deleted, but we might still get a stray

-      ;; event.  Lets just ignore those events.
+      ;; event.  Let's just ignore those events.

       (when (slot-boundp field 'overlay)
        ;; First, fixup the two overlays, in case they got confused.
        (let ((main (oref field overlay))
       (when (slot-boundp field 'overlay)
        ;; First, fixup the two overlays, in case they got confused.
        (let ((main (oref field overlay))

diff --git a/lisp/cedet/srecode/find.el b/lisp/cedet/srecode/find.el
index fdca64a7da1416e4b93deb1a5283e4f7f137716d..d9765ebd449e2fff747f7fcbe256f71e5bbc1373 100644 (file)
--- a/lisp/cedet/srecode/find.el
+++ b/lisp/cedet/srecode/find.el
@@ -103,7 +103,7 @@ If TAB is nil, then always return t."
   (let ((proj (oref tab :project)))
     ;; Return t if the project wasn't set.
     (if (not proj) t
   (let ((proj (oref tab :project)))
     ;; Return t if the project wasn't set.
     (if (not proj) t

-      ;; If the project directory was set, lets check it.
+      ;; If the project directory was set, let's check it.

       (let ((dd (expand-file-name default-directory))
            (projexp (regexp-quote (directory-file-name proj))))
        (if (string-match (concat "^" projexp) dd)
       (let ((dd (expand-file-name default-directory))
            (projexp (regexp-quote (directory-file-name proj))))
        (if (string-match (concat "^" projexp) dd)

diff --git a/lisp/cedet/srecode/texi.el b/lisp/cedet/srecode/texi.el
index 33440d044328148cc5f462cd1d0ad4670db6248f..acfc2486711c1c0ee0c74ccaa6b93b85cc14fcb5 100644 (file)
--- a/lisp/cedet/srecode/texi.el
+++ b/lisp/cedet/srecode/texi.el
@@ -231,7 +231,7 @@ This is to take advantage of TeXinfo's markup symbols."
     (if buffer
        (progn (set-buffer buffer)
               (srecode-texi-texify-docstring string))
     (if buffer
        (progn (set-buffer buffer)
               (srecode-texi-texify-docstring string))

-      ;; Else, no buffer, so lets do something else
+      ;; Else, no buffer, so let's do something else

       (with-mode-local texinfo-mode
        (srecode-texi-texify-docstring string)))))
 
       (with-mode-local texinfo-mode
        (srecode-texi-texify-docstring string)))))
 

diff --git a/lisp/emacs-lisp/cconv.el b/lisp/emacs-lisp/cconv.el
index 742a98f5e7bafe6a16dfac6f1f60afb907fb4fc6..c6e157be776586e184f39b509e162ea531bd2ede 100644 (file)
--- a/lisp/emacs-lisp/cconv.el
+++ b/lisp/emacs-lisp/cconv.el
@@ -26,21 +26,21 @@
 
 ;; This takes a piece of Elisp code, and eliminates all free variables from
 ;; lambda expressions.  The user entry points are cconv-closure-convert and
 
 ;; This takes a piece of Elisp code, and eliminates all free variables from
 ;; lambda expressions.  The user entry points are cconv-closure-convert and

-;; cconv-closure-convert-toplevel(for toplevel forms).
+;; cconv-closure-convert-toplevel (for toplevel forms).

 ;; All macros should be expanded beforehand.
 ;;
 ;; Here is a brief explanation how this code works.
 ;; All macros should be expanded beforehand.
 ;;
 ;; Here is a brief explanation how this code works.

-;; Firstly, we analyse the tree by calling cconv-analyse-form.
+;; Firstly, we analyze the tree by calling cconv-analyse-form.

 ;; This function finds all mutated variables, all functions that are suitable
 ;; for lambda lifting and all variables captured by closure. It passes the tree
 ;; once, returning a list of three lists.
 ;;
 ;; This function finds all mutated variables, all functions that are suitable
 ;; for lambda lifting and all variables captured by closure. It passes the tree
 ;; once, returning a list of three lists.
 ;;

-;; Then we calculate the intersection of first and third lists returned by
+;; Then we calculate the intersection of the first and third lists returned by

 ;; cconv-analyse form to find all mutated variables that are captured by
 ;; closure.
 
 ;; Armed with this data, we call cconv-closure-convert-rec, that rewrites the
 ;; cconv-analyse form to find all mutated variables that are captured by
 ;; closure.
 
 ;; Armed with this data, we call cconv-closure-convert-rec, that rewrites the

-;; tree recursivly, lifting lambdas where possible, building closures where it
+;; tree recursively, lifting lambdas where possible, building closures where it

 ;; is needed and eliminating mutable variables used in closure.
 ;;
 ;; We do following replacements :
 ;; is needed and eliminating mutable variables used in closure.
 ;;
 ;; We do following replacements :


@@ -142,7 +142,7 @@ Returns a form where all lambdas don't have any free variables."
   (let ((cconv-freevars-alist '())
        (cconv-lambda-candidates '())
        (cconv-captured+mutated '()))
   (let ((cconv-freevars-alist '())
        (cconv-lambda-candidates '())
        (cconv-captured+mutated '()))

-    ;; Analyse form - fill these variables with new information.
+    ;; Analyze form - fill these variables with new information.

     (cconv-analyse-form form '())
     (setq cconv-freevars-alist (nreverse cconv-freevars-alist))
     (cconv-convert form nil nil))) ; Env initially empty.
     (cconv-analyse-form form '())
     (setq cconv-freevars-alist (nreverse cconv-freevars-alist))
     (cconv-convert form nil nil))) ; Env initially empty.


@@ -581,7 +581,7 @@ FORM is the parent form that binds this var."
 
 (defun cconv-analyse-form (form env)
   "Find mutated variables and variables captured by closure.
 
 (defun cconv-analyse-form (form env)
   "Find mutated variables and variables captured by closure.

-Analyse lambdas if they are suitable for lambda lifting.
+Analyze lambdas if they are suitable for lambda lifting.

 - FORM is a piece of Elisp code after macroexpansion.
 - ENV is an alist mapping each enclosing lexical variable to its info.
    I.e. each element has the form (VAR . (READ MUTATED CAPTURED CALLED)).
 - FORM is a piece of Elisp code after macroexpansion.
 - ENV is an alist mapping each enclosing lexical variable to its info.
    I.e. each element has the form (VAR . (READ MUTATED CAPTURED CALLED)).

diff --git a/lisp/emacs-lisp/chart.el b/lisp/emacs-lisp/chart.el
index 56930a74693a2e232ae08bf5a08b764d916f72d8..75e7d62f395efa0b011315040db63ae906c33378 100644 (file)
--- a/lisp/emacs-lisp/chart.el
+++ b/lisp/emacs-lisp/chart.el
@@ -634,7 +634,7 @@ SORT-PRED if desired."
            (setq extlst (cons s extlst)
                  cntlst (cons 1 cntlst)))))
       (setq flst (cdr flst)))
            (setq extlst (cons s extlst)
                  cntlst (cons 1 cntlst)))))
       (setq flst (cdr flst)))

-    ;; Lets create the chart!
+    ;; Let's create the chart!

     (chart-bar-quickie 'vertical "Files Extension Distribution"
                       extlst "File Extensions"
                       cntlst "# of occurrences"
     (chart-bar-quickie 'vertical "Files Extension Distribution"
                       extlst "File Extensions"
                       cntlst "# of occurrences"


@@ -693,7 +693,7 @@ SORT-PRED if desired."
                     ;(car (nth 5 data)) ; floats are Emacs only
                     ;(cdr (nth 5 data))
                     )))
                     ;(car (nth 5 data)) ; floats are Emacs only
                     ;(cdr (nth 5 data))
                     )))

-    ;; Lets create the chart!
+    ;; Let's create the chart!

     (chart-bar-quickie 'vertical "Emacs Runtime Storage Usage"
                       names "Storage Items"
                       nums "Objects")))
     (chart-bar-quickie 'vertical "Emacs Runtime Storage Usage"
                       names "Storage Items"
                       nums "Objects")))


@@ -710,7 +710,7 @@ SORT-PRED if desired."
     (if (fboundp 'x-display-list)
        (setq names (append names '("x-displays"))
              nums (append nums (list (length (x-display-list))))))
     (if (fboundp 'x-display-list)
        (setq names (append names '("x-displays"))
              nums (append nums (list (length (x-display-list))))))

-    ;; Lets create the chart!
+    ;; Let's create the chart!

     (chart-bar-quickie 'vertical "Emacs List Size Chart"
                       names "Various Lists"
                       nums "Objects")))
     (chart-bar-quickie 'vertical "Emacs List Size Chart"
                       names "Various Lists"
                       nums "Objects")))

diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el
index 119424e789c9ee403c47d978557eff4a82220686..62325d5190290dc9b1dde870e5a3a6e6a3c76cf7 100644 (file)
--- a/lisp/emacs-lisp/eieio.el
+++ b/lisp/emacs-lisp/eieio.el
@@ -553,7 +553,7 @@ See `defclass' for more information."
       (put cname 'cl-deftype-handler
           (list 'lambda () `(list 'satisfies (quote ,csym)))))
 
       (put cname 'cl-deftype-handler
           (list 'lambda () `(list 'satisfies (quote ,csym)))))
 

-    ;; before adding new slots, lets add all the methods and classes
+    ;; before adding new slots, let's add all the methods and classes

     ;; in from the parent class
     (eieio-copy-parents-into-subclass newc superclasses)
 
     ;; in from the parent class
     (eieio-copy-parents-into-subclass newc superclasses)
 


@@ -826,7 +826,7 @@ if default value is nil."
   ;; Make sure we duplicate those items that are sequences.
   (condition-case nil
       (if (sequencep d) (setq d (copy-sequence d)))
   ;; Make sure we duplicate those items that are sequences.
   (condition-case nil
       (if (sequencep d) (setq d (copy-sequence d)))

-    ;; This copy can fail on a cons cell with a non-cons in the cdr.  Lets skip it if it doesn't work.
+    ;; This copy can fail on a cons cell with a non-cons in the cdr.  Let's skip it if it doesn't work.

     (error nil))
   (if (sequencep type) (setq type (copy-sequence type)))
   (if (sequencep cust) (setq cust (copy-sequence cust)))
     (error nil))
   (if (sequencep type) (setq type (copy-sequence type)))
   (if (sequencep cust) (setq cust (copy-sequence cust)))


@@ -1470,7 +1470,7 @@ created by the :initarg tag."
         (c (eieio-slot-name-index class obj slot)))
     (if (not c)
        ;; It might be missing because it is a :class allocated slot.
         (c (eieio-slot-name-index class obj slot)))
     (if (not c)
        ;; It might be missing because it is a :class allocated slot.

-       ;; Lets check that info out.
+       ;; Let's check that info out.

        (if (setq c (eieio-class-slot-name-index class slot))
            ;; Oref that slot.
            (aref (aref (class-v class) class-class-allocation-values) c)
        (if (setq c (eieio-class-slot-name-index class slot))
            ;; Oref that slot.
            (aref (aref (class-v class) class-class-allocation-values) c)


@@ -1503,7 +1503,7 @@ Fills in OBJ's SLOT with its default value."
         (c (eieio-slot-name-index cl obj slot)))
     (if (not c)
        ;; It might be missing because it is a :class allocated slot.
         (c (eieio-slot-name-index cl obj slot)))
     (if (not c)
        ;; It might be missing because it is a :class allocated slot.

-       ;; Lets check that info out.
+       ;; Let's check that info out.

        (if (setq c
                  (eieio-class-slot-name-index cl slot))
            ;; Oref that slot.
        (if (setq c
                  (eieio-class-slot-name-index cl slot))
            ;; Oref that slot.


@@ -1549,7 +1549,7 @@ Fills in OBJ's SLOT with VALUE."
   (let ((c (eieio-slot-name-index (object-class-fast obj) obj slot)))
     (if (not c)
        ;; It might be missing because it is a :class allocated slot.
   (let ((c (eieio-slot-name-index (object-class-fast obj) obj slot)))
     (if (not c)
        ;; It might be missing because it is a :class allocated slot.

-       ;; Lets check that info out.
+       ;; Let's check that info out.

        (if (setq c
                  (eieio-class-slot-name-index (aref obj object-class) slot))
            ;; Oset that slot.
        (if (setq c
                  (eieio-class-slot-name-index (aref obj object-class) slot))
            ;; Oset that slot.


@@ -1581,7 +1581,7 @@ Fills in the default value in CLASS' in SLOT with VALUE."
         (c (eieio-slot-name-index class nil slot)))
     (if (not c)
        ;; It might be missing because it is a :class allocated slot.
         (c (eieio-slot-name-index class nil slot)))
     (if (not c)
        ;; It might be missing because it is a :class allocated slot.

-       ;; Lets check that info out.
+       ;; Let's check that info out.

        (if (setq c (eieio-class-slot-name-index class slot))
            (progn
              ;; Oref that slot.
        (if (setq c (eieio-class-slot-name-index class slot))
            (progn
              ;; Oref that slot.

diff --git a/lisp/emacs-lisp/regi.el b/lisp/emacs-lisp/regi.el
index 8000dcd53dd649db9e653596a4111a391d1fac15..6905589e5bea6c539c87b4e48219a7dbe20d0802 100644 (file)
--- a/lisp/emacs-lisp/regi.el
+++ b/lisp/emacs-lisp/regi.el
@@ -161,7 +161,7 @@ useful information:
                (progn (goto-char end) (regi-pos 'bonl))
                (progn (goto-char start) (regi-pos 'bol)))))
 
                (progn (goto-char end) (regi-pos 'bonl))
                (progn (goto-char start) (regi-pos 'bol)))))
 

-       ;; lets find the special tags and remove them from the working
+       ;; let's find the special tags and remove them from the working

        ;; frame. note that only the last special tag is used.
        (mapc
         (function
        ;; frame. note that only the last special tag is used.
        (mapc
         (function

diff --git a/lisp/erc/ChangeLog.03 b/lisp/erc/ChangeLog.03
index 43d0247bce6bc1598e4fb3607a30f8492197e82c..956ef5f4c6630636ceaae6b6794a0043a860b20f 100644 (file)
--- a/lisp/erc/ChangeLog.03
+++ b/lisp/erc/ChangeLog.03
@@ -1305,7 +1305,7 @@
        * (erc-current-logfile): call expand-file-name, so that downcase doesn't mess up ~
 
        * erc.el: * (erc-mode): Define a proper case-table.
        * (erc-current-logfile): call expand-file-name, so that downcase doesn't mess up ~
 
        * erc.el: * (erc-mode): Define a proper case-table.

-       * (erc-downcase): just call downcase for now, lets see if the case-table is portable, if yes, we'll remove all erc-downcase references anyway...
+       * (erc-downcase): just call downcase for now, let's see if the case-table is portable, if yes, we'll remove all erc-downcase references anyway...

 
        * erc-button.el: * (erc-button-add-buttons): regex-quote the nick
 
 
        * erc-button.el: * (erc-button-add-buttons): regex-quote the nick
 

diff --git a/lisp/frame.el b/lisp/frame.el
index 8359fed14a4ce2d301a0240642b9ad84047cfb96..f63179de1f12b589c231b06fe4787b0cae3b0d93 100644 (file)
--- a/lisp/frame.el
+++ b/lisp/frame.el
@@ -1299,7 +1299,7 @@ Each element of the alist has the form (display . (width . height)),
 e.g. (\":0.0\" . (287 . 215)).
 
 If `display' equals t, it specifies dimensions for all graphical
 e.g. (\":0.0\" . (287 . 215)).
 
 If `display' equals t, it specifies dimensions for all graphical

-displays not explicitely specified."
+displays not explicitly specified."

   :version "22.1"
   :type '(alist :key-type (choice (string :tag "Display name")
                                  (const :tag "Default" t))
   :version "22.1"
   :type '(alist :key-type (choice (string :tag "Display name")
                                  (const :tag "Default" t))

diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog
index 5c4ca40b2048987d51674a92cb386489445ffc24..4c31bbb52e4a34105d7085c0fb597a19881af507 100644 (file)
--- a/lisp/gnus/ChangeLog
+++ b/lisp/gnus/ChangeLog
@@ -1,5 +1,6 @@
 2011-11-15  Juanma Barranquero  <lekktu@gmail.com>
 
 2011-11-15  Juanma Barranquero  <lekktu@gmail.com>
 

+       * gnus-art.el (gnus-article-part-wrapper):

        * shr-color.el (shr-color-visible-distance-min)
        (shr-color-relative-to-absolute, set-minimum-interval)
        (shr-color-visible): Fix typos.
        * shr-color.el (shr-color-visible-distance-min)
        (shr-color-relative-to-absolute, set-minimum-interval)
        (shr-color-visible): Fix typos.

diff --git a/lisp/gnus/ChangeLog.1 b/lisp/gnus/ChangeLog.1
index 7448808b20f07eef032d928fd814f224848d917e..c4f563adbb692f2f2748091f597c948e3aabf787 100644 (file)
--- a/lisp/gnus/ChangeLog.1
+++ b/lisp/gnus/ChangeLog.1
@@ -2540,7 +2540,7 @@
        `gnus-simplify-ignored-prefixes'.
        (gnus-summary-set-display-table): Keep TAB.
 
        `gnus-simplify-ignored-prefixes'.
        (gnus-summary-set-display-table): Keep TAB.
 

-1998-01-15   <Use-Author-Address-Header@[127.1]>
+1998-01-15  Lars Magne Ingebrigtsen  <larsi@ifi.uio.no>

 
        * gnus-art.el (gnus-request-article-this-buffer): Put it into the
        backlog.
 
        * gnus-art.el (gnus-request-article-this-buffer): Put it into the
        backlog.

diff --git a/lisp/gnus/gnus-art.el b/lisp/gnus/gnus-art.el
index a11e9ebf0fa4ec4bfcfc339deab2c496719ac470..4c0f60693739f54d48789bebff5ed2675e0bdbc6 100644 (file)
--- a/lisp/gnus/gnus-art.el
+++ b/lisp/gnus/gnus-art.el
@@ -5418,8 +5418,8 @@ If no internal viewer is available, use an external viewer."
 
 (defun gnus-article-part-wrapper (n function &optional no-handle interactive)
   "Call FUNCTION on MIME part N.
 
 (defun gnus-article-part-wrapper (n function &optional no-handle interactive)
   "Call FUNCTION on MIME part N.

-Unless NO-HANDLE, call FUNCTION with N-th MIME handle as it's only argument.
-If INTERACTIVE, call FUNCTION interactivly."
+Unless NO-HANDLE, call FUNCTION with N-th MIME handle as its only argument.
+If INTERACTIVE, call FUNCTION interactively."

   (let (window frame)
     ;; Check whether the article is displayed.
     (unless (and (gnus-buffer-live-p gnus-article-buffer)
   (let (window frame)
     ;; Check whether the article is displayed.
     (unless (and (gnus-buffer-live-p gnus-article-buffer)

diff --git a/lisp/gnus/html2text.el b/lisp/gnus/html2text.el
index 8cfd9b9f903f413bfe212eafbe851b8a368f2811..345e7c19a6ab527fc09070c52fee27459a22416a 100644 (file)
--- a/lisp/gnus/html2text.el
+++ b/lisp/gnus/html2text.el
@@ -410,7 +410,7 @@ fashion, quite close to pure guess-work. It does work in some cases though."
   (while (re-search-forward "^<br>$" nil t)
     (delete-region (match-beginning 0) (match-end 0)))
   ;; Removing lonely <br> on a single line, if they are left intact we
   (while (re-search-forward "^<br>$" nil t)
     (delete-region (match-beginning 0) (match-end 0)))
   ;; Removing lonely <br> on a single line, if they are left intact we

-  ;; dont have any paragraphs at all.
+  ;; don't have any paragraphs at all.

   (goto-char (point-min))
   (while (not (eobp))
     (let ((p1 (point)))
   (goto-char (point-min))
   (while (not (eobp))
     (let ((p1 (point)))

diff --git a/lisp/gnus/mm-decode.el b/lisp/gnus/mm-decode.el
index 37ee59e9b4bb48324c61feec1373926b7e0f57d9..36c56e0921bf7623c79bb6ca9241a3dea067de99 100644 (file)
--- a/lisp/gnus/mm-decode.el
+++ b/lisp/gnus/mm-decode.el
@@ -1494,7 +1494,7 @@ be determined."
     (or (not image)
        (if (featurep 'xemacs)
            ;; XEmacs' glyphs can actually tell us about their width, so
     (or (not image)
        (if (featurep 'xemacs)
            ;; XEmacs' glyphs can actually tell us about their width, so

-           ;; lets be nice and smart about them.
+           ;; let's be nice and smart about them.

            (or mm-inline-large-images
                (and (<= (glyph-width image) (window-pixel-width))
                     (<= (glyph-height image) (window-pixel-height))))
            (or mm-inline-large-images
                (and (<= (glyph-width image) (window-pixel-width))
                     (<= (glyph-height image) (window-pixel-height))))

diff --git a/lisp/gnus/rfc2047.el b/lisp/gnus/rfc2047.el
index e82192b91d69e8833a00e4291c7df677d94d6012..feed078034c6b4ba86ce69d3341a9974dceeb0d4 100644 (file)
--- a/lisp/gnus/rfc2047.el
+++ b/lisp/gnus/rfc2047.el
@@ -285,11 +285,11 @@ Should be called narrowed to the head of the message."
                       mail-parse-charset)
                  (mm-encode-coding-region (point) (point-max)
                                           mail-parse-charset)))
                       mail-parse-charset)
                  (mm-encode-coding-region (point) (point-max)
                                           mail-parse-charset)))

-            ;; We get this when CC'ing messsages to newsgroups with
+            ;; We get this when CC'ing messages to newsgroups with

             ;; 8-bit names.  The group name mail copy just got
             ;; unconditionally encoded.  Previously, it would ask
             ;; whether to encode, which was quite confusing for the
             ;; 8-bit names.  The group name mail copy just got
             ;; unconditionally encoded.  Previously, it would ask
             ;; whether to encode, which was quite confusing for the

-            ;; user.  If the new behavior is wrong, tell me. I have
+            ;; user.  If the new behavior is wrong, tell me.  I have

             ;; left the old code commented out below.
             ;; -- Per Abrahamsen <abraham@dina.kvl.dk> Date: 2001-10-07.
             ;; Modified by Dave Love, with the commented-out code changed
             ;; left the old code commented out below.
             ;; -- Per Abrahamsen <abraham@dina.kvl.dk> Date: 2001-10-07.
             ;; Modified by Dave Love, with the commented-out code changed

diff --git a/lisp/htmlfontify.el b/lisp/htmlfontify.el
index ffef8cdf7b7b4c38717d8c753731981d9761c978..deb241ce7f5ce2ff93960144b6d26051be5a1ef5 100644 (file)
--- a/lisp/htmlfontify.el
+++ b/lisp/htmlfontify.el
@@ -1768,7 +1768,7 @@ hyperlinks as appropriate."
   "Return a list of files under DIRECTORY.
 Strips any leading \"./\" from each filename."
   ;;(message "hfy-list-files");;DBUG
   "Return a list of files under DIRECTORY.
 Strips any leading \"./\" from each filename."
   ;;(message "hfy-list-files");;DBUG

-  ;; FIXME: this changes the dir of the currrent buffer.  Is that right??
+  ;; FIXME: this changes the dir of the current buffer.  Is that right??

   (cd directory)
   (mapcar (lambda (F) (if (string-match "^./\\(.*\\)" F) (match-string 1 F) F))
           (split-string (shell-command-to-string hfy-find-cmd))) )
   (cd directory)
   (mapcar (lambda (F) (if (string-match "^./\\(.*\\)" F) (match-string 1 F) F))
           (split-string (shell-command-to-string hfy-find-cmd))) )

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 2640778c64b3bb2f254fd7ca891026293c23a443..6888056704d7f73bffdd87aefa274fa65b3dc9ef 100644 (file)
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1566,7 +1566,7 @@ of `ctext-non-standard-encodings-alist'.")
 
 ;; Return an alist of CHARSET vs CTEXT-USAGE-INFO generated from
 ;; `ctext-non-standard-encodings' and a list specified by the key
 
 ;; Return an alist of CHARSET vs CTEXT-USAGE-INFO generated from
 ;; `ctext-non-standard-encodings' and a list specified by the key

-;; `ctext-non-standard-encodings' for the currrent language
+;; `ctext-non-standard-encodings' for the current language

 ;; environment.  CTEXT-USAGE-INFO is one of the element of
 ;; `ctext-non-standard-encodings-alist' or nil.  In the former case, a
 ;; character in CHARSET is encoded using extended segment.  In the
 ;; environment.  CTEXT-USAGE-INFO is one of the element of
 ;; `ctext-non-standard-encodings-alist' or nil.  In the former case, a
 ;; character in CHARSET is encoded using extended segment.  In the

diff --git a/lisp/international/quail.el b/lisp/international/quail.el
index 3f83841f60d792a04f5405bab71ebf5e75f45198..bdbf2c07b7a15022cd53f4815f7cef7694258be4 100644 (file)
--- a/lisp/international/quail.el
+++ b/lisp/international/quail.el
@@ -2011,7 +2011,7 @@ minibuffer and the selected frame has no other windows)."
                 (set-window-dedicated-p win t))
              (quail-minibuffer-message
               (format " [%s]" current-input-method-title)))
                 (set-window-dedicated-p win t))
              (quail-minibuffer-message
               (format " [%s]" current-input-method-title)))

-         ;; Show the guidance in the next line of the currrent
+         ;; Show the guidance in the next line of the current

          ;; minibuffer.
          (quail-minibuffer-message
           (format "  [%s]\n%s"
          ;; minibuffer.
          (quail-minibuffer-message
           (format "  [%s]\n%s"

diff --git a/lisp/isearch.el b/lisp/isearch.el
index 2013d7f70783615eb257c9bf650cd03724a868e7..977de6ac4b013213598a91566aa5bd0aefba75a3 100644 (file)
--- a/lisp/isearch.el
+++ b/lisp/isearch.el
@@ -542,8 +542,8 @@ Each set is a vector of the form:
 (defvar isearch-string "")  ; The current search string.
 (defvar isearch-message "") ; text-char-description version of isearch-string
 
 (defvar isearch-string "")  ; The current search string.
 (defvar isearch-message "") ; text-char-description version of isearch-string
 

-(defvar isearch-message-prefix-add nil) ; Additonal text for the message prefix
-(defvar isearch-message-suffix-add nil) ; Additonal text for the message suffix
+(defvar isearch-message-prefix-add nil) ; Additional text for the message prefix
+(defvar isearch-message-suffix-add nil) ; Additional text for the message suffix

 
 (defvar isearch-success t)     ; Searching is currently successful.
 (defvar isearch-error nil)     ; Error message for failed search.
 
 (defvar isearch-success t)     ; Searching is currently successful.
 (defvar isearch-error nil)     ; Error message for failed search.

diff --git a/lisp/iswitchb.el b/lisp/iswitchb.el
index e8860cba5954579e4f3cae416684e0a5a196696e..a96fbf9253f06c93599c1b8a84e3b6ddf5b66ca7 100644 (file)
--- a/lisp/iswitchb.el
+++ b/lisp/iswitchb.el
@@ -1110,7 +1110,7 @@ Return the modified list with the last element prepended to it."
          (if (fboundp 'set-buffer-major-mode)
              (set-buffer-major-mode newbufcreated))
          (iswitchb-visit-buffer newbufcreated))
          (if (fboundp 'set-buffer-major-mode)
              (set-buffer-major-mode newbufcreated))
          (iswitchb-visit-buffer newbufcreated))

-      ;; else wont create new buffer
+      ;; else won't create new buffer

       (message "no buffer matching `%s'" buf))))
 
 (defun iswitchb-window-buffer-p  (buffer)
       (message "no buffer matching `%s'" buf))))
 
 (defun iswitchb-window-buffer-p  (buffer)

diff --git a/lisp/mail/rmail-spam-filter.el b/lisp/mail/rmail-spam-filter.el
index 70226b26965302a631be28064c7ae7daecdc6400..2bc0248506aa640819912865ff3f4741d7653d38 100644 (file)
--- a/lisp/mail/rmail-spam-filter.el
+++ b/lisp/mail/rmail-spam-filter.el
@@ -317,7 +317,7 @@ it from rmail file.  Called for each new message retrieved by
           ;; that this email is spam, output the email to the spam
           ;; rmail file, mark the email for deletion, leave the
           ;; while loop and return nil so that an rmail summary line
           ;; that this email is spam, output the email to the spam
           ;; rmail file, mark the email for deletion, leave the
           ;; while loop and return nil so that an rmail summary line

-          ;; wont be displayed for this message: (FIXME ?)
+          ;; won't be displayed for this message: (FIXME ?)

           (if (and (car maybe-spam) (cdr maybe-spam))
               (setq exit-while-loop t)
             ;; Else, spam was not yet found, proceed to next element
           (if (and (car maybe-spam) (cdr maybe-spam))
               (setq exit-while-loop t)
             ;; Else, spam was not yet found, proceed to next element

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index 488a4fdb9761628dadca0e175b9b571dd00ffe61..cbad30199d7d67b9df70f4ff8d793e002b50cf6c 100644 (file)
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -4027,7 +4027,7 @@ E.g.,
              (concat bestmatch "/")
            bestmatch)))))
 
              (concat bestmatch "/")
            bestmatch)))))
 

-;; Put these lines uncommmented in your .emacs if you want C-r to refresh
+;; Put these lines uncommented in your .emacs if you want C-r to refresh

 ;; ange-ftp's cache whilst doing filename completion.
 ;;
 ;;(define-key minibuffer-local-completion-map "\C-r" 'ange-ftp-re-read-dir)
 ;; ange-ftp's cache whilst doing filename completion.
 ;;
 ;;(define-key minibuffer-local-completion-map "\C-r" 'ange-ftp-re-read-dir)


@@ -4507,7 +4507,7 @@ NEWNAME should be the name to give the new compressed or uncompressed file.")
     ;; We used to follow symlinks on `file' here.  Apparently it was done
     ;; because some FTP servers react to "ls foo" by listing the symlink foo
     ;; rather than the directory it points to.  Now that ange-ftp-ls uses
     ;; We used to follow symlinks on `file' here.  Apparently it was done
     ;; because some FTP servers react to "ls foo" by listing the symlink foo
     ;; rather than the directory it points to.  Now that ange-ftp-ls uses

-    ;; "cd foo; ls" instead, this is not necesssary any more.
+    ;; "cd foo; ls" instead, this is not necessary any more.

     (let ((beg (point))
          (end (point-marker)))
       (set-marker-insertion-type end t)
     (let ((beg (point))
          (end (point-marker)))
       (set-marker-insertion-type end t)

diff --git a/lisp/net/newst-treeview.el b/lisp/net/newst-treeview.el
index 5e38a905ad56ce23e45caea937fa887f4eae37d1..7cfdd2cb89d6528200b39140b565ec1b4585aa69 100644 (file)
--- a/lisp/net/newst-treeview.el
+++ b/lisp/net/newst-treeview.el
@@ -227,7 +227,7 @@ their id stays constant."
         (string= (widget-get node1 :tag) (widget-get node2 :tag)))))
 
 (defun newsticker--treeview-do-get-node-of-feed (feed-name startnode)
         (string= (widget-get node1 :tag) (widget-get node2 :tag)))))
 
 (defun newsticker--treeview-do-get-node-of-feed (feed-name startnode)

-   "Recursivly search node for feed FEED-NAME starting from STARTNODE."
+   "Recursively search node for feed FEED-NAME starting from STARTNODE."

    ;;(message "%s/%s" feed-name (widget-get startnode :nt-feed))
    (if (string= feed-name (or (widget-get startnode :nt-feed)
                               (widget-get startnode :nt-vfeed)))
    ;;(message "%s/%s" feed-name (widget-get startnode :nt-feed))
    (if (string= feed-name (or (widget-get startnode :nt-feed)
                               (widget-get startnode :nt-vfeed)))


@@ -245,7 +245,7 @@ their id stays constant."
                                               newsticker--treeview-vfeed-tree)))
 
 (defun newsticker--treeview-do-get-node (id startnode)
                                               newsticker--treeview-vfeed-tree)))
 
 (defun newsticker--treeview-do-get-node (id startnode)

-   "Recursivly search node with ID starting from STARTNODE."
+   "Recursively search node with ID starting from STARTNODE."

    (if (newsticker--treeview-ids-eq id (widget-get startnode :nt-id))
        (throw 'found startnode)
      (let ((children (widget-get startnode :children)))
    (if (newsticker--treeview-ids-eq id (widget-get startnode :nt-id))
        (throw 'found startnode)
      (let ((children (widget-get startnode :children)))

diff --git a/lisp/net/quickurl.el b/lisp/net/quickurl.el
index 791e566fc8ebfa983e43f6ba909bec96c1c375a0..7a1e5fc6a80d047282dce47dac427258144343c4 100644 (file)
--- a/lisp/net/quickurl.el
+++ b/lisp/net/quickurl.el
@@ -189,7 +189,7 @@ in your ~/.emacs (after loading/requiring quickurl).")
   "Local keymap for a `quickurl-list-mode' buffer.")
 
 (defvar quickurl-list-buffer-name "*quickurl-list*"
   "Local keymap for a `quickurl-list-mode' buffer.")
 
 (defvar quickurl-list-buffer-name "*quickurl-list*"

-  "Name for the URL listinig buffer.")
+  "Name for the URL listing buffer.")

 
 (defvar quickurl-list-last-buffer nil
   "`current-buffer' when `quickurl-list' was called.")
 
 (defvar quickurl-list-last-buffer nil
   "`current-buffer' when `quickurl-list' was called.")

diff --git a/lisp/net/secrets.el b/lisp/net/secrets.el
index 173ba9c3d20f143c0cd90f1657e0b6204858fc8f..7e0eaff1dce51dd630566781fdef99f1e94886d8 100644 (file)
--- a/lisp/net/secrets.el
+++ b/lisp/net/secrets.el
@@ -379,7 +379,7 @@ returned, and it will be stored in `secrets-session-path'."
 (defun secrets-prompt-handler (&rest args)
   "Handler for signals emitted by `secrets-interface-prompt'."
   ;; An empty object path is always identified as `secrets-empty-path'
 (defun secrets-prompt-handler (&rest args)
   "Handler for signals emitted by `secrets-interface-prompt'."
   ;; An empty object path is always identified as `secrets-empty-path'

-  ;; or `nil'.  Either we set it explicitely, or it is returned by the
+  ;; or `nil'.  Either we set it explicitly, or it is returned by the

   ;; "Completed" signal.
   (if (car args) ;; dismissed
       (setq secrets-prompt-signal (list secrets-empty-path))
   ;; "Completed" signal.
   (if (car args) ;; dismissed
       (setq secrets-prompt-signal (list secrets-empty-path))

diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog
index d4f993fedf66ffd38b5e599d8d7e5bc4967e435d..9d7b7c658c1b867c535b0b9b00120ff207cc0ce7 100644 (file)
--- a/lisp/org/ChangeLog
+++ b/lisp/org/ChangeLog
@@ -13808,7 +13808,7 @@
 
 2009-08-06  Bastien Guerry  <bzg@altern.org>
 
 
 2009-08-06  Bastien Guerry  <bzg@altern.org>
 

-       * org.el (org-special-ctrl-a/e): Explicitely bind the value
+       * org.el (org-special-ctrl-a/e): Explicitly bind the value

        'reversed for this option to the "true line boundary first"
        behavior.
        (org-tags-match-list-sublevels): Document the 'indented value for
        'reversed for this option to the "true line boundary first"
        behavior.
        (org-tags-match-list-sublevels): Document the 'indented value for


@@ -16482,7 +16482,7 @@
 2008-11-23  Carsten Dominik  <carsten.dominik@gmail.com>
 
        * org-export-latex.el (org-export-latex-subcontent):
 2008-11-23  Carsten Dominik  <carsten.dominik@gmail.com>
 
        * org-export-latex.el (org-export-latex-subcontent):

-       Interprete target aliases as additional labels.
+       Interpret target aliases as additional labels.

 
        * org-exp.el (org-export-target-aliases): New variable.
        (org-export-preprocess-string)
 
        * org-exp.el (org-export-target-aliases): New variable.
        (org-export-preprocess-string)


@@ -17290,7 +17290,7 @@
        (org-edit-fixed-width-region): Also try
        `org-edit-fixed-width-region'.
        (org-edit-fixed-width-region-mode): New option.
        (org-edit-fixed-width-region): Also try
        `org-edit-fixed-width-region'.
        (org-edit-fixed-width-region-mode): New option.

-       (org-activate-code): Only interprete lines starting with colon
+       (org-activate-code): Only interpret lines starting with colon

        plus a space as example lines.
 
        * org-remember.el (org-remember-templates): Add nil instead of
        plus a space as example lines.
 
        * org-remember.el (org-remember-templates): Add nil instead of

diff --git a/lisp/org/ob-haskell.el b/lisp/org/ob-haskell.el
index cae07036c57519336d68a2e3fa39e6d44cb83120..236dbba28f1ee53124556b8cd58528ba7b32a5eb 100644 (file)
--- a/lisp/org/ob-haskell.el
+++ b/lisp/org/ob-haskell.el
@@ -29,7 +29,7 @@
 ;; they can be run, but haskell code can also be run through an
 ;; interactive interpreter.
 ;;
 ;; they can be run, but haskell code can also be run through an
 ;; interactive interpreter.
 ;;

-;; For now lets only allow evaluation using the haskell interpreter.
+;; For now let's only allow evaluation using the haskell interpreter.

 
 ;;; Requirements:
 
 
 ;;; Requirements:
 


@@ -80,7 +80,7 @@
                    (cdr (member org-babel-haskell-eoe
                                 (reverse (mapcar #'org-babel-trim raw)))))))
     (org-babel-reassemble-table
                    (cdr (member org-babel-haskell-eoe
                                 (reverse (mapcar #'org-babel-trim raw)))))))
     (org-babel-reassemble-table

-     (cond 
+     (cond

       ((equal result-type 'output)
        (mapconcat #'identity (reverse (cdr results)) "\n"))
       ((equal result-type 'value)
       ((equal result-type 'output)
        (mapconcat #'identity (reverse (cdr results)) "\n"))
       ((equal result-type 'value)

diff --git a/lisp/org/ob-ocaml.el b/lisp/org/ob-ocaml.el
index ee7a7cc212c01b11a19d773306c18926d071108f..78d309b9e138f2b52db121e0b57e612c6d099d78 100644 (file)
--- a/lisp/org/ob-ocaml.el
+++ b/lisp/org/ob-ocaml.el
@@ -29,7 +29,7 @@
 ;; they can be run, but ocaml code can also be run through an
 ;; interactive interpreter.
 ;;
 ;; they can be run, but ocaml code can also be run through an
 ;; interactive interpreter.
 ;;

-;; For now lets only allow evaluation using the ocaml interpreter.
+;; For now let's only allow evaluation using the ocaml interpreter.

 
 ;;; Requirements:
 
 
 ;;; Requirements:
 


@@ -99,7 +99,7 @@
    (lambda (pair) (format "let %s = %s;;" (car pair)
                          (org-babel-ocaml-elisp-to-ocaml (cdr pair))))
    (mapcar #'cdr (org-babel-get-header params :var))))
    (lambda (pair) (format "let %s = %s;;" (car pair)
                          (org-babel-ocaml-elisp-to-ocaml (cdr pair))))
    (mapcar #'cdr (org-babel-get-header params :var))))

-  
+

 (defun org-babel-ocaml-elisp-to-ocaml (val)
   "Return a string of ocaml code which evaluates to VAL."
   (if (listp val)
 (defun org-babel-ocaml-elisp-to-ocaml (val)
   "Return a string of ocaml code which evaluates to VAL."
   (if (listp val)

diff --git a/lisp/org/ob-sql.el b/lisp/org/ob-sql.el
index 9274438c18e9de0a973f7e40b16d565aea251260..7a5c7c8a46a383e15211eb59b685056dd83d88c2 100644 (file)
--- a/lisp/org/ob-sql.el
+++ b/lisp/org/ob-sql.el
@@ -32,7 +32,7 @@
 ;;
 ;; Also SQL evaluation generally takes place inside of a database.
 ;;
 ;;
 ;; Also SQL evaluation generally takes place inside of a database.
 ;;

-;; For now lets just allow a generic ':cmdline' header argument.
+;; For now let's just allow a generic ':cmdline' header argument.

 ;;
 ;; TODO:
 ;;
 ;;
 ;; TODO:
 ;;


@@ -40,7 +40,7 @@
 ;; - add more useful header arguments (user, passwd, database, etc...)
 ;; - support for more engines (currently only supports mysql)
 ;; - what's a reasonable way to drop table data into SQL?
 ;; - add more useful header arguments (user, passwd, database, etc...)
 ;; - support for more engines (currently only supports mysql)
 ;; - what's a reasonable way to drop table data into SQL?

-;; 
+;;

 
 ;;; Code:
 (require 'ob)
 
 ;;; Code:
 (require 'ob)

diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el
index 53a0c5587a24c82ee6e17367542c64be373dce49..1d0802dcda53a240da7a4ce186d1fe73dca429a2 100644 (file)
--- a/lisp/org/org-agenda.el
+++ b/lisp/org/org-agenda.el
@@ -5059,7 +5059,7 @@ See also the user option `org-agenda-clock-consistency-checks'."
                              (/ (- tlend ts) 60))
                face (or (plist-get pl :overlap-face) face)))
         ((and (> tlend 0) (> ts (+ tlend (* 60 maxgap))))
                              (/ (- tlend ts) 60))
                face (or (plist-get pl :overlap-face) face)))
         ((and (> tlend 0) (> ts (+ tlend (* 60 maxgap))))

-         ;; There is a gap, lets see if we need to report it
+         ;; There is a gap, let's see if we need to report it

          (unless (org-agenda-check-clock-gap tlend ts gapok)
            (setq issue (format "Clocking gap: %d minutes"
                                  (/ (- ts tlend) 60))
          (unless (org-agenda-check-clock-gap tlend ts gapok)
            (setq issue (format "Clocking gap: %d minutes"
                                  (/ (- ts tlend) 60))

diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el
index de5087e163cbc8da228877bb7714212309cb4948..b1a8a4b9fdb81426a2f14a3034366956bca0a14c 100644 (file)
--- a/lisp/org/org-clock.el
+++ b/lisp/org/org-clock.el
@@ -1261,7 +1261,7 @@ line and position cursor in that line."
            (and (re-search-forward org-property-end-re nil t)
                 (goto-char (match-beginning 0))))
        (throw 'exit t))
            (and (re-search-forward org-property-end-re nil t)
                 (goto-char (match-beginning 0))))
        (throw 'exit t))

-      ;; Lets count the CLOCK lines
+      ;; Let's count the CLOCK lines

       (goto-char beg)
       (while (re-search-forward re end t)
        (setq first (or first (match-beginning 0))
       (goto-char beg)
       (while (re-search-forward re end t)
        (setq first (or first (match-beginning 0))


@@ -2641,4 +2641,3 @@ The details of what will be saved are regulated by the variable
 
 
 ;;; org-clock.el ends here
 
 
 ;;; org-clock.el ends here

-

diff --git a/lisp/org/org-remember.el b/lisp/org/org-remember.el
index 2bc5ef92ae72657d2d373c7297ccf04129214399..e15debfd90ced8463fc0695d08dcc6b8899ea725 100644 (file)
--- a/lisp/org/org-remember.el
+++ b/lisp/org/org-remember.el
@@ -1122,7 +1122,7 @@ See also the variable `org-reverse-note-order'."
   (condition-case nil
       (require 'remember)
     (error
   (condition-case nil
       (require 'remember)
     (error

-     ;; Lets install our own micro version of remember
+     ;; Let's install our own micro version of remember

      (defvar remember-register ?R)
      (defvar remember-mode-hook nil)
      (defvar remember-handler-functions nil)
      (defvar remember-register ?R)
      (defvar remember-mode-hook nil)
      (defvar remember-handler-functions nil)


@@ -1153,4 +1153,3 @@ See also the variable `org-reverse-note-order'."
 
 
 ;;; org-remember.el ends here
 
 
 ;;; org-remember.el ends here

-

diff --git a/lisp/org/org-table.el b/lisp/org/org-table.el
index 7f49b3236ee1faf06a5d70843b01384416df9d53..2fba931528eeeb0d2860b2ceb8e53855c4f863a8 100644 (file)
--- a/lisp/org/org-table.el
+++ b/lisp/org/org-table.el
@@ -2204,7 +2204,7 @@ For all numbers larger than LIMIT, shift them by DELTA."
                     (string-match "^[a-zA-Z][a-zA-Z0-9]*$" field))
              (push (cons field v) org-table-local-parameters)
              (push (list field line col) org-table-named-field-locations))))
                     (string-match "^[a-zA-Z][a-zA-Z0-9]*$" field))
              (push (cons field v) org-table-local-parameters)
              (push (list field line col) org-table-named-field-locations))))

-      ;; Analyse the line types
+      ;; Analyze the line types

       (goto-char beg)
       (setq org-table-current-begin-line (org-current-line)
            org-table-current-begin-pos (point)
       (goto-char beg)
       (setq org-table-current-begin-line (org-current-line)
            org-table-current-begin-pos (point)


@@ -2432,7 +2432,7 @@ not overwrite the stored one."
                      duration-output-format nil
                      fmt (replace-match "" t t fmt)))
            (if (string-match "t" fmt)
                      duration-output-format nil
                      fmt (replace-match "" t t fmt)))
            (if (string-match "t" fmt)

-               (setq duration t 
+               (setq duration t

                      duration-output-format org-table-duration-custom-format
                      numbers t
                      fmt (replace-match "" t t fmt)))
                      duration-output-format org-table-duration-custom-format
                      numbers t
                      fmt (replace-match "" t t fmt)))


@@ -2500,7 +2500,7 @@ not overwrite the stored one."
        ;; Insert complex ranges
        (while (and (string-match org-table-range-regexp form)
                    (> (length (match-string 0 form)) 1))
        ;; Insert complex ranges
        (while (and (string-match org-table-range-regexp form)
                    (> (length (match-string 0 form)) 1))

-         (setq formrg (save-match-data 
+         (setq formrg (save-match-data

                         (org-table-get-range (match-string 0 form) nil n0)))
          (setq formrpl
                (save-match-data
                         (org-table-get-range (match-string 0 form) nil n0)))
          (setq formrpl
                (save-match-data


@@ -4723,4 +4723,3 @@ list of the fields in the rectangle ."
 
 
 ;;; org-table.el ends here
 
 
 ;;; org-table.el ends here

-

diff --git a/lisp/outline.el b/lisp/outline.el
index 34d30fc4591e310441b88d235cd8ff85d8468167..b5bf8296455ae5b6c283c04566fc92017aa9058c 100644 (file)
--- a/lisp/outline.el
+++ b/lisp/outline.el
@@ -144,10 +144,10 @@ in the file it applies to."
                  :help "Promote headings higher up the tree"))
     (define-key map [headings move-subtree-down]
       '(menu-item "Move Subtree Down" outline-move-subtree-down
                  :help "Promote headings higher up the tree"))
     (define-key map [headings move-subtree-down]
       '(menu-item "Move Subtree Down" outline-move-subtree-down

-                 :help "Move the currrent subtree down past arg headlines of the same level"))
+                 :help "Move the current subtree down past arg headlines of the same level"))

     (define-key map [headings move-subtree-up]
       '(menu-item "Move Subtree Up" outline-move-subtree-up
     (define-key map [headings move-subtree-up]
       '(menu-item "Move Subtree Up" outline-move-subtree-up

-                 :help "Move the currrent subtree up past arg headlines of the same level"))
+                 :help "Move the current subtree up past arg headlines of the same level"))

     (define-key map [headings copy]
       '(menu-item "Copy to Kill Ring" outline-headers-as-kill
                  :enable mark-active
     (define-key map [headings copy]
       '(menu-item "Copy to Kill Ring" outline-headers-as-kill
                  :enable mark-active


@@ -642,12 +642,12 @@ the match data is set appropriately."
 ;; Vertical tree motion
 
 (defun outline-move-subtree-up (&optional arg)
 ;; Vertical tree motion
 
 (defun outline-move-subtree-up (&optional arg)

-  "Move the currrent subtree up past ARG headlines of the same level."
+  "Move the current subtree up past ARG headlines of the same level."

   (interactive "p")
   (outline-move-subtree-down (- arg)))
 
 (defun outline-move-subtree-down (&optional arg)
   (interactive "p")
   (outline-move-subtree-down (- arg)))
 
 (defun outline-move-subtree-down (&optional arg)

-  "Move the currrent subtree down past ARG headlines of the same level."
+  "Move the current subtree down past ARG headlines of the same level."

   (interactive "p")
   (let ((movfunc (if (> arg 0) 'outline-get-next-sibling
                   'outline-get-last-sibling))
   (interactive "p")
   (let ((movfunc (if (> arg 0) 'outline-get-next-sibling
                   'outline-get-last-sibling))

diff --git a/lisp/progmodes/cc-awk.el b/lisp/progmodes/cc-awk.el
index d55e5ce23b403abb8a4f7d565aaa7078876ddfbd..74f9acab5b53d35e14a18b588b21132b40b769d2 100644 (file)
--- a/lisp/progmodes/cc-awk.el
+++ b/lisp/progmodes/cc-awk.el
@@ -718,7 +718,7 @@
   ;; This function does hidden buffer changes.
   (let ((/point (point)))
     (goto-char anchor)
   ;; This function does hidden buffer changes.
   (let ((/point (point)))
     (goto-char anchor)

-    ;; Analyse the line to find out what the / is.
+    ;; Analyze the line to find out what the / is.

     (if (if anchor-state-/div
             (not (search-forward-regexp c-awk-regexp-sign-re (1+ /point) t))
           (search-forward-regexp c-awk-div-sign-re (1+ /point) t))
     (if (if anchor-state-/div
             (not (search-forward-regexp c-awk-regexp-sign-re (1+ /point) t))
           (search-forward-regexp c-awk-div-sign-re (1+ /point) t))


@@ -847,7 +847,7 @@
 
 ;; Awk regexps written with help from Peter Galbraith
 ;; <galbraith@mixing.qc.dfo.ca>.
 
 ;; Awk regexps written with help from Peter Galbraith
 ;; <galbraith@mixing.qc.dfo.ca>.

-;; Take GNU Emacs's 'words out of the following regexp-opts.  They dont work
+;; Take GNU Emacs's 'words out of the following regexp-opts.  They don't work

 ;; in XEmacs 21.4.4.  acm 2002/9/19.
 (defconst awk-font-lock-keywords
   (eval-when-compile
 ;; in XEmacs 21.4.4.  acm 2002/9/19.
 (defconst awk-font-lock-keywords
   (eval-when-compile

diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el
index 151dbd0c76e919704ea24258a97df90b080955a7..68f31c55e71291fa4fd38bd035da2ab654399c84 100644 (file)
--- a/lisp/progmodes/cc-cmds.el
+++ b/lisp/progmodes/cc-cmds.el
@@ -1042,7 +1042,7 @@ reindented unless `c-syntactic-indentation' is nil.
                  (setcar (car elem) 'label))
              (setq elem (cdr elem)))
            ;; some language elements can only be determined by checking
                  (setcar (car elem) 'label))
              (setq elem (cdr elem)))
            ;; some language elements can only be determined by checking

-           ;; the following line.  Lets first look for ones that can be
+           ;; the following line.  Let's first look for ones that can be

            ;; found when looking on the line with the colon
            (setq newlines
                  (and c-auto-newline
            ;; found when looking on the line with the colon
            (setq newlines
                  (and c-auto-newline

diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el
index 6f3004e274a0fa7017d0b74b7aafaaf2e545c9b9..d56d5ae7c1ac2bb801f2a2fe437956f9c4fc9750 100644 (file)
--- a/lisp/progmodes/cc-engine.el
+++ b/lisp/progmodes/cc-engine.el
@@ -2302,7 +2302,7 @@ comment at the start of cc-engine.el for more info."
 ;; `c-parse-state', or nil.
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; `c-parse-state', or nil.
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

-;; Defuns which analyse the buffer, yet don't change `c-state-cache'.
+;; Defuns which analyze the buffer, yet don't change `c-state-cache'.

 (defun c-get-fallback-scan-pos (here)
   ;; Return a start position for building `c-state-cache' from
   ;; scratch.  This will be at the top level, 2 defuns back.
 (defun c-get-fallback-scan-pos (here)
   ;; Return a start position for building `c-state-cache' from
   ;; scratch.  This will be at the top level, 2 defuns back.

diff --git a/lisp/progmodes/dcl-mode.el b/lisp/progmodes/dcl-mode.el
index b4094914d61fad5e0db3d446fe6641dd0af32180..d855861d552a9152d441cb68e2eb1aefd63604d4 100644 (file)
--- a/lisp/progmodes/dcl-mode.el
+++ b/lisp/progmodes/dcl-mode.el
@@ -512,7 +512,7 @@ Variables controlling indentation style and extra features:
  dcl-block-begin-regexp
  dcl-block-end-regexp
     Regexps that match command lines that begin and end, respectively,
  dcl-block-begin-regexp
  dcl-block-end-regexp
     Regexps that match command lines that begin and end, respectively,

-    a block of commmand lines that will be given extra indentation.
+    a block of command lines that will be given extra indentation.

     Command lines between THEN-ELSE-ENDIF are always indented; these variables
     make it possible to define other places to indent.
     Set to nil to disable this feature.
     Command lines between THEN-ELSE-ENDIF are always indented; these variables
     make it possible to define other places to indent.
     Set to nil to disable this feature.

diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 53807b8de30cd07601086d1caa99372f16881d65..cf7485830f6e54f8fb0e0d89d500ff39d3971e9a 100644 (file)
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -2217,7 +2217,7 @@ Return position where LINE begins."
 (defun gdb-mapcar* (function &rest seqs)
   "Apply FUNCTION to each element of SEQS, and make a list of the results.
 If there are several SEQS, FUNCTION is called with that many
 (defun gdb-mapcar* (function &rest seqs)
   "Apply FUNCTION to each element of SEQS, and make a list of the results.
 If there are several SEQS, FUNCTION is called with that many

-arguments, and mapping stops as sson as the shortest list runs
+arguments, and mapping stops as soon as the shortest list runs

 out."
   (let ((shortest (apply #'min (mapcar #'length seqs))))
     (mapcar (lambda (i)
 out."
   (let ((shortest (apply #'min (mapcar #'length seqs))))
     (mapcar (lambda (i)

diff --git a/lisp/progmodes/sql.el b/lisp/progmodes/sql.el
index 3166abb21a7b04f42f5b4b75b3694c803b6e1d1b..af9ab5378933d931f847f06a052d911c0918ce5d 100644 (file)
--- a/lisp/progmodes/sql.el
+++ b/lisp/progmodes/sql.el
@@ -1595,7 +1595,7 @@ to add functions and PL/SQL keywords.")
 "cast" "ceil" "chartorowid" "chr" "cluster_id" "cluster_probability"
 "cluster_set" "coalesce" "collect" "compose" "concat" "convert" "corr"
 "corr_k" "corr_s" "cos" "cosh" "count" "covar_pop" "covar_samp"
 "cast" "ceil" "chartorowid" "chr" "cluster_id" "cluster_probability"
 "cluster_set" "coalesce" "collect" "compose" "concat" "convert" "corr"
 "corr_k" "corr_s" "cos" "cosh" "count" "covar_pop" "covar_samp"

-"cube_table" "cume_dist" "currrent_date" "currrent_timestamp" "cv"
+"cube_table" "cume_dist" "current_date" "current_timestamp" "cv"

 "dataobj_to_partition" "dbtimezone" "decode" "decompose" "deletexml"
 "dense_rank" "depth" "deref" "dump" "empty_blob" "empty_clob"
 "existsnode" "exp" "extract" "extractvalue" "feature_id" "feature_set"
 "dataobj_to_partition" "dbtimezone" "decode" "decompose" "deletexml"
 "dense_rank" "depth" "deref" "dump" "empty_blob" "empty_clob"
 "existsnode" "exp" "extract" "extractvalue" "feature_id" "feature_set"

diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el
index a8ff759717e373213c69402bdf9f7f14c022759b..1cdac2335f29acf5bdeb6ab9902db5eca9fe7f7a 100644 (file)
--- a/lisp/progmodes/vhdl-mode.el
+++ b/lisp/progmodes/vhdl-mode.el
@@ -2131,7 +2131,7 @@ Ignore byte-compiler warnings you might see."
   (if (fboundp 'start-itimer)
       (start-itimer "vhdl-mode" function secs repeat t)
 ;    (run-with-idle-timer secs repeat function)))
   (if (fboundp 'start-itimer)
       (start-itimer "vhdl-mode" function secs repeat t)
 ;    (run-with-idle-timer secs repeat function)))

-    ;; explicitely activate timer (necessary when Emacs is already idle)
+    ;; explicitly activate timer (necessary when Emacs is already idle)

     (aset (run-with-idle-timer secs repeat function) 0 nil)))
 
 (defun vhdl-warning-when-idle (&rest args)
     (aset (run-with-idle-timer secs repeat function) 0 nil)))
 
 (defun vhdl-warning-when-idle (&rest args)

diff --git a/lisp/simple.el b/lisp/simple.el
index 333ff996ec80bfdf291f29c80a79fab5b29b687a..ca50282df15de8c48d1591f5bc79e7e0b1ae152d 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -4324,7 +4324,7 @@ lines when the window is horizontally scrolled."
          (when (> rbot 0)
            (set-window-vscroll nil (+ vs (min rbot (frame-char-height))) t)))
         ;; If cursor just entered the bottom scroll margin, move forward,
          (when (> rbot 0)
            (set-window-vscroll nil (+ vs (min rbot (frame-char-height))) t)))
         ;; If cursor just entered the bottom scroll margin, move forward,

-        ;; but also vscroll one line so redisplay wont recenter.
+        ;; but also vscroll one line so redisplay won't recenter.

         ((and (> vpos 0)
               (= py (min (- (window-text-height) scroll-margin 1)
                          (1- vpos))))
         ((and (> vpos 0)
               (= py (min (- (window-text-height) scroll-margin 1)
                          (1- vpos))))

diff --git a/lisp/textmodes/reftex-index.el b/lisp/textmodes/reftex-index.el
index 79df6135806e74a62a6104a1acc5c03b505bab67..f0ceaa74d2670e3a167de100aa7a06762baeaafd 100644 (file)
--- a/lisp/textmodes/reftex-index.el
+++ b/lisp/textmodes/reftex-index.el
@@ -663,7 +663,7 @@ SPC=view TAB=goto RET=goto+hide [e]dit [q]uit [r]escan [f]ollow [?]Help
     (insert "\n")))
 
 (defun reftex-get-restriction (arg docstruct)
     (insert "\n")))
 
 (defun reftex-get-restriction (arg docstruct)

-  ;; Interprete the prefix ARG and derive index restriction specs.
+  ;; Interpret the prefix ARG and derive index restriction specs.

   (let* ((beg (min (point) (or (condition-case nil (mark) (error nil))
                                (point-max))))
          (end (max (point) (or (condition-case nil (mark) (error nil))
   (let* ((beg (min (point) (or (condition-case nil (mark) (error nil))
                                (point-max))))
          (end (max (point) (or (condition-case nil (mark) (error nil))

diff --git a/lisp/textmodes/reftex-ref.el b/lisp/textmodes/reftex-ref.el
index b47f2f6c2e9c780419e67d15a38b86b63cf77e74..d622603236eebb8bde74b4b096db8f3beb56d225 100644 (file)
--- a/lisp/textmodes/reftex-ref.el
+++ b/lisp/textmodes/reftex-ref.el
@@ -206,7 +206,7 @@ This function is controlled by the settings of reftex-insert-label-flags."
                          (if naked "Naked Label: " "Label: ")
                          default))
 
                          (if naked "Naked Label: " "Label: ")
                          default))
 

-            ;; Lets make sure that this is a valid label
+            ;; Let's make sure that this is a valid label

             (cond
 
              ((string-match (concat "\\`\\(" (regexp-quote prefix)
             (cond
 
              ((string-match (concat "\\`\\(" (regexp-quote prefix)

diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el
index 3ac0aa0f65defaab6ca12162cc477dbc8da858f9..c4dbd365c43db21aaac9f51fac03e1793afb485d 100644 (file)
--- a/lisp/textmodes/reftex.el
+++ b/lisp/textmodes/reftex.el
@@ -688,7 +688,7 @@ on the menu bar.
               (TeX-master-file t)
             (error (buffer-file-name))))
          ((fboundp 'tex-main-file) (tex-main-file)) ; Emacs LaTeX mode
               (TeX-master-file t)
             (error (buffer-file-name))))
          ((fboundp 'tex-main-file) (tex-main-file)) ; Emacs LaTeX mode

-         ((boundp 'TeX-master)       ; The variable is defined - lets use it.
+         ((boundp 'TeX-master)       ; The variable is defined - let's use it.

           (cond
            ((eq TeX-master t)
             (buffer-file-name))
           (cond
            ((eq TeX-master t)
             (buffer-file-name))


@@ -1612,7 +1612,7 @@ When DIE is non-nil, throw an error if file not found."
 (defun reftex-find-file-externally (file type &optional master-dir)
   ;; Use external program to find FILE.
   ;; The program is taken from `reftex-external-file-finders'.
 (defun reftex-find-file-externally (file type &optional master-dir)
   ;; Use external program to find FILE.
   ;; The program is taken from `reftex-external-file-finders'.

-  ;; Interprete relative path definitions starting from MASTER-DIR.
+  ;; Interpret relative path definitions starting from MASTER-DIR.

   (let ((default-directory (or master-dir default-directory))
         (prg (cdr (assoc type reftex-external-file-finders)))
         out)
   (let ((default-directory (or master-dir default-directory))
         (prg (cdr (assoc type reftex-external-file-finders)))
         out)


@@ -2058,7 +2058,7 @@ When DIE is non-nil, throw an error if file not found."
                (with-current-buffer buf
                  (run-hooks 'reftex-initialize-temporary-buffers))))
 
                (with-current-buffer buf
                  (run-hooks 'reftex-initialize-temporary-buffers))))
 

-           ;; Lets see if we got a license to kill :-|
+           ;; Let's see if we got a license to kill :-|

            (and mark-to-kill
                 (add-to-list 'reftex-buffers-to-kill buf))
 
            (and mark-to-kill
                 (add-to-list 'reftex-buffers-to-kill buf))
 

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 5eb22bb8614aea81b0ceebe6877e8ab71660e29a..47f006eebda9918890822ddca5358463f51e9146 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,7 @@
+2011-11-15  Juanma Barranquero  <lekktu@gmail.com>
+
+       * url-dav.el (url-dav-delete-file): Fix typo.
+

 2011-11-14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * url-http.el (url-http-async-sentinel): If the server hangs up
 2011-11-14  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
        * url-http.el (url-http-async-sentinel): If the server hangs up

diff --git a/lisp/url/url-dav.el b/lisp/url/url-dav.el
index 95ab2623fff556aa61322e704d09c1ec68380933..9e29de0cbede1b47cda3bdd8031853bb317fa60a 100644 (file)
--- a/lisp/url/url-dav.el
+++ b/lisp/url/url-dav.el
@@ -117,7 +117,7 @@
     ;; We need to populate 'time' with
     ;; (SEC MIN HOUR DAY MON YEAR DOW DST TZ)
 
     ;; We need to populate 'time' with
     ;; (SEC MIN HOUR DAY MON YEAR DOW DST TZ)
 

-    ;; Nobody else handles iso8601 correctly, lets do it ourselves.
+    ;; Nobody else handles iso8601 correctly, let's do it ourselves.

     (when (string-match date-re date-string re-start)
       (setq year (string-to-number (match-string 1 date-string))
            month (string-to-number (match-string 2 date-string))
     (when (string-match date-re date-string re-start)
       (setq year (string-to-number (match-string 1 date-string))
            month (string-to-number (match-string 2 date-string))


@@ -430,7 +430,7 @@ added to this list, so most requests can just pass in nil."
   ;; Take care of the default value for depth...
   (setq depth (or depth 0))
 
   ;; Take care of the default value for depth...
   (setq depth (or depth 0))
 

-  ;; Now lets translate it into something webdav can understand.
+  ;; Now let's translate it into something webdav can understand.

   (if (< depth 0)
       (setq depth "Infinity")
     (setq depth (int-to-string depth)))
   (if (< depth 0)
       (setq depth "Infinity")
     (setq depth (int-to-string depth)))


@@ -762,7 +762,7 @@ files in the collection as well."
            (setq status (plist-get (cdr result) 'DAV:status))
            (if (not (url-dav-http-success-p status))
                (signal 'file-error (list "Removing old name"
            (setq status (plist-get (cdr result) 'DAV:status))
            (if (not (url-dav-http-success-p status))
                (signal 'file-error (list "Removing old name"

-                                         "Errror removing"
+                                         "Error removing"

                                          (car result) status))))
          props))
   nil)
                                          (car result) status))))
          props))
   nil)

diff --git a/nt/preprep.c b/nt/preprep.c
index 6b764afdeab4cd6490f80803e2a5d070e8749cd0..7541536714cdaa7e5a05150ae4c0fad6641e8205 100644 (file)
--- a/nt/preprep.c
+++ b/nt/preprep.c
@@ -321,7 +321,7 @@ relocate_offset (DWORD offset,
    variables, because of dumping.]
 
    We could potentially generate the relocation data ourselves by making
    variables, because of dumping.]
 
    We could potentially generate the relocation data ourselves by making

-   two versions of temacs, one with an extra dummmy section before
+   two versions of temacs, one with an extra dummy section before

    EMHEAP to offset it, and then compare the dumped executables from
    both.  That is a lot of work though, and it doesn't solve the problem
    of dumped pointers to static variables, which also can be relocated.
    EMHEAP to offset it, and then compare the dumped executables from
    both.  That is a lot of work though, and it doesn't solve the problem
    of dumped pointers to static variables, which also can be relocated.


@@ -825,4 +825,3 @@ main (int argc, char **argv)
 }
 
 /* eof */
 }
 
 /* eof */

-

diff --git a/oldXMenu/Internal.c b/oldXMenu/Internal.c
index 102de9d7a564a20f25e991ab24baa0ad8eb7329c..a779cda82f58340b93025688147069c7856034d1 100644 (file)
--- a/oldXMenu/Internal.c
+++ b/oldXMenu/Internal.c
@@ -968,7 +968,7 @@ _XMRefreshSelection(register Display *display, register XMenu *menu, register XM
             /*
             * Using BOX mode.
              * Since most drawing routines with arbitrary width lines
             /*
             * Using BOX mode.
              * Since most drawing routines with arbitrary width lines

-            * are slow compared to raster-ops lets use a raster-op to
+            * are slow compared to raster-ops let's use a raster-op to

             * draw the boxes.
              */
 
             * draw the boxes.
              */
 

diff --git a/src/ChangeLog b/src/ChangeLog
index 860c019eb0119460752bd1032e6fbb0a102fc902..e8bd3ac3e1f2e5786acd0256aedb46ad620fc15d 100644 (file)
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2011-11-15  Juanma Barranquero  <lekktu@gmail.com>
+
+       * image.c (imagemagick_load_image): Fix typo.
+

 2011-11-14  Eli Zaretskii  <eliz@gnu.org>
 
        * xdisp.c (display_line): Move the call to
 2011-11-14  Eli Zaretskii  <eliz@gnu.org>
 
        * xdisp.c (display_line): Move the call to

diff --git a/src/ChangeLog.4 b/src/ChangeLog.4
index dc8fe23a221dc497b2bb59cf2674e4b67d298b55..208d9c2cdb053c530bd25d76296cdfa849fe75e9 100644 (file)
--- a/src/ChangeLog.4
+++ b/src/ChangeLog.4
@@ -811,7 +811,7 @@
 
 1994-04-28  Michael D. Ernst  (mernst@monozygote.research.microsoft.com)
 
 
 1994-04-28  Michael D. Ernst  (mernst@monozygote.research.microsoft.com)
 

-       * fileio.c (inhibit-file-name-handers): Correct documentation.
+       * fileio.c (inhibit-file-name-handlers): Correct documentation.

 
 1994-04-28  Karl Heuer  (kwzh@hal.gnu.ai.mit.edu)
 
 
 1994-04-28  Karl Heuer  (kwzh@hal.gnu.ai.mit.edu)
 


@@ -1885,7 +1885,7 @@
 1994-03-22  Frederic Pierresteguy  (fp@mole.gnu.ai.mit.edu)
 
        * widget.c (set_frame_size): Put #if 0 around a lot of useless code.
 1994-03-22  Frederic Pierresteguy  (fp@mole.gnu.ai.mit.edu)
 
        * widget.c (set_frame_size): Put #if 0 around a lot of useless code.

-       Compute explicitely the geometry of the toplevel widget.
+       Compute explicitly the geometry of the toplevel widget.

        Call XtSetValues not XtVaSetValues.
 
 1994-03-22  Richard Stallman  (rms@mole.gnu.ai.mit.edu)
        Call XtSetValues not XtVaSetValues.
 
 1994-03-22  Richard Stallman  (rms@mole.gnu.ai.mit.edu)

diff --git a/src/ChangeLog.9 b/src/ChangeLog.9
index 1a4abfab61b2b927e9f06fb950b3c728bc970ec4..9e7bd24f79279f170806c86fdf11be03f5cac203 100644 (file)
--- a/src/ChangeLog.9
+++ b/src/ChangeLog.9
@@ -8409,7 +8409,7 @@
        (encode_coding_iso2022): New local variable safe_chars.  Check
        unsafe chars.
        (setup_coding_system): Delete the code to initialize
        (encode_coding_iso2022): New local variable safe_chars.  Check
        unsafe chars.
        (setup_coding_system): Delete the code to initialize

-       coding->safe_charses.
+       coding->safe_charsets.

        (intersection, find_safe_codings): New functions.
        (Ffind_coding_systems_region_internal): New function.
        (syms_of_coding): Defsubr it.  Initialize Qsafe_chars,
        (intersection, find_safe_codings): New functions.
        (Ffind_coding_systems_region_internal): New function.
        (syms_of_coding): Defsubr it.  Initialize Qsafe_chars,

diff --git a/src/alloc.c b/src/alloc.c
index 1d274e2111e47245a014b5191b1aba944215aef6..5d04bd77872648d6acc87af63ebc1ee3f862f4dc 100644 (file)
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -1412,7 +1412,7 @@ uninterrupt_malloc (void)
 #ifdef DOUG_LEA_MALLOC
   pthread_mutexattr_t attr;
 
 #ifdef DOUG_LEA_MALLOC
   pthread_mutexattr_t attr;
 

-  /*  GLIBC has a faster way to do this, but lets keep it portable.
+  /*  GLIBC has a faster way to do this, but let's keep it portable.

       This is according to the Single UNIX Specification.  */
   pthread_mutexattr_init (&attr);
   pthread_mutexattr_settype (&attr, PTHREAD_MUTEX_RECURSIVE);
       This is according to the Single UNIX Specification.  */
   pthread_mutexattr_init (&attr);
   pthread_mutexattr_settype (&attr, PTHREAD_MUTEX_RECURSIVE);

diff --git a/src/image.c b/src/image.c
index 8b64bdf20b0d17bacc72b5a28d15c2b45de16e63..e80f2b7210253dac1220947643418cc3dbda1222 100644 (file)
--- a/src/image.c
+++ b/src/image.c
@@ -7552,7 +7552,7 @@ imagemagick_image_p (Lisp_Object object)
 }
 
 /* The GIF library also defines DrawRectangle, but its never used in Emacs.
 }
 
 /* The GIF library also defines DrawRectangle, but its never used in Emacs.

-   Therefore rename the function so it doesnt collide with ImageMagick.  */
+   Therefore rename the function so it doesn't collide with ImageMagick.  */

 #define DrawRectangle DrawRectangleGif
 #include <wand/MagickWand.h>
 
 #define DrawRectangle DrawRectangleGif
 #include <wand/MagickWand.h>
 


@@ -7841,7 +7841,7 @@ imagemagick_load_image (struct frame *f, struct image *img,
        }
 
 
        }
 
 

-      /* Oddly, the below code doesnt seem to work:*/
+      /* Oddly, the below code doesn't seem to work:*/

       /* switch(ximg->bitmap_unit){ */
       /* case 8: */
       /*   pixelwidth=CharPixel; */
       /* switch(ximg->bitmap_unit){ */
       /* case 8: */
       /*   pixelwidth=CharPixel; */


@@ -7870,7 +7870,7 @@ imagemagick_load_image (struct frame *f, struct image *img,
                               /*&(img->pixmap));*/
                               ximg->data);
 #else
                               /*&(img->pixmap));*/
                               ximg->data);
 #else

-      image_error ("You dont have MagickExportImagePixels, upgrade ImageMagick!",
+      image_error ("You don't have MagickExportImagePixels, upgrade ImageMagick!",

                   Qnil, Qnil);
 #endif
     }
                   Qnil, Qnil);
 #endif
     }

diff --git a/src/regex.c b/src/regex.c
index ccbad58abb34f17d923b5e756410f9369fa8945b..b7699378f5aae4207457873c623a471424d13643 100644 (file)
--- a/src/regex.c
+++ b/src/regex.c
@@ -637,7 +637,7 @@ typedef enum
   on_failure_jump_nastyloop,
 
        /* A smart `on_failure_jump' used for greedy * and + operators.
   on_failure_jump_nastyloop,
 
        /* A smart `on_failure_jump' used for greedy * and + operators.

-          It analyses the loop before which it is put and if the
+          It analyzes the loop before which it is put and if the

           loop does not require backtracking, it changes itself to
           `on_failure_keep_string_jump' and short-circuits the loop,
           else it just defaults to changing itself into `on_failure_jump'.
           loop does not require backtracking, it changes itself to
           `on_failure_keep_string_jump' and short-circuits the loop,
           else it just defaults to changing itself into `on_failure_jump'.

diff --git a/test/cedet/semantic-utest.el b/test/cedet/semantic-utest.el
index a9a7c765f2b78a97ce0ddf035d1c353618feb939..db737b60c6f0196fb2181bc6bc052d90f7f54ae0 100644 (file)
--- a/test/cedet/semantic-utest.el
+++ b/test/cedet/semantic-utest.el
@@ -787,7 +787,7 @@ SKIPNAMES is a list of names to remove from NAME-CONTENTS"
 (defun semantic-utest-kill-indicator ( killme insertme)
   "Kill the line with KILLME on it and insert INSERTME in its place."
   (goto-char (point-min))
 (defun semantic-utest-kill-indicator ( killme insertme)
   "Kill the line with KILLME on it and insert INSERTME in its place."
   (goto-char (point-min))

-;  (re-search-forward (concat "/\\*" indicator "\\*/")); JAVE this isnt generic enough for different lagnuages
+;  (re-search-forward (concat "/\\*" indicator "\\*/")); JAVE this isn't generic enough for different languages

   (re-search-forward killme)
   (beginning-of-line)
   (setq semantic-utest-last-kill-pos (point))
   (re-search-forward killme)
   (beginning-of-line)
   (setq semantic-utest-last-kill-pos (point))


@@ -812,7 +812,7 @@ SKIPNAMES is a list of names to remove from NAME-CONTENTS"
 (defun semantic-utest-last-invalid (name-contents names-removed killme insertme)
   "Make the last fcn invalid."
   (semantic-utest-kill-indicator killme insertme)
 (defun semantic-utest-last-invalid (name-contents names-removed killme insertme)
   "Make the last fcn invalid."
   (semantic-utest-kill-indicator killme insertme)

-;  (semantic-utest-verify-names name-contents names-removed); verify its gone ;new validator doesnt handle skipnames yet
+;  (semantic-utest-verify-names name-contents names-removed); verify its gone ;new validator doesn't handle skipnames yet

   (semantic-utest-unkill-indicator);put back killed stuff
   )
 
   (semantic-utest-unkill-indicator);put back killed stuff
   )