[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r106385: Fix typos.
|
From: |
Juanma Barranquero |
|
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r106385: Fix typos. |
|
Date: |
Tue, 15 Nov 2011 18:37:37 +0100 |
|
User-agent: |
Bazaar (2.3.1) |
------------------------------------------------------------
revno: 106385
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Tue 2011-11-15 18:37:37 +0100
message:
Fix typos.
modified:
ChangeLog
admin/ChangeLog
admin/make-emacs
configure.in
doc/lispref/two-volume-cross-refs.txt
doc/man/ChangeLog
doc/misc/ChangeLog
doc/misc/gnus.texi
doc/misc/org.texi
leim/ChangeLog
leim/quail/tibetan.el
lisp/ChangeLog
lisp/ChangeLog.10
lisp/ChangeLog.12
lisp/ChangeLog.13
lisp/ChangeLog.14
lisp/ChangeLog.15
lisp/ChangeLog.5
lisp/ChangeLog.7
lisp/ChangeLog.8
lisp/ChangeLog.9
lisp/allout.el
lisp/calc/calc.el
lisp/cedet/ede/emacs.el
lisp/cedet/ede/files.el
lisp/cedet/ede/generic.el
lisp/cedet/ede/linux.el
lisp/cedet/ede/project-am.el
lisp/cedet/inversion.el
lisp/cedet/semantic/analyze.el
lisp/cedet/semantic/bovine/el.el
lisp/cedet/semantic/complete.el
lisp/cedet/semantic/ctxt.el
lisp/cedet/semantic/db-ebrowse.el
lisp/cedet/semantic/db-typecache.el
lisp/cedet/semantic/db.el
lisp/cedet/semantic/decorate/include.el
lisp/cedet/semantic/doc.el
lisp/cedet/semantic/edit.el
lisp/cedet/semantic/format.el
lisp/cedet/semantic/ia.el
lisp/cedet/semantic/idle.el
lisp/cedet/semantic/scope.el
lisp/cedet/semantic/symref/grep.el
lisp/cedet/semantic/texi.el
lisp/cedet/srecode/dictionary.el
lisp/cedet/srecode/fields.el
lisp/cedet/srecode/find.el
lisp/cedet/srecode/texi.el
lisp/emacs-lisp/cconv.el
lisp/emacs-lisp/chart.el
lisp/emacs-lisp/eieio.el
lisp/emacs-lisp/regi.el
lisp/erc/ChangeLog.03
lisp/frame.el
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog.1
lisp/gnus/gnus-art.el
lisp/gnus/html2text.el
lisp/gnus/mm-decode.el
lisp/gnus/rfc2047.el
lisp/htmlfontify.el
lisp/international/mule.el
lisp/international/quail.el
lisp/isearch.el
lisp/iswitchb.el
lisp/mail/rmail-spam-filter.el
lisp/net/ange-ftp.el
lisp/net/newst-treeview.el
lisp/net/quickurl.el
lisp/net/secrets.el
lisp/org/ChangeLog
lisp/org/ob-haskell.el
lisp/org/ob-ocaml.el
lisp/org/ob-sql.el
lisp/org/org-agenda.el
lisp/org/org-clock.el
lisp/org/org-remember.el
lisp/org/org-table.el
lisp/outline.el
lisp/progmodes/cc-awk.el
lisp/progmodes/cc-cmds.el
lisp/progmodes/cc-engine.el
lisp/progmodes/dcl-mode.el
lisp/progmodes/gdb-mi.el
lisp/progmodes/sql.el
lisp/progmodes/vhdl-mode.el
lisp/simple.el
lisp/textmodes/reftex-index.el
lisp/textmodes/reftex-ref.el
lisp/textmodes/reftex.el
lisp/url/ChangeLog
lisp/url/url-dav.el
nt/preprep.c
oldXMenu/Internal.c
src/ChangeLog
src/ChangeLog.4
src/ChangeLog.9
src/alloc.c
src/image.c
src/regex.c
test/cedet/semantic-utest.el
=== modified file 'ChangeLog'
--- a/ChangeLog 2011-11-13 01:03:55 +0000
+++ b/ChangeLog 2011-11-15 17:37:37 +0000
@@ -2393,7 +2393,7 @@
* BUGS: Use new binding of view-emacs-problems.
-2009-05-04 Simon Leinen <address@hidden> (tiny change)
+2009-05-04 Simon Leinen <address@hidden> (tiny change)
* Makefile.in (install-arch-dep): Avoid using $$(..) construct,
for Solaris compatibility.
=== modified file 'admin/ChangeLog'
--- a/admin/ChangeLog 2011-11-07 17:17:28 +0000
+++ b/admin/ChangeLog 2011-11-15 17:37:37 +0000
@@ -1,3 +1,7 @@
+2011-11-15 Juanma Barranquero <address@hidden>
+
+ * make-emacs: Fix typo.
+
2011-11-07 Juanma Barranquero <address@hidden>
* unidata/makefile.w32-in (clean): Remove bidimirror.h and biditype.h.
=== modified file 'admin/make-emacs'
--- a/admin/make-emacs 2011-01-26 08:36:39 +0000
+++ b/admin/make-emacs 2011-11-15 17:37:37 +0000
@@ -72,7 +72,7 @@
--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
=== modified file 'configure.in'
--- a/configure.in 2011-11-04 22:16:46 +0000
+++ b/configure.in 2011-11-15 17:37:37 +0000
@@ -1593,7 +1593,7 @@
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
=== modified file 'doc/lispref/two-volume-cross-refs.txt'
--- a/doc/lispref/two-volume-cross-refs.txt 2011-01-26 08:36:39 +0000
+++ b/doc/lispref/two-volume-cross-refs.txt 2011-11-15 17:37:37 +0000
@@ -87,7 +87,7 @@
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
@@ -120,7 +120,7 @@
% 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
=== modified file 'doc/man/ChangeLog'
--- a/doc/man/ChangeLog 2011-10-06 15:13:45 +0000
+++ b/doc/man/ChangeLog 2011-11-15 17:37:37 +0000
@@ -18,7 +18,7 @@
* Version 23.3 released.
-2011-01-02 Jari Aalto <address@hidden> (tiny change)
+2011-01-02 Jari Aalto <address@hidden>
* emacsclient.1: Arrange options alphabetically (Bug#7620).
=== modified file 'doc/misc/ChangeLog'
--- a/doc/misc/ChangeLog 2011-11-15 00:54:19 +0000
+++ b/doc/misc/ChangeLog 2011-11-15 17:37:37 +0000
@@ -1,11 +1,13 @@
2011-11-15 Juanma Barranquero <address@hidden>
- * 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 <address@hidden>
* ediff.texi (Hooks):
- * sem-user.texi (Semanticdb Roots): Fix typo.
+ * sem-user.texi (Semanticdb Roots): Fix typos.
2011-11-11 Juanma Barranquero <address@hidden>
=== modified file 'doc/misc/gnus.texi'
--- a/doc/misc/gnus.texi 2011-11-15 07:55:13 +0000
+++ b/doc/misc/gnus.texi 2011-11-15 17:37:37 +0000
@@ -18105,7 +18105,7 @@
@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
=== modified file 'doc/misc/org.texi'
--- a/doc/misc/org.texi 2011-11-15 07:55:13 +0000
+++ b/doc/misc/org.texi 2011-11-15 17:37:37 +0000
@@ -6393,7 +6393,7 @@
@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
=== modified file 'leim/ChangeLog'
--- a/leim/ChangeLog 2011-10-05 00:56:26 +0000
+++ b/leim/ChangeLog 2011-11-15 17:37:37 +0000
@@ -251,7 +251,7 @@
* quail/hangul.el (hangul-im-keymap): Add binding of key
Hangul_Hanja.
-2009-05-04 Simon Leinen <address@hidden> (tiny change)
+2009-05-04 Simon Leinen <address@hidden> (tiny change)
* Makefile.in (install): Avoid using $$(..) construct, for Solaris
compatibility.
=== modified file 'leim/quail/tibetan.el'
--- a/leim/quail/tibetan.el 2011-01-26 08:36:39 +0000
+++ b/leim/quail/tibetan.el 2011-11-15 17:37:37 +0000
@@ -427,7 +427,7 @@
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 '>'.
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2011-11-15 08:23:03 +0000
+++ b/lisp/ChangeLog 2011-11-15 17:37:37 +0000
@@ -1,3 +1,16 @@
+2011-11-15 Juanma Barranquero <address@hidden>
+
+ * 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 <address@hidden>
* mail/rmail.el (rmail-file-coding-system): It's only ever used
@@ -491,7 +504,7 @@
2011-10-26 Michael Albinus <address@hidden>
* 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 <address@hidden>
=== modified file 'lisp/ChangeLog.10'
--- a/lisp/ChangeLog.10 2011-11-14 20:23:26 +0000
+++ b/lisp/ChangeLog.10 2011-11-15 17:37:37 +0000
@@ -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'.
- 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.
=== modified file 'lisp/ChangeLog.12'
--- a/lisp/ChangeLog.12 2011-11-14 20:23:26 +0000
+++ b/lisp/ChangeLog.12 2011-11-15 17:37:37 +0000
@@ -764,7 +764,7 @@
Fix calls to get-buffer-window to find windows in other frames.
Reported by David Hansen <address@hidden>.
-2007-03-27 Kevin Ryde <address@hidden>
+2007-03-27 Kevin Ryde <address@hidden>
* info.el (Info-display-images-node): On a text-only terminal,
show the "text" or "alt" parts of the image blobs.
=== modified file 'lisp/ChangeLog.13'
--- a/lisp/ChangeLog.13 2011-11-14 20:23:26 +0000
+++ b/lisp/ChangeLog.13 2011-11-15 17:37:37 +0000
@@ -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-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.
@@ -11890,7 +11890,7 @@
(org-set-regexps-and-options): Use `org-remove-keyword-keys'.
(org-remove-keyword-keys): New function.
-2007-08-30 Jari Aalto <address@hidden> (tiny change)
+2007-08-30 Jari Aalto <address@hidden>
* progmodes/grep.el (grep-find-ignored-directories):
Add monotone _MTN bookkeeping directory in workspaces.
=== modified file 'lisp/ChangeLog.14'
--- a/lisp/ChangeLog.14 2011-11-14 20:23:26 +0000
+++ b/lisp/ChangeLog.14 2011-11-15 17:37:37 +0000
@@ -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-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
=== modified file 'lisp/ChangeLog.15'
--- a/lisp/ChangeLog.15 2011-11-14 23:59:56 +0000
+++ b/lisp/ChangeLog.15 2011-11-15 17:37:37 +0000
@@ -3058,7 +3058,7 @@
* net/tramp-sh.el (tramp-sh-handle-start-file-process):
Protect buffer-modified value. (Bug#7557)
-2010-12-13 Jan Moringen <address@hidden>
+2010-12-13 Jan Moringen <address@hidden>
* 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 <address@hidden>.
-22010-02-18 Glenn Morris <address@hidden>
+2010-02-18 Glenn Morris <address@hidden>
* 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.
-2010-01-15 David Abrahams <address@hidden> (tiny change)
+2010-01-15 David Abrahams <address@hidden> (tiny change)
* net/mairix.el (mairix-widget-send-query): Send -1 instead of nil
to mairix-search to suppress threading (Bug#5342).
=== modified file 'lisp/ChangeLog.5'
--- a/lisp/ChangeLog.5 2011-11-14 21:00:24 +0000
+++ b/lisp/ChangeLog.5 2011-11-15 17:37:37 +0000
@@ -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.
- (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'.
=== modified file 'lisp/ChangeLog.7'
--- a/lisp/ChangeLog.7 2011-11-14 21:00:24 +0000
+++ b/lisp/ChangeLog.7 2011-11-15 17:37:37 +0000
@@ -6815,9 +6815,9 @@
`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-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.
@@ -11240,7 +11240,7 @@
(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.
@@ -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-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-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
=== modified file 'lisp/ChangeLog.8'
--- a/lisp/ChangeLog.8 2011-11-14 20:23:26 +0000
+++ b/lisp/ChangeLog.8 2011-11-15 17:37:37 +0000
@@ -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-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.
@@ -9750,11 +9750,11 @@
* 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.
=== modified file 'lisp/ChangeLog.9'
--- a/lisp/ChangeLog.9 2011-11-14 20:23:26 +0000
+++ b/lisp/ChangeLog.9 2011-11-15 17:37:37 +0000
@@ -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.
- (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.
@@ -17396,7 +17396,7 @@
2000-05-25 Kenichi Handa <address@hidden>
- * 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.
=== modified file 'lisp/allout.el'
--- a/lisp/allout.el 2011-11-15 00:54:19 +0000
+++ b/lisp/allout.el 2011-11-15 17:37:37 +0000
@@ -1537,7 +1537,7 @@
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
@@ -3822,7 +3822,7 @@
(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)
=== modified file 'lisp/calc/calc.el'
--- a/lisp/calc/calc.el 2011-06-02 00:09:42 +0000
+++ b/lisp/calc/calc.el 2011-11-15 17:37:37 +0000
@@ -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
-;; 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
@@ -428,7 +428,7 @@
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
@@ -446,14 +446,14 @@
: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
- '((t :inherit shadow
+ '((t :inherit shadow
:slant italic))
"Face used to show the non-selected portion of a formula."
:group 'calc)
=== modified file 'lisp/cedet/ede/emacs.el'
--- a/lisp/cedet/ede/emacs.el 2011-01-25 04:08:28 +0000
+++ b/lisp/cedet/ede/emacs.el 2011-11-15 17:37:37 +0000
@@ -63,7 +63,7 @@
(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))))
@@ -121,7 +121,7 @@
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)
=== modified file 'lisp/cedet/ede/files.el'
--- a/lisp/cedet/ede/files.el 2011-01-25 04:08:28 +0000
+++ b/lisp/cedet/ede/files.el 2011-11-15 17:37:37 +0000
@@ -101,7 +101,7 @@
(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
=== modified file 'lisp/cedet/ede/generic.el'
--- a/lisp/cedet/ede/generic.el 2011-11-15 07:55:13 +0000
+++ b/lisp/cedet/ede/generic.el 2011-11-15 17:37:37 +0000
@@ -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."
- ;; 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"))
=== modified file 'lisp/cedet/ede/linux.el'
--- a/lisp/cedet/ede/linux.el 2011-01-25 04:08:28 +0000
+++ b/lisp/cedet/ede/linux.el 2011-11-15 17:37:37 +0000
@@ -62,7 +62,7 @@
(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))))
@@ -101,7 +101,7 @@
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)
=== modified file 'lisp/cedet/ede/project-am.el'
--- a/lisp/cedet/ede/project-am.el 2011-11-15 07:55:13 +0000
+++ b/lisp/cedet/ede/project-am.el 2011-11-15 17:37:37 +0000
@@ -659,7 +659,7 @@
;; 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
=== modified file 'lisp/cedet/inversion.el'
--- a/lisp/cedet/inversion.el 2011-01-26 08:36:39 +0000
+++ b/lisp/cedet/inversion.el 2011-11-15 17:37:37 +0000
@@ -419,7 +419,7 @@
;;(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)
=== modified file 'lisp/cedet/semantic/analyze.el'
--- a/lisp/cedet/semantic/analyze.el 2011-11-15 07:55:13 +0000
+++ b/lisp/cedet/semantic/analyze.el 2011-11-15 17:37:37 +0000
@@ -287,7 +287,7 @@
;; 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)
=== modified file 'lisp/cedet/semantic/bovine/el.el'
--- a/lisp/cedet/semantic/bovine/el.el 2011-11-15 07:55:13 +0000
+++ b/lisp/cedet/semantic/bovine/el.el 2011-11-15 17:37:37 +0000
@@ -515,7 +515,7 @@
(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)
=== modified file 'lisp/cedet/semantic/complete.el'
--- a/lisp/cedet/semantic/complete.el 2011-05-10 13:57:12 +0000
+++ b/lisp/cedet/semantic/complete.el 2011-11-15 17:37:37 +0000
@@ -1618,7 +1618,7 @@
(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
=== modified file 'lisp/cedet/semantic/ctxt.el'
--- a/lisp/cedet/semantic/ctxt.el 2011-11-14 21:00:24 +0000
+++ b/lisp/cedet/semantic/ctxt.el 2011-11-15 17:37:37 +0000
@@ -410,7 +410,7 @@
;; 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)
=== modified file 'lisp/cedet/semantic/db-ebrowse.el'
--- a/lisp/cedet/semantic/db-ebrowse.el 2011-01-26 08:36:39 +0000
+++ b/lisp/cedet/semantic/db-ebrowse.el 2011-11-15 17:37:37 +0000
@@ -219,7 +219,7 @@
;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.")
@@ -296,7 +296,7 @@
(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))
@@ -331,7 +331,7 @@
;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
=== modified file 'lisp/cedet/semantic/db-typecache.el'
--- a/lisp/cedet/semantic/db-typecache.el 2011-11-14 21:00:24 +0000
+++ b/lisp/cedet/semantic/db-typecache.el 2011-11-15 17:37:37 +0000
@@ -473,7 +473,7 @@
;; 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
@@ -511,7 +511,7 @@
;; 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))
=== modified file 'lisp/cedet/semantic/db.el'
--- a/lisp/cedet/semantic/db.el 2011-11-03 20:03:45 +0000
+++ b/lisp/cedet/semantic/db.el 2011-11-15 17:37:37 +0000
@@ -459,7 +459,7 @@
(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)))
@@ -510,7 +510,7 @@
(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)))
@@ -941,7 +941,7 @@
(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)))
=== modified file 'lisp/cedet/semantic/decorate/include.el'
--- a/lisp/cedet/semantic/decorate/include.el 2011-11-14 23:59:56 +0000
+++ b/lisp/cedet/semantic/decorate/include.el 2011-11-15 17:37:37 +0000
@@ -739,7 +739,7 @@
"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)))
=== modified file 'lisp/cedet/semantic/doc.el'
--- a/lisp/cedet/semantic/doc.el 2011-01-26 08:36:39 +0000
+++ b/lisp/cedet/semantic/doc.el 2011-11-15 17:37:37 +0000
@@ -56,7 +56,7 @@
;; 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))))))
=== modified file 'lisp/cedet/semantic/edit.el'
--- a/lisp/cedet/semantic/edit.el 2011-11-15 07:55:13 +0000
+++ b/lisp/cedet/semantic/edit.el 2011-11-15 17:37:37 +0000
@@ -316,7 +316,7 @@
(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
=== modified file 'lisp/cedet/semantic/format.el'
--- a/lisp/cedet/semantic/format.el 2011-11-13 07:48:23 +0000
+++ b/lisp/cedet/semantic/format.el 2011-11-15 17:37:37 +0000
@@ -431,7 +431,7 @@
(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)))
=== modified file 'lisp/cedet/semantic/ia.el'
--- a/lisp/cedet/semantic/ia.el 2011-11-14 23:59:56 +0000
+++ b/lisp/cedet/semantic/ia.el 2011-11-15 17:37:37 +0000
@@ -115,7 +115,7 @@
(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
@@ -251,8 +251,8 @@
"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))
=== modified file 'lisp/cedet/semantic/idle.el'
--- a/lisp/cedet/semantic/idle.el 2011-11-03 20:03:45 +0000
+++ b/lisp/cedet/semantic/idle.el 2011-11-15 17:37:37 +0000
@@ -427,7 +427,7 @@
(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)
=== modified file 'lisp/cedet/semantic/scope.el'
--- a/lisp/cedet/semantic/scope.el 2011-11-14 23:59:56 +0000
+++ b/lisp/cedet/semantic/scope.el 2011-11-15 17:37:37 +0000
@@ -186,7 +186,7 @@
(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)))
@@ -249,7 +249,7 @@
;; 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)
=== modified file 'lisp/cedet/semantic/symref/grep.el'
--- a/lisp/cedet/semantic/symref/grep.el 2011-01-25 04:08:28 +0000
+++ b/lisp/cedet/semantic/symref/grep.el 2011-11-15 17:37:37 +0000
@@ -102,7 +102,7 @@
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
=== modified file 'lisp/cedet/semantic/texi.el'
--- a/lisp/cedet/semantic/texi.el 2011-11-13 07:48:23 +0000
+++ b/lisp/cedet/semantic/texi.el 2011-11-15 17:37:37 +0000
@@ -579,7 +579,7 @@
;; (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
=== modified file 'lisp/cedet/srecode/dictionary.el'
--- a/lisp/cedet/srecode/dictionary.el 2011-11-14 20:23:26 +0000
+++ b/lisp/cedet/srecode/dictionary.el 2011-11-15 17:37:37 +0000
@@ -280,7 +280,7 @@
(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")
=== modified file 'lisp/cedet/srecode/fields.el'
--- a/lisp/cedet/srecode/fields.el 2011-11-14 23:59:56 +0000
+++ b/lisp/cedet/srecode/fields.el 2011-11-15 17:37:37 +0000
@@ -338,7 +338,7 @@
(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))
=== modified file 'lisp/cedet/srecode/find.el'
--- a/lisp/cedet/srecode/find.el 2011-01-25 04:08:28 +0000
+++ b/lisp/cedet/srecode/find.el 2011-11-15 17:37:37 +0000
@@ -103,7 +103,7 @@
(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)
=== modified file 'lisp/cedet/srecode/texi.el'
--- a/lisp/cedet/srecode/texi.el 2011-11-03 20:03:45 +0000
+++ b/lisp/cedet/srecode/texi.el 2011-11-15 17:37:37 +0000
@@ -231,7 +231,7 @@
(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)))))
=== modified file 'lisp/emacs-lisp/cconv.el'
--- a/lisp/emacs-lisp/cconv.el 2011-06-01 14:19:45 +0000
+++ b/lisp/emacs-lisp/cconv.el 2011-11-15 17:37:37 +0000
@@ -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
-;; 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.
-;; 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.
;;
-;; 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
-;; 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 :
@@ -142,7 +142,7 @@
(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.
@@ -581,7 +581,7 @@
(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)).
=== modified file 'lisp/emacs-lisp/chart.el'
--- a/lisp/emacs-lisp/chart.el 2011-05-23 17:57:17 +0000
+++ b/lisp/emacs-lisp/chart.el 2011-11-15 17:37:37 +0000
@@ -634,7 +634,7 @@
(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"
@@ -693,7 +693,7 @@
;(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")))
@@ -710,7 +710,7 @@
(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")))
=== modified file 'lisp/emacs-lisp/eieio.el'
--- a/lisp/emacs-lisp/eieio.el 2011-11-14 23:59:56 +0000
+++ b/lisp/emacs-lisp/eieio.el 2011-11-15 17:37:37 +0000
@@ -553,7 +553,7 @@
(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)
@@ -826,7 +826,7 @@
;; 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)))
@@ -1470,7 +1470,7 @@
(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)
@@ -1503,7 +1503,7 @@
(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.
@@ -1549,7 +1549,7 @@
(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.
@@ -1581,7 +1581,7 @@
(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.
=== modified file 'lisp/emacs-lisp/regi.el'
--- a/lisp/emacs-lisp/regi.el 2011-01-25 04:08:28 +0000
+++ b/lisp/emacs-lisp/regi.el 2011-11-15 17:37:37 +0000
@@ -161,7 +161,7 @@
(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
=== modified file 'lisp/erc/ChangeLog.03'
--- a/lisp/erc/ChangeLog.03 2011-11-15 00:54:19 +0000
+++ b/lisp/erc/ChangeLog.03 2011-11-15 17:37:37 +0000
@@ -1305,7 +1305,7 @@
* (erc-current-logfile): call expand-file-name, so that downcase
doesn't mess up ~
* erc.el 1.459: * (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 1.43: * (erc-button-add-buttons): regex-quote the nick
=== modified file 'lisp/frame.el'
--- a/lisp/frame.el 2011-10-19 12:54:24 +0000
+++ b/lisp/frame.el 2011-11-15 17:37:37 +0000
@@ -1299,7 +1299,7 @@
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))
=== modified file 'lisp/gnus/ChangeLog'
--- a/lisp/gnus/ChangeLog 2011-11-15 07:55:13 +0000
+++ b/lisp/gnus/ChangeLog 2011-11-15 17:37:37 +0000
@@ -1,5 +1,6 @@
2011-11-15 Juanma Barranquero <address@hidden>
+ * 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.
=== modified file 'lisp/gnus/ChangeLog.1'
--- a/lisp/gnus/ChangeLog.1 2011-01-26 08:36:39 +0000
+++ b/lisp/gnus/ChangeLog.1 2011-11-15 17:37:37 +0000
@@ -2540,7 +2540,7 @@
`gnus-simplify-ignored-prefixes'.
(gnus-summary-set-display-table): Keep TAB.
-1998-01-15 <address@hidden>
+1998-01-15 Lars Magne Ingebrigtsen <address@hidden>
* gnus-art.el (gnus-request-article-this-buffer): Put it into the
backlog.
=== modified file 'lisp/gnus/gnus-art.el'
--- a/lisp/gnus/gnus-art.el 2011-11-14 23:59:56 +0000
+++ b/lisp/gnus/gnus-art.el 2011-11-15 17:37:37 +0000
@@ -5418,8 +5418,8 @@
(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)
=== modified file 'lisp/gnus/html2text.el'
--- a/lisp/gnus/html2text.el 2011-10-11 20:20:08 +0000
+++ b/lisp/gnus/html2text.el 2011-11-15 17:37:37 +0000
@@ -410,7 +410,7 @@
(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)))
=== modified file 'lisp/gnus/mm-decode.el'
--- a/lisp/gnus/mm-decode.el 2011-09-19 22:06:57 +0000
+++ b/lisp/gnus/mm-decode.el 2011-11-15 17:37:37 +0000
@@ -1494,7 +1494,7 @@
(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))))
=== modified file 'lisp/gnus/rfc2047.el'
--- a/lisp/gnus/rfc2047.el 2011-01-25 04:08:28 +0000
+++ b/lisp/gnus/rfc2047.el 2011-11-15 17:37:37 +0000
@@ -285,11 +285,11 @@
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
- ;; 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 <address@hidden> Date: 2001-10-07.
;; Modified by Dave Love, with the commented-out code changed
=== modified file 'lisp/htmlfontify.el'
--- a/lisp/htmlfontify.el 2011-11-13 07:48:23 +0000
+++ b/lisp/htmlfontify.el 2011-11-15 17:37:37 +0000
@@ -1768,7 +1768,7 @@
"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))) )
=== modified file 'lisp/international/mule.el'
--- a/lisp/international/mule.el 2011-11-14 21:00:24 +0000
+++ b/lisp/international/mule.el 2011-11-15 17:37:37 +0000
@@ -1566,7 +1566,7 @@
;; 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
=== modified file 'lisp/international/quail.el'
--- a/lisp/international/quail.el 2011-11-13 07:48:23 +0000
+++ b/lisp/international/quail.el 2011-11-15 17:37:37 +0000
@@ -2011,7 +2011,7 @@
(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"
=== modified file 'lisp/isearch.el'
--- a/lisp/isearch.el 2011-11-14 23:59:56 +0000
+++ b/lisp/isearch.el 2011-11-15 17:37:37 +0000
@@ -542,8 +542,8 @@
(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.
=== modified file 'lisp/iswitchb.el'
--- a/lisp/iswitchb.el 2011-11-15 07:55:13 +0000
+++ b/lisp/iswitchb.el 2011-11-15 17:37:37 +0000
@@ -1110,7 +1110,7 @@
(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)
=== modified file 'lisp/mail/rmail-spam-filter.el'
--- a/lisp/mail/rmail-spam-filter.el 2011-01-26 08:36:39 +0000
+++ b/lisp/mail/rmail-spam-filter.el 2011-11-15 17:37:37 +0000
@@ -317,7 +317,7 @@
;; 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
=== modified file 'lisp/net/ange-ftp.el'
--- a/lisp/net/ange-ftp.el 2011-10-12 18:32:35 +0000
+++ b/lisp/net/ange-ftp.el 2011-11-15 17:37:37 +0000
@@ -4027,7 +4027,7 @@
(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)
@@ -4507,7 +4507,7 @@
;; 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)
=== modified file 'lisp/net/newst-treeview.el'
--- a/lisp/net/newst-treeview.el 2011-10-30 15:21:37 +0000
+++ b/lisp/net/newst-treeview.el 2011-11-15 17:37:37 +0000
@@ -227,7 +227,7 @@
(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)))
@@ -245,7 +245,7 @@
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)))
=== modified file 'lisp/net/quickurl.el'
--- a/lisp/net/quickurl.el 2011-11-14 23:59:56 +0000
+++ b/lisp/net/quickurl.el 2011-11-15 17:37:37 +0000
@@ -189,7 +189,7 @@
"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.")
=== modified file 'lisp/net/secrets.el'
--- a/lisp/net/secrets.el 2011-11-15 07:55:13 +0000
+++ b/lisp/net/secrets.el 2011-11-15 17:37:37 +0000
@@ -379,7 +379,7 @@
(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))
=== modified file 'lisp/org/ChangeLog'
--- a/lisp/org/ChangeLog 2011-11-14 23:59:56 +0000
+++ b/lisp/org/ChangeLog 2011-11-15 17:37:37 +0000
@@ -13808,7 +13808,7 @@
2009-08-06 Bastien Guerry <address@hidden>
- * 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
@@ -16482,7 +16482,7 @@
2008-11-23 Carsten Dominik <address@hidden>
* 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)
@@ -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-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
=== modified file 'lisp/org/ob-haskell.el'
--- a/lisp/org/ob-haskell.el 2011-08-18 20:41:06 +0000
+++ b/lisp/org/ob-haskell.el 2011-11-15 17:37:37 +0000
@@ -29,7 +29,7 @@
;; 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:
@@ -80,7 +80,7 @@
(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)
=== modified file 'lisp/org/ob-ocaml.el'
--- a/lisp/org/ob-ocaml.el 2011-08-18 20:41:06 +0000
+++ b/lisp/org/ob-ocaml.el 2011-11-15 17:37:37 +0000
@@ -29,7 +29,7 @@
;; 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:
@@ -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))))
-
+
(defun org-babel-ocaml-elisp-to-ocaml (val)
"Return a string of ocaml code which evaluates to VAL."
(if (listp val)
=== modified file 'lisp/org/ob-sql.el'
--- a/lisp/org/ob-sql.el 2011-08-18 20:41:06 +0000
+++ b/lisp/org/ob-sql.el 2011-11-15 17:37:37 +0000
@@ -32,7 +32,7 @@
;;
;; 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:
;;
@@ -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?
-;;
+;;
;;; Code:
(require 'ob)
=== modified file 'lisp/org/org-agenda.el'
--- a/lisp/org/org-agenda.el 2011-11-09 06:10:51 +0000
+++ b/lisp/org/org-agenda.el 2011-11-15 17:37:37 +0000
@@ -5059,7 +5059,7 @@
(/ (- 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))
=== modified file 'lisp/org/org-clock.el'
--- a/lisp/org/org-clock.el 2011-09-02 16:38:40 +0000
+++ b/lisp/org/org-clock.el 2011-11-15 17:37:37 +0000
@@ -1261,7 +1261,7 @@
(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))
@@ -2641,4 +2641,3 @@
;;; org-clock.el ends here
-
=== modified file 'lisp/org/org-remember.el'
--- a/lisp/org/org-remember.el 2011-09-02 16:38:40 +0000
+++ b/lisp/org/org-remember.el 2011-11-15 17:37:37 +0000
@@ -1122,7 +1122,7 @@
(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)
@@ -1153,4 +1153,3 @@
;;; org-remember.el ends here
-
=== modified file 'lisp/org/org-table.el'
--- a/lisp/org/org-table.el 2011-08-18 20:41:06 +0000
+++ b/lisp/org/org-table.el 2011-11-15 17:37:37 +0000
@@ -2204,7 +2204,7 @@
(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)
@@ -2432,7 +2432,7 @@
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)))
@@ -2500,7 +2500,7 @@
;; 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
@@ -4723,4 +4723,3 @@
;;; org-table.el ends here
-
=== modified file 'lisp/outline.el'
--- a/lisp/outline.el 2011-10-19 12:54:24 +0000
+++ b/lisp/outline.el 2011-11-15 17:37:37 +0000
@@ -144,10 +144,10 @@
: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
- :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
@@ -642,12 +642,12 @@
;; 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)
- "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))
=== modified file 'lisp/progmodes/cc-awk.el'
--- a/lisp/progmodes/cc-awk.el 2011-11-15 00:54:19 +0000
+++ b/lisp/progmodes/cc-awk.el 2011-11-15 17:37:37 +0000
@@ -718,7 +718,7 @@
;; 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))
@@ -847,7 +847,7 @@
;; Awk regexps written with help from Peter Galbraith
;; <address@hidden>.
-;; 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
=== modified file 'lisp/progmodes/cc-cmds.el'
--- a/lisp/progmodes/cc-cmds.el 2011-11-14 20:23:26 +0000
+++ b/lisp/progmodes/cc-cmds.el 2011-11-15 17:37:37 +0000
@@ -1042,7 +1042,7 @@
(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
=== modified file 'lisp/progmodes/cc-engine.el'
--- a/lisp/progmodes/cc-engine.el 2011-11-15 07:55:13 +0000
+++ b/lisp/progmodes/cc-engine.el 2011-11-15 17:37:37 +0000
@@ -2302,7 +2302,7 @@
;; `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.
=== modified file 'lisp/progmodes/dcl-mode.el'
--- a/lisp/progmodes/dcl-mode.el 2011-04-22 18:44:26 +0000
+++ b/lisp/progmodes/dcl-mode.el 2011-11-15 17:37:37 +0000
@@ -512,7 +512,7 @@
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.
=== modified file 'lisp/progmodes/gdb-mi.el'
--- a/lisp/progmodes/gdb-mi.el 2011-11-14 23:59:56 +0000
+++ b/lisp/progmodes/gdb-mi.el 2011-11-15 17:37:37 +0000
@@ -2217,7 +2217,7 @@
(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)
=== modified file 'lisp/progmodes/sql.el'
--- a/lisp/progmodes/sql.el 2011-11-14 23:59:56 +0000
+++ b/lisp/progmodes/sql.el 2011-11-15 17:37:37 +0000
@@ -1595,7 +1595,7 @@
"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"
=== modified file 'lisp/progmodes/vhdl-mode.el'
--- a/lisp/progmodes/vhdl-mode.el 2011-11-14 06:27:12 +0000
+++ b/lisp/progmodes/vhdl-mode.el 2011-11-15 17:37:37 +0000
@@ -2131,7 +2131,7 @@
(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)
=== modified file 'lisp/simple.el'
--- a/lisp/simple.el 2011-11-15 00:38:10 +0000
+++ b/lisp/simple.el 2011-11-15 17:37:37 +0000
@@ -4324,7 +4324,7 @@
(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))))
=== modified file 'lisp/textmodes/reftex-index.el'
--- a/lisp/textmodes/reftex-index.el 2011-02-12 23:40:43 +0000
+++ b/lisp/textmodes/reftex-index.el 2011-11-15 17:37:37 +0000
@@ -663,7 +663,7 @@
(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))
=== modified file 'lisp/textmodes/reftex-ref.el'
--- a/lisp/textmodes/reftex-ref.el 2011-01-25 04:08:28 +0000
+++ b/lisp/textmodes/reftex-ref.el 2011-11-15 17:37:37 +0000
@@ -206,7 +206,7 @@
(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)
=== modified file 'lisp/textmodes/reftex.el'
--- a/lisp/textmodes/reftex.el 2011-11-14 23:59:56 +0000
+++ b/lisp/textmodes/reftex.el 2011-11-15 17:37:37 +0000
@@ -688,7 +688,7 @@
(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))
@@ -1612,7 +1612,7 @@
(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)
@@ -2058,7 +2058,7 @@
(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))
=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog 2011-11-14 16:09:13 +0000
+++ b/lisp/url/ChangeLog 2011-11-15 17:37:37 +0000
@@ -1,3 +1,7 @@
+2011-11-15 Juanma Barranquero <address@hidden>
+
+ * url-dav.el (url-dav-delete-file): Fix typo.
+
2011-11-14 Lars Magne Ingebrigtsen <address@hidden>
* url-http.el (url-http-async-sentinel): If the server hangs up
=== modified file 'lisp/url/url-dav.el'
--- a/lisp/url/url-dav.el 2011-11-15 07:55:13 +0000
+++ b/lisp/url/url-dav.el 2011-11-15 17:37:37 +0000
@@ -117,7 +117,7 @@
;; 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))
@@ -430,7 +430,7 @@
;; 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)))
@@ -762,7 +762,7 @@
(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)
=== modified file 'nt/preprep.c'
--- a/nt/preprep.c 2011-03-25 15:39:59 +0000
+++ b/nt/preprep.c 2011-11-15 17:37:37 +0000
@@ -321,7 +321,7 @@
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.
@@ -825,4 +825,3 @@
}
/* eof */
-
=== modified file 'oldXMenu/Internal.c'
--- a/oldXMenu/Internal.c 2011-04-16 08:25:42 +0000
+++ b/oldXMenu/Internal.c 2011-11-15 17:37:37 +0000
@@ -968,7 +968,7 @@
/*
* 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.
*/
=== modified file 'src/ChangeLog'
--- a/src/ChangeLog 2011-11-14 21:00:24 +0000
+++ b/src/ChangeLog 2011-11-15 17:37:37 +0000
@@ -1,3 +1,7 @@
+2011-11-15 Juanma Barranquero <address@hidden>
+
+ * image.c (imagemagick_load_image): Fix typo.
+
2011-11-14 Eli Zaretskii <address@hidden>
* xdisp.c (display_line): Move the call to
=== modified file 'src/ChangeLog.4'
--- a/src/ChangeLog.4 2011-01-26 08:36:39 +0000
+++ b/src/ChangeLog.4 2011-11-15 17:37:37 +0000
@@ -811,7 +811,7 @@
1994-04-28 Michael D. Ernst (address@hidden)
- * fileio.c (inhibit-file-name-handers): Correct documentation.
+ * fileio.c (inhibit-file-name-handlers): Correct documentation.
1994-04-28 Karl Heuer (address@hidden)
@@ -1885,7 +1885,7 @@
1994-03-22 Frederic Pierresteguy (address@hidden)
* 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 (address@hidden)
=== modified file 'src/ChangeLog.9'
--- a/src/ChangeLog.9 2011-11-11 23:34:43 +0000
+++ b/src/ChangeLog.9 2011-11-15 17:37:37 +0000
@@ -8409,7 +8409,7 @@
(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,
=== modified file 'src/alloc.c'
--- a/src/alloc.c 2011-11-14 23:59:56 +0000
+++ b/src/alloc.c 2011-11-15 17:37:37 +0000
@@ -1412,7 +1412,7 @@
#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);
=== modified file 'src/image.c'
--- a/src/image.c 2011-11-14 23:59:56 +0000
+++ b/src/image.c 2011-11-15 17:37:37 +0000
@@ -7552,7 +7552,7 @@
}
/* 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>
@@ -7841,7 +7841,7 @@
}
- /* 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; */
@@ -7870,7 +7870,7 @@
/*&(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
}
=== modified file 'src/regex.c'
--- a/src/regex.c 2011-11-05 11:34:56 +0000
+++ b/src/regex.c 2011-11-15 17:37:37 +0000
@@ -637,7 +637,7 @@
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'.
=== modified file 'test/cedet/semantic-utest.el'
--- a/test/cedet/semantic-utest.el 2011-01-25 04:08:28 +0000
+++ b/test/cedet/semantic-utest.el 2011-11-15 17:37:37 +0000
@@ -787,7 +787,7 @@
(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))
@@ -812,7 +812,7 @@
(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
)
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r106385: Fix typos.,
Juanma Barranquero <=