mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-14 01:50:22 -08:00
Code Issues Projects Releases Wiki Activity

Spelling fixes.

Browse source
This commit is contained in:
Paul Eggert 2011-12-04 00:02:42 -08:00
parent a24bf23e0f
commit c80e3b4aed
121 changed files with 351 additions and 353 deletions
Download patch file Download diff file Expand all files Collapse all files

2
ChangeLog
View file

@ -8171,7 +8171,7 @@
1994-01-08 Roland McGrath (roland@churchy.gnu.ai.mit.edu) 1994-01-08 Roland McGrath (roland@churchy.gnu.ai.mit.edu)
* configure.in (creating src/Makefile): Put code inside 2nd arg to * configure.in (creating src/Makefile): Put code inside 2nd arg to
AC_OUTPUT as it should be; hopefully noone will again see fit to AC_OUTPUT as it should be; hopefully no one will again see fit to
gratuitously break this and not make a change log entry. gratuitously break this and not make a change log entry.
Optimized sed processing of Makefile.in and cpp output; now Optimized sed processing of Makefile.in and cpp output; now
preserves comments previously removed from the cpp input. preserves comments previously removed from the cpp input.

2
autogen.sh
View file

@ -67,7 +67,7 @@ minor_version ()
## $1 = program ## $1 = program
## $2 = minimum version. ## $2 = minimum version.
## Return 0 if program is present with version >= minumum version. ## Return 0 if program is present with version >= minimum version.
## Return 1 if program is missing. ## Return 1 if program is missing.
## Return 2 if program is present but too old. ## Return 2 if program is present but too old.
## Return 3 for unexpected error (eg failed to parse version). ## Return 3 for unexpected error (eg failed to parse version).

24
doc/misc/calc.texi
View file

@ -12878,7 +12878,7 @@ To declare specifically that @code{x} is real and non-zero,
use @samp{[[-inf .. 0), (0 .. inf]]}. (There is no way in the use @samp{[[-inf .. 0), (0 .. inf]]}. (There is no way in the
current notation to say that @code{x} is nonzero but not necessarily current notation to say that @code{x} is nonzero but not necessarily
real.) The @kbd{a e} command does ``unsafe'' simplifications, real.) The @kbd{a e} command does ``unsafe'' simplifications,
including cancelling @samp{x} from the equation when @samp{x} is including canceling @samp{x} from the equation when @samp{x} is
not known to be nonzero. not known to be nonzero.
Another set of type symbols distinguish between scalars and vectors. Another set of type symbols distinguish between scalars and vectors.
@ -21903,7 +21903,7 @@ of our sample formula by selecting it and pressing @kbd{n}
@end smallexample @end smallexample
Unselecting the sub-formula reveals that the minus sign, which would Unselecting the sub-formula reveals that the minus sign, which would
normally have cancelled out with the subtraction automatically, has normally have canceled out with the subtraction automatically, has
not been able to do so because the subtraction was not part of the not been able to do so because the subtraction was not part of the
selected portion. Pressing @kbd{=} (@code{calc-evaluate}) or doing selected portion. Pressing @kbd{=} (@code{calc-evaluate}) or doing
any other mathematical operation on the whole formula will cause it any other mathematical operation on the whole formula will cause it
@ -22590,7 +22590,7 @@ described for multiplication.
Quotients of products cancel only in the leading terms of the Quotients of products cancel only in the leading terms of the
numerator and denominator. In other words, @expr{a x b / a y b} numerator and denominator. In other words, @expr{a x b / a y b}
is cancelled to @expr{x b / y b} but not to @expr{x / y}. Once is canceled to @expr{x b / y b} but not to @expr{x / y}. Once
again this is because full cancellation can be slow; use @kbd{a s} again this is because full cancellation can be slow; use @kbd{a s}
to cancel all terms of the quotient. to cancel all terms of the quotient.
@ -22810,7 +22810,7 @@ the distributive law. For example, @expr{a x^2 b / c x^3 d} will
cancel @expr{x^2} from the top and bottom to get @expr{a b / c x d}. cancel @expr{x^2} from the top and bottom to get @expr{a b / c x d}.
(The terms in the denominator will then be rearranged to @expr{c d x} (The terms in the denominator will then be rearranged to @expr{c d x}
as described above.) If there is any common integer or fractional as described above.) If there is any common integer or fractional
factor in the numerator and denominator, it is cancelled out; factor in the numerator and denominator, it is canceled out;
for example, @expr{(4 x + 6) / 8 x} simplifies to @expr{(2 x + 3) / 4 x}. for example, @expr{(4 x + 6) / 8 x} simplifies to @expr{(2 x + 3) / 4 x}.
Non-constant common factors are not found even by @kbd{a s}. To Non-constant common factors are not found even by @kbd{a s}. To
@ -22858,7 +22858,7 @@ example, @samp{(x - 23) % 10} is simplified to @samp{(x + 7) % 10}.
If the argument is multiplied by a constant, and this constant If the argument is multiplied by a constant, and this constant
has a common integer divisor with the modulus, then this factor is has a common integer divisor with the modulus, then this factor is
cancelled out. For example, @samp{12 x % 15} is changed to canceled out. For example, @samp{12 x % 15} is changed to
@samp{3 (4 x % 5)} by factoring out 3. Also, @samp{(12 x + 1) % 15} @samp{3 (4 x % 5)} by factoring out 3. Also, @samp{(12 x + 1) % 15}
is changed to @samp{3 ((4 x + 1:3) % 5)}. While these forms may is changed to @samp{3 ((4 x + 1:3) % 5)}. While these forms may
not seem ``simpler,'' they allow Calc to discover useful information not seem ``simpler,'' they allow Calc to discover useful information
@ -22938,13 +22938,13 @@ function.
\bigskip \bigskip
@end tex @end tex
Equations and inequalities are simplified by cancelling factors Equations and inequalities are simplified by canceling factors
of products, quotients, or sums on both sides. Inequalities of products, quotients, or sums on both sides. Inequalities
change sign if a negative multiplicative factor is cancelled. change sign if a negative multiplicative factor is canceled.
Non-constant multiplicative factors as in @expr{a b = a c} are Non-constant multiplicative factors as in @expr{a b = a c} are
cancelled from equations only if they are provably nonzero (generally canceled from equations only if they are provably nonzero (generally
because they were declared so; @pxref{Declarations}). Factors because they were declared so; @pxref{Declarations}). Factors
are cancelled from inequalities only if they are nonzero and their are canceled from inequalities only if they are nonzero and their
sign is known. sign is known.
Simplification also replaces an equation or inequality with Simplification also replaces an equation or inequality with
@ -23035,9 +23035,9 @@ The simplifications of @expr{@tfn{ln}(@tfn{exp}(x))},
unsafe because of problems with principal values (although these unsafe because of problems with principal values (although these
simplifications are safe if @expr{x} is known to be real). simplifications are safe if @expr{x} is known to be real).
Common factors are cancelled from products on both sides of an Common factors are canceled from products on both sides of an
equation, even if those factors may be zero: @expr{a x / b x} equation, even if those factors may be zero: @expr{a x / b x}
to @expr{a / b}. Such factors are never cancelled from to @expr{a / b}. Such factors are never canceled from
inequalities: Even @kbd{a e} is not bold enough to reduce inequalities: Even @kbd{a e} is not bold enough to reduce
@expr{a x < b x} to @expr{a < b} (or @expr{a > b}, depending @expr{a x < b x} to @expr{a < b} (or @expr{a > b}, depending
on whether you believe @expr{x} is positive or negative). on whether you believe @expr{x} is positive or negative).
@ -23071,7 +23071,7 @@ If units auto-ranging mode is enabled, products or quotients in
which the first argument is a number which is out of range for the which the first argument is a number which is out of range for the
leading unit are modified accordingly. leading unit are modified accordingly.
When cancelling and combining units in products and quotients, When canceling and combining units in products and quotients,
Calc accounts for unit names that differ only in the prefix letter. Calc accounts for unit names that differ only in the prefix letter.
For example, @samp{2 km m} is simplified to @samp{2000 m^2}. For example, @samp{2 km m} is simplified to @samp{2000 m^2}.
However, compatible but different units like @code{ft} and @code{in} However, compatible but different units like @code{ft} and @code{in}

4
doc/misc/idlwave.texi
View file

@ -1580,8 +1580,8 @@ available will be emphasized (e.g. colored blue). For other items, the
corresponding source code or DocLib header will be used as the help corresponding source code or DocLib header will be used as the help
text. text.
@cindex Completion, cancelling @cindex Completion, canceling
@cindex Cancelling completion @cindex Canceling completion
Completion is not a blocking operation --- you are free to continue Completion is not a blocking operation --- you are free to continue
editing, enter commands, or simply ignore the @file{*Completions*} editing, enter commands, or simply ignore the @file{*Completions*}
buffer during a completion operation. If, however, the most recent buffer during a completion operation. If, however, the most recent

2
doc/misc/message.texi
View file

@ -1974,7 +1974,7 @@ that look like:
Hallvard B Furuseth <h.b.furuseth@@usit.uio.no> writes: Hallvard B Furuseth <h.b.furuseth@@usit.uio.no> writes:
@end example @end example
@c FIXME: Add `message-insert-formated-citation-line' and @c FIXME: Add `message-insert-formatted-citation-line' and
@c `message-citation-line-format' @c `message-citation-line-format'
Point will be at the beginning of the body of the message when this Point will be at the beginning of the body of the message when this

6
doc/misc/org.texi
View file

@ -11399,16 +11399,16 @@ a file is retrieved with @code{org-publish-find-date}.
@tab Should sorting be case-sensitive? Default @code{nil}. @tab Should sorting be case-sensitive? Default @code{nil}.
@item @code{:sitemap-file-entry-format} @item @code{:sitemap-file-entry-format}
@tab With this option one can tell how a sitemap's entry is formated in the @tab With this option one can tell how a sitemap's entry is formatted in the
sitemap. This is a format string with some escape sequences: @code{%t} stands sitemap. This is a format string with some escape sequences: @code{%t} stands
for the title of the file, @code{%a} stands for the author of the file and for the title of the file, @code{%a} stands for the author of the file and
@code{%d} stands for the date of the file. The date is retrieved with the @code{%d} stands for the date of the file. The date is retrieved with the
@code{org-publish-find-date} function and formated with @code{org-publish-find-date} function and formatted with
@code{org-publish-sitemap-date-format}. Default @code{%t}. @code{org-publish-sitemap-date-format}. Default @code{%t}.
@item @code{:sitemap-date-format} @item @code{:sitemap-date-format}
@tab Format string for the @code{format-time-string} function that tells how @tab Format string for the @code{format-time-string} function that tells how
a sitemap entry's date is to be formated. This property bypasses a sitemap entry's date is to be formatted. This property bypasses
@code{org-publish-sitemap-date-format} which defaults to @code{%Y-%m-%d}. @code{org-publish-sitemap-date-format} which defaults to @code{%Y-%m-%d}.
@item @code{:sitemap-sans-extension} @item @code{:sitemap-sans-extension}

2
doc/misc/tramp.texi
View file

@ -3704,4 +3704,4 @@ for @value{emacsothername}.
@c host and then send commands to it. @c host and then send commands to it.
@c * Use `filename' resp. `file name' consistently. @c * Use `filename' resp. `file name' consistently.
@c * Use `host' resp. `machine' consistently. @c * Use `host' resp. `machine' consistently.
@c * Consistent small or capitalized words especially in menues. @c * Consistent small or capitalized words especially in menus.

2
etc/NEWS.19
View file

@ -4457,7 +4457,7 @@ highlighting, etc.
So that such output processing may be done efficiently, there is a new So that such output processing may be done efficiently, there is a new
variable, comint-last-output-start, that records the position of the start of variable, comint-last-output-start, that records the position of the start of
the lastest output inserted into the buffer (effectively the previous value the last output inserted into the buffer (effectively the previous value
of process-mark). Output processing functions should process the text of process-mark). Output processing functions should process the text
between comint-last-output-start (or perhaps the beginning of the line that between comint-last-output-start (or perhaps the beginning of the line that
the position lies on) and process-mark. the position lies on) and process-mark.

2
etc/TODO
View file

@ -674,7 +674,7 @@ with toolkit-specific code to display the menu bar right to left.
*** image-type-header-regexps priorities the jpeg loader over the *** image-type-header-regexps priorities the jpeg loader over the
ImageMagick one. This is not wrong, but how should a user go about ImageMagick one. This is not wrong, but how should a user go about
prefering the ImageMagick loader? The user might like zooming etc in jpegs. preferring the ImageMagick loader? The user might like zooming etc in jpegs.
Try (setq image-type-header-regexps nil) for a quick hack to prefer Try (setq image-type-header-regexps nil) for a quick hack to prefer
ImageMagick over the jpg loader. ImageMagick over the jpg loader.

4
etc/srecode/template.srt
View file

@ -125,13 +125,13 @@ prompt $?NAME$ "$?PROMPT$"
bind "p" bind "p"
template priority :blank template priority :blank
"Insert a priority statemept." "Insert a priority statement."
---- ----
set priority $^$ set priority $^$
---- ----
template application :blank template application :blank
"Insert a priority statemept." "Insert an application statement."
---- ----
set application "$^$" set application "$^$"
---- ----

4
leim/ChangeLog
View file

@ -1801,7 +1801,7 @@
1998-07-21 Kenichi Handa <handa@etl.go.jp> 1998-07-21 Kenichi Handa <handa@etl.go.jp>
* quail/japanese.el (quail-japanese-kanji-kkc): Handle the case * quail/japanese.el (quail-japanese-kanji-kkc): Handle the case
that conversion is cancelled in kkc-region. that conversion is canceled in kkc-region.
(quail-japanese-switch-package): Fix previous change. (quail-japanese-switch-package): Fix previous change.
1998-07-19 Kenichi Handa <handa@etl.go.jp> 1998-07-19 Kenichi Handa <handa@etl.go.jp>
@ -1998,7 +1998,7 @@
(quail-mode-map): Change binding for ethio-insert-ethio-space. (quail-mode-map): Change binding for ethio-insert-ethio-space.
(quail-mode-hook): Check the current Quail package name. (quail-mode-hook): Check the current Quail package name.
* quail/latin-post.el: Add rules for cancelling accents by typing * quail/latin-post.el: Add rules for canceling accents by typing
two accent keys (e.g. a~ => a-tilde, a~~ => a~) to all Quail two accent keys (e.g. a~ => a-tilde, a~~ => a~) to all Quail
packages. packages.

4
leim/quail/greek.el
View file

@ -152,7 +152,7 @@ eta H h
theta Q q theta Q q
iota I i iota I i
kappa K k kappa K k
lamda L l lambda L l
mu M m mu M m
nu N n nu N n
xi X x xi X x
@ -433,7 +433,7 @@ eta H h
theta J j theta J j
iota I i iota I i
kappa K k kappa K k
lamda L l lambda L l
mu M m mu M m
nu N n nu N n
xi X x xi X x

4
lisp/ChangeLog.12
View file

@ -7177,7 +7177,7 @@
2006-08-20 Chong Yidong <cyd@stupidchicken.com> 2006-08-20 Chong Yidong <cyd@stupidchicken.com>
* frame.el (blink-cursor-start): Set timer first. * frame.el (blink-cursor-start): Set timer first.
(blink-cursor-end): Ignore timer cancelling errors. (blink-cursor-end): Ignore timer canceling errors.
Suggested by Ken Manheimer. Suggested by Ken Manheimer.
2006-08-20 Juanma Barranquero <lekktu@gmail.com> 2006-08-20 Juanma Barranquero <lekktu@gmail.com>
@ -15842,7 +15842,7 @@
interactive spec from "p" to "P". interactive spec from "p" to "P".
* progmodes/cc-styles.el: Amend the doc-string of c-set-style, in * progmodes/cc-styles.el: Amend the doc-string of c-set-style, in
reponse to a report from Joseph Kiniry <kiniry@acm.org> that it response to a report from Joseph Kiniry <kiniry@acm.org> that it
was difficult to understand. was difficult to understand.
2005-12-08 Martin Stjernholm <bug-cc-mode@gnu.org> 2005-12-08 Martin Stjernholm <bug-cc-mode@gnu.org>

2
lisp/ChangeLog.13
View file

@ -8010,7 +8010,7 @@
2007-10-31 Juanma Barranquero <lekktu@gmail.com> 2007-10-31 Juanma Barranquero <lekktu@gmail.com>
* help-at-pt.el (help-at-pt-unload-hook): Remove. * help-at-pt.el (help-at-pt-unload-hook): Remove.
Timers are automatically cancelled by `unload-feature'. Timers are automatically canceled by `unload-feature'.
* delsel.el (delsel-unload-hook): Remove function and variable. * delsel.el (delsel-unload-hook): Remove function and variable.
(delsel-unload-function): New-style unload function, adapted (delsel-unload-function): New-style unload function, adapted

2
lisp/ChangeLog.14
View file

@ -866,7 +866,7 @@
* calc/calc-embed.el (calc-embedded-restore-original-modes): * calc/calc-embed.el (calc-embedded-restore-original-modes):
Add argument for Calculator buffer. Add argument for Calculator buffer.
(calc-do-embedded): Use specific Calculator buffer when cancelling (calc-do-embedded): Use specific Calculator buffer when canceling
embedded mode. embedded mode.
* calc/calc.el (calc-buffer-list): New variable. * calc/calc.el (calc-buffer-list): New variable.

4
lisp/ChangeLog.15
View file

@ -7086,7 +7086,7 @@
(sql-mode-oracle-font-lock-keywords): Improve SQL*Plus REMARK (sql-mode-oracle-font-lock-keywords): Improve SQL*Plus REMARK
syntax pattern. syntax pattern.
(sql-mode-postgres-font-lock-keywords): Support Postgres V9. (sql-mode-postgres-font-lock-keywords): Support Postgres V9.
(sql-mode-sqlite-font-lock-keywords): Hilight sqlite commands. (sql-mode-sqlite-font-lock-keywords): Highlight sqlite commands.
2010-09-10 Lars Magne Ingebrigtsen <larsi@gnus.org> 2010-09-10 Lars Magne Ingebrigtsen <larsi@gnus.org>
@ -11908,7 +11908,7 @@
Add new VC methods: vc-log-incoming and vc-log-outgoing. Add new VC methods: vc-log-incoming and vc-log-outgoing.
* vc.el (vc-print-log-setup-buttons): New function split out from * vc.el (vc-print-log-setup-buttons): New function split out from
vc-print-log-internal. vc-print-log-internal.
(vc-log-internal-common): New function, a parametrized version of (vc-log-internal-common): New function, a parameterized version of
vc-print-log-internal. vc-print-log-internal.
(vc-print-log-internal): Just call vc-log-internal-common with the (vc-print-log-internal): Just call vc-log-internal-common with the
right arguments. right arguments.

2
lisp/ChangeLog.3
View file

@ -6305,7 +6305,7 @@
to "Non-echoed text: ". This conforms with the convention to "Non-echoed text: ". This conforms with the convention
used by existing prompts, and gives more room to type stuff. used by existing prompts, and gives more room to type stuff.
* comint.el (comint-last-input-start): New varible. In * comint.el (comint-last-input-start): New variable. In
particular, this helps support subprocesses that insist on echoing particular, this helps support subprocesses that insist on echoing
their input. Added comments to porting guide indicating that their input. Added comments to porting guide indicating that
this should probably not be used for implementing history stuff. this should probably not be used for implementing history stuff.

2
lisp/ChangeLog.7
View file

@ -884,7 +884,7 @@
1998-07-21 Kenichi Handa <handa@etl.go.jp> 1998-07-21 Kenichi Handa <handa@etl.go.jp>
* international/kkc.el (kkc-region): Handled the case that * international/kkc.el (kkc-region): Handled the case that
conversion is cancelled. conversion is canceled.
(kkc-terminate): Update kkc-overlay-head correctly. (kkc-terminate): Update kkc-overlay-head correctly.
(kkc-cancel): Don't call kkc-terminate, but set kkc-converting to nil. (kkc-cancel): Don't call kkc-terminate, but set kkc-converting to nil.

3
lisp/calc/calc-menu.el
View file

@ -848,7 +848,7 @@
(call-interactively 'calc-vector-min)) (call-interactively 'calc-vector-min))
:keys "u N" :keys "u N"
:active (>= (calc-stack-size) 1) :active (>= (calc-stack-size) 1)
:help "The minumum of the data values"] :help "The minimum of the data values"]
["mean(1:)" ["mean(1:)"
(progn (progn
(require 'calc-stat) (require 'calc-stat)
@ -1565,4 +1565,3 @@
["Quit" calc-quit])) ["Quit" calc-quit]))
(provide 'calc-menu) (provide 'calc-menu)

2
lisp/calculator.el
View file

@ -81,7 +81,7 @@ This determines the default behavior of unary operators."
(defcustom calculator-prompt "Calc=%s> " (defcustom calculator-prompt "Calc=%s> "
"The prompt used by the Emacs calculator. "The prompt used by the Emacs calculator.
It should contain a \"%s\" somewhere that will indicate the i/o radixes; It should contain a \"%s\" somewhere that will indicate the i/o radices;
this will be a two-character string as described in the documentation this will be a two-character string as described in the documentation
for `calculator-mode'." for `calculator-mode'."
:type 'string :type 'string

2
lisp/calendar/appt.el
View file

@ -521,7 +521,7 @@ sMinutes before the appointment to start warning: ")
(or appt-timer (appt-activate)) (or appt-timer (appt-activate))
(let ((time-msg (list (list (appt-convert-time time)) (let ((time-msg (list (list (appt-convert-time time))
(concat time " " msg) t))) (concat time " " msg) t)))
;; It is presently non-sensical to have multiple warnings about ;; It is presently nonsensical to have multiple warnings about
;; the same appointment with just different delays, but it might ;; the same appointment with just different delays, but it might
;; not always be so. TODO ;; not always be so. TODO
(if warntime (setq time-msg (append time-msg (list warntime)))) (if warntime (setq time-msg (append time-msg (list warntime))))

4
lisp/cedet/inversion.el
View file

@ -199,12 +199,12 @@ not an indication of new features or bug fixes."
(= v1-1 v2-1) (= v1-1 v2-1)
(= v1-2 v2-2) (= v1-2 v2-2)
(= v1-3 v2-3) (= v1-3 v2-3)
v1-4 v2-4 ; all or nothin if elt - is = v1-4 v2-4 ; all or nothing if elt - is =
(< v1-4 v2-4)) (< v1-4 v2-4))
(and (= v1-0 v2-0) (and (= v1-0 v2-0)
(= v1-1 v2-1) (= v1-1 v2-1)
(= v1-2 v2-2) (= v1-2 v2-2)
v1-3 v2-3 ; all or nothin if elt - is = v1-3 v2-3 ; all or nothing if elt - is =
(< v1-3 v2-3)) (< v1-3 v2-3))
(and (= v1-1 v2-1) (and (= v1-1 v2-1)
(< v1-2 v2-2)) (< v1-2 v2-2))

2
lisp/cedet/semantic.el
View file

@ -680,7 +680,7 @@ Does nothing if the current buffer doesn't need reparsing."
(save-excursion (semantic-fetch-tags)) (save-excursion (semantic-fetch-tags))
nil) nil)
;; If we are here, it is because the lexical step failed, ;; If we are here, it is because the lexical step failed,
;; proably due to unterminated lists or something like that. ;; probably due to unterminated lists or something like that.
;; We do nothing, and just wait for the next idle timer ;; We do nothing, and just wait for the next idle timer
;; to go off. In the meantime, remember this, and make sure ;; to go off. In the meantime, remember this, and make sure

2
lisp/cedet/semantic/edit.el
View file

@ -859,7 +859,7 @@ pre-positioned to a convenient location."
(setq cacheend chil) (setq cacheend chil)
(while (and cacheend (not (eq last (car cacheend)))) (while (and cacheend (not (eq last (car cacheend))))
(setq cacheend (cdr cacheend))) (setq cacheend (cdr cacheend)))
;; The splicable part is after cacheend.. so move cacheend ;; The spliceable part is after cacheend.. so move cacheend
;; one more tag. ;; one more tag.
(setq cacheend (cdr cacheend)) (setq cacheend (cdr cacheend))
;; Splice the found end tag into the cons cell ;; Splice the found end tag into the cons cell

2
lisp/cedet/semantic/idle.el
View file

@ -515,7 +515,7 @@ Does nothing if the current buffer doesn't need reparsing."
(save-excursion (semantic-fetch-tags)) (save-excursion (semantic-fetch-tags))
nil) nil)
;; If we are here, it is because the lexical step failed, ;; If we are here, it is because the lexical step failed,
;; proably due to unterminated lists or something like that. ;; probably due to unterminated lists or something like that.
;; We do nothing, and just wait for the next idle timer ;; We do nothing, and just wait for the next idle timer
;; to go off. In the meantime, remember this, and make sure ;; to go off. In the meantime, remember this, and make sure

4
lisp/cedet/semantic/lex.el
View file

@ -1248,7 +1248,7 @@ they are comment end characters) AND when you want whitespace tokens."
(if (eq (semantic-lex-token-class (car semantic-lex-token-stream)) (if (eq (semantic-lex-token-class (car semantic-lex-token-stream))
'whitespace) 'whitespace)
;; Merge whitespace tokens together if they are adjacent. Two ;; Merge whitespace tokens together if they are adjacent. Two
;; whitespace tokens may be sperated by a comment which is not in ;; whitespace tokens may be separated by a comment which is not in
;; the token stream. ;; the token stream.
(setcdr (semantic-lex-token-bounds (car semantic-lex-token-stream)) (setcdr (semantic-lex-token-bounds (car semantic-lex-token-stream))
(match-end 0)) (match-end 0))
@ -1271,7 +1271,7 @@ they are comment end characters)."
(if (eq (semantic-lex-token-class (car semantic-lex-token-stream)) (if (eq (semantic-lex-token-class (car semantic-lex-token-stream))
'whitespace) 'whitespace)
;; Merge whitespace tokens together if they are adjacent. Two ;; Merge whitespace tokens together if they are adjacent. Two
;; whitespace tokens may be sperated by a comment which is not in ;; whitespace tokens may be separated by a comment which is not in
;; the token stream. ;; the token stream.
(progn (progn
(setq semantic-lex-end-point (match-end 0)) (setq semantic-lex-end-point (match-end 0))

2
lisp/cedet/semantic/tag-ls.el
View file

@ -195,7 +195,7 @@ See `semantic-tag-static-p'."
;;;###autoload ;;;###autoload
(define-overloadable-function semantic-tag-prototype-p (tag) (define-overloadable-function semantic-tag-prototype-p (tag)
"Return non nil if TAG is a prototype. "Return non nil if TAG is a prototype.
For some laguages, such as C, a prototype is a declaration of For some languages, such as C, a prototype is a declaration of
something without an implementation." something without an implementation."
) )

2
lisp/cedet/srecode/fields.el
View file

@ -324,7 +324,7 @@ Try to use this to provide useful completion when available.")
) )
(defvar srecode-field-replication-max-size 100 (defvar srecode-field-replication-max-size 100
"Maximum size of a field before cancelling replication.") "Maximum size of a field before canceling replication.")
(defun srecode-field-mod-hook (ol after start end &optional pre-len) (defun srecode-field-mod-hook (ol after start end &optional pre-len)
"Modification hook for the field overlay. "Modification hook for the field overlay.

4
lisp/delim-col.el
View file

@ -206,7 +206,7 @@ This has effect only when there are lines with different number of columns."
:group 'columns) :group 'columns)
(defcustom delimit-columns-start 0 (defcustom delimit-columns-start 0
"Specify column number to start prettifing. "Specify column number to start prettifying.
See also `delimit-columns-end' for documentation. See also `delimit-columns-end' for documentation.
@ -221,7 +221,7 @@ column (column 0) is located at left corner."
:group 'columns) :group 'columns)
(defcustom delimit-columns-end 1000000 (defcustom delimit-columns-end 1000000
"Specify column number to end prettifing. "Specify column number to end prettifying.
See also `delimit-columns-start' for documentation. See also `delimit-columns-start' for documentation.

2
lisp/delsel.el
View file

@ -144,7 +144,7 @@ any selection."
(put 'newline 'delete-selection t) (put 'newline 'delete-selection t)
(put 'open-line 'delete-selection 'kill) (put 'open-line 'delete-selection 'kill)
;; This is very useful for cancelling a selection in the minibuffer without ;; This is very useful for canceling a selection in the minibuffer without
;; aborting the minibuffer. ;; aborting the minibuffer.
(defun minibuffer-keyboard-quit () (defun minibuffer-keyboard-quit ()
"Abort recursive edit. "Abort recursive edit.

2
lisp/descr-text.el
View file

@ -358,7 +358,7 @@ This function is semi-obsolete. Use `get-char-code-property'."
(compose-string (string ch) 0 1 (format "\t%c\t" ch)) (compose-string (string ch) 0 1 (format "\t%c\t" ch))
(string ch))) (string ch)))
;; Return a nicely formated list of categories; extended category ;; Return a nicely formatted list of categories; extended category
;; description is added to the category name as a tooltip ;; description is added to the category name as a tooltip
(defsubst describe-char-categories (category-set) (defsubst describe-char-categories (category-set)
(let ((mnemonics (category-set-mnemonics category-set))) (let ((mnemonics (category-set-mnemonics category-set)))

2
lisp/dired-x.el
View file

@ -1392,7 +1392,7 @@ Considers buffers closer to the car of `buffer-list' to be more recent."
;; Apparently people do use it. - lrd 12/22/97. ;; Apparently people do use it. - lrd 12/22/97.
(with-no-warnings (with-no-warnings
;; Warnings are suppresed to avoid "global/dynamic var `X' lacks a prefix". ;; Warnings are suppressed to avoid "global/dynamic var `X' lacks a prefix".
;; This is unbearably ugly, but not more than having global variables ;; This is unbearably ugly, but not more than having global variables
;; named size, time, name or s, however practical it can be while writing ;; named size, time, name or s, however practical it can be while writing
;; `dired-mark-sexp' predicates. ;; `dired-mark-sexp' predicates.

2
lisp/electric.el
View file

@ -85,7 +85,7 @@
(eq last-input-event ?\C-g)) (eq last-input-event ?\C-g))
(progn (setq unread-command-events nil (progn (setq unread-command-events nil
prefix-arg nil) prefix-arg nil)
;; If it wasn't cancelling a prefix character, then quit. ;; If it wasn't canceling a prefix character, then quit.
(if (or (= (length (this-command-keys)) 1) (if (or (= (length (this-command-keys)) 1)
(not inhibit-quit)) ; safety (not inhibit-quit)) ; safety
(progn (ding) (progn (ding)

2
lisp/emacs-lisp/edebug.el
View file

@ -3448,7 +3448,7 @@ instrumented. Then it does `edebug-on-entry' and switches to `go' mode."
(defun edebug-on-entry (function &optional flag) (defun edebug-on-entry (function &optional flag)
"Cause Edebug to stop when FUNCTION is called. "Cause Edebug to stop when FUNCTION is called.
With prefix argument, make this temporary so it is automatically With prefix argument, make this temporary so it is automatically
cancelled the first time the function is entered." canceled the first time the function is entered."
(interactive "aEdebug on entry to: \nP") (interactive "aEdebug on entry to: \nP")
;; Could store this in the edebug data instead. ;; Could store this in the edebug data instead.
(put function 'edebug-on-entry (if flag 'temp t))) (put function 'edebug-on-entry (if flag 'temp t)))

2
lisp/emacs-lisp/eieio.el
View file

@ -57,7 +57,7 @@
(eval-and-compile (eval-and-compile
;; About the above. EIEIO must process its own code when it compiles ;; About the above. EIEIO must process its own code when it compiles
;; itself, thus, by eval-and-compiling outselves, we solve the problem. ;; itself, thus, by eval-and-compiling ourselves, we solve the problem.
;; Compatibility ;; Compatibility
(if (fboundp 'compiled-function-arglist) (if (fboundp 'compiled-function-arglist)

2
lisp/emulation/cua-base.el
View file

@ -1242,7 +1242,7 @@ If ARG is the atom `-', scroll upward by nearly full screen."
;; Handle shifted cursor keys and other movement commands. ;; Handle shifted cursor keys and other movement commands.
;; If region is not active, region is activated if key is shifted. ;; If region is not active, region is activated if key is shifted.
;; If region is active, region is cancelled if key is unshifted ;; If region is active, region is canceled if key is unshifted
;; (and region not started with C-SPC). ;; (and region not started with C-SPC).
;; If rectangle is active, expand rectangle in specified direction and ;; If rectangle is active, expand rectangle in specified direction and
;; ignore the movement. ;; ignore the movement.

2
lisp/emulation/cua-gmrk.el
View file

@ -94,7 +94,7 @@ insert the deleted or copied text before the global marker, even when the
global marker is in another buffer. global marker is in another buffer.
If the global marker isn't set, set the global marker at point in the current If the global marker isn't set, set the global marker at point in the current
buffer. Otherwise jump to the global marker position and cancel it. buffer. Otherwise jump to the global marker position and cancel it.
With prefix argument, don't jump to global mark when cancelling it." With prefix argument, don't jump to global mark when canceling it."
(interactive "P") (interactive "P")
(unless cua--global-mark-initialized (unless cua--global-mark-initialized
(cua--init-global-mark)) (cua--init-global-mark))

2
lisp/emulation/vip.el
View file

@ -877,7 +877,7 @@ is the name of the register for COM."
(if (> beg end) (exchange-point-and-mark))) (if (> beg end) (exchange-point-and-mark)))
(defun vip-global-execute () (defun vip-global-execute ()
"Call last keyboad macro for each line in the region." "Call last keyboard macro for each line in the region."
(if (> (point) (mark)) (exchange-point-and-mark)) (if (> (point) (mark)) (exchange-point-and-mark))
(beginning-of-line) (beginning-of-line)
(call-last-kbd-macro) (call-last-kbd-macro)

16
lisp/emulation/viper-cmd.el
View file

@ -716,7 +716,7 @@
(error (error
(viper-message-conditions conds)))) (viper-message-conditions conds))))
;; escape to emacs mode termporarily ;; escape to emacs mode temporarily
(defun viper-escape-to-emacs (arg &optional events) (defun viper-escape-to-emacs (arg &optional events)
"Escape to Emacs state from Vi state for one Emacs command. "Escape to Emacs state from Vi state for one Emacs command.
ARG is used as the prefix value for the executed command. If ARG is used as the prefix value for the executed command. If
@ -726,7 +726,7 @@ EVENTS is a list of events, which become the beginning of the command."
(message "Switched to EMACS state for the next command...")) (message "Switched to EMACS state for the next command..."))
(viper-escape-to-state arg events 'emacs-state)) (viper-escape-to-state arg events 'emacs-state))
;; escape to Vi mode termporarily ;; escape to Vi mode temporarily
(defun viper-escape-to-vi (arg) (defun viper-escape-to-vi (arg)
"Escape from Emacs state to Vi state for one Vi 1-character command. "Escape from Emacs state to Vi state for one Vi 1-character command.
If the Vi command that the user types has a prefix argument, e.g., `d2w', then If the Vi command that the user types has a prefix argument, e.g., `d2w', then
@ -2407,7 +2407,7 @@ problems."
t 'local) t 'local)
(add-hook (add-hook
'viper-pre-command-hooks 'viper-replace-state-pre-command-sentinel t 'local) 'viper-pre-command-hooks 'viper-replace-state-pre-command-sentinel t 'local)
;; guard against a smartie who switched from R-replace to normal replace ;; guard against a smarty who switched from R-replace to normal replace
(remove-hook (remove-hook
'viper-post-command-hooks 'viper-R-state-post-command-sentinel 'local) 'viper-post-command-hooks 'viper-R-state-post-command-sentinel 'local)
(if overwrite-mode (overwrite-mode -1)) (if overwrite-mode (overwrite-mode -1))
@ -2531,7 +2531,7 @@ problems."
'viper-post-command-hooks 'viper-R-state-post-command-sentinel t 'local) 'viper-post-command-hooks 'viper-R-state-post-command-sentinel t 'local)
(add-hook (add-hook
'viper-pre-command-hooks 'viper-replace-state-pre-command-sentinel t 'local) 'viper-pre-command-hooks 'viper-replace-state-pre-command-sentinel t 'local)
;; guard against a smartie who switched from R-replace to normal replace ;; guard against a smarty who switched from R-replace to normal replace
(remove-hook (remove-hook
'viper-post-command-hooks 'viper-replace-state-post-command-sentinel 'local) 'viper-post-command-hooks 'viper-replace-state-post-command-sentinel 'local)
) )
@ -3767,7 +3767,7 @@ If MAJOR-MODE is set, set the macros only in that major mode."
"//" 'vi-state "//" 'vi-state
[1 (meta x) v i p e r - t o g g l e - s e a r c h - s t y l e return] [1 (meta x) v i p e r - t o g g l e - s e a r c h - s t y l e return]
scope) scope)
;; toggle regexp/vanila search ;; toggle regexp/vanilla search
(viper-record-kbd-macro (viper-record-kbd-macro
"///" 'vi-state "///" 'vi-state
[2 (meta x) v i p e r - t o g g l e - s e a r c h - s t y l e return] [2 (meta x) v i p e r - t o g g l e - s e a r c h - s t y l e return]
@ -3824,7 +3824,7 @@ the macros are set in the current major mode.
"//" 'emacs-state "//" 'emacs-state
[1 (meta x) v i p e r - t o g g l e - s e a r c h - s t y l e return] [1 (meta x) v i p e r - t o g g l e - s e a r c h - s t y l e return]
(or arg-majormode major-mode)) (or arg-majormode major-mode))
;; toggle regexp/vanila search ;; toggle regexp/vanilla search
(viper-record-kbd-macro (viper-record-kbd-macro
"///" 'emacs-state "///" 'emacs-state
[2 (meta x) v i p e r - t o g g l e - s e a r c h - s t y l e return] [2 (meta x) v i p e r - t o g g l e - s e a r c h - s t y l e return]
@ -4017,7 +4017,7 @@ Null string will repeat previous search."
(setq viper-prefix-commands (setq viper-prefix-commands
(cons viper-buffer-search-char viper-prefix-commands))) (cons viper-buffer-search-char viper-prefix-commands)))
;; This is a Viper wraper for isearch-forward. ;; This is a Viper wrapper for isearch-forward.
(defun viper-isearch-forward (arg) (defun viper-isearch-forward (arg)
"Do incremental search forward." "Do incremental search forward."
(interactive "P") (interactive "P")
@ -4025,7 +4025,7 @@ Null string will repeat previous search."
(if (listp arg) (setq arg (car arg))) (if (listp arg) (setq arg (car arg)))
(viper-exec-form-in-emacs (list 'isearch-forward arg))) (viper-exec-form-in-emacs (list 'isearch-forward arg)))
;; This is a Viper wraper for isearch-backward." ;; This is a Viper wrapper for isearch-backward."
(defun viper-isearch-backward (arg) (defun viper-isearch-backward (arg)
"Do incremental search backward." "Do incremental search backward."
(interactive "P") (interactive "P")

2
lisp/emulation/viper-init.el
View file

@ -818,7 +818,7 @@ Related buffers can be cycled through via :R and :P commands."
;;; Face-saving tricks ;;; Face-saving tricks
(defgroup viper-highlighting nil (defgroup viper-highlighting nil
"Hilighting of replace region, search pattern, minibuffer, etc." "Highlighting of replace region, search pattern, minibuffer, etc."
:prefix "viper-" :prefix "viper-"
:group 'viper) :group 'viper)

2
lisp/emulation/viper-macs.el
View file

@ -921,7 +921,7 @@ name from there."
(defun viper-global-execute () (defun viper-global-execute ()
"Call last keyboad macro for each line in the region." "Call last keyboard macro for each line in the region."
(if (> (point) (mark t)) (exchange-point-and-mark)) (if (> (point) (mark t)) (exchange-point-and-mark))
(beginning-of-line) (beginning-of-line)
(call-last-kbd-macro) (call-last-kbd-macro)

2
lisp/emulation/viper.el
View file

@ -491,7 +491,7 @@ unless it is coming up in a wrong Viper state."
) )
"List specifying how to modify the various major modes to enable some Viperisms. "List specifying how to modify the various major modes to enable some Viperisms.
The list has the structure: ((mode viper-state keymap) (mode viper-state The list has the structure: ((mode viper-state keymap) (mode viper-state
keymap) ...). If `mode' is on the list, the `kemap' will be made active (on keymap) ...). If `mode' is on the list, the `keymap' will be made active (on
the minor-mode-map-alist) in the specified viper state. the minor-mode-map-alist) in the specified viper state.
If you change this list, have to restart Emacs for the change to take effect. If you change this list, have to restart Emacs for the change to take effect.
However, if you did the change through the customization widget, then Emacs However, if you did the change through the customization widget, then Emacs

4
lisp/files.el
View file

@ -4866,7 +4866,7 @@ given. With a prefix argument, TRASH is nil."
directory 'full directory-files-no-dot-files-regexp)) directory 'full directory-files-no-dot-files-regexp))
(error "Directory is not empty, not moving to trash") (error "Directory is not empty, not moving to trash")
(move-file-to-trash directory))) (move-file-to-trash directory)))
;; Otherwise, call outselves recursively if needed. ;; Otherwise, call ourselves recursively if needed.
(t (t
(if (and recursive (not (file-symlink-p directory))) (if (and recursive (not (file-symlink-p directory)))
(mapc (lambda (file) (mapc (lambda (file)
@ -6110,7 +6110,7 @@ message to that effect instead of signaling an error."
(defvar kill-emacs-query-functions nil (defvar kill-emacs-query-functions nil
"Functions to call with no arguments to query about killing Emacs. "Functions to call with no arguments to query about killing Emacs.
If any of these functions returns nil, killing Emacs is cancelled. If any of these functions returns nil, killing Emacs is canceled.
`save-buffers-kill-emacs' calls these functions, but `kill-emacs', `save-buffers-kill-emacs' calls these functions, but `kill-emacs',
the low level primitive, does not. See also `kill-emacs-hook'.") the low level primitive, does not. See also `kill-emacs-hook'.")

4
lisp/follow.el
View file

@ -1129,7 +1129,7 @@ Otherwise, return nil."
;;{{{ Redisplay ;;{{{ Redisplay
;; Redraw all the windows on the screen, starting with the top window. ;; Redraw all the windows on the screen, starting with the top window.
;; The window used as as marker is WIN, or the selcted window if WIN ;; The window used as as marker is WIN, or the selected window if WIN
;; is nil. Start every window directly after the end of the previous ;; is nil. Start every window directly after the end of the previous
;; window, to make sure long lines are displayed correctly. ;; window, to make sure long lines are displayed correctly.
@ -1993,7 +1993,7 @@ report this using the `report-emacs-bug' function."
;; going to be recentered at the next redisplay, unless we do a ;; going to be recentered at the next redisplay, unless we do a
;; read-and-write cycle to update the `force' flag inside the windows. ;; read-and-write cycle to update the `force' flag inside the windows.
;; ;;
;; In 19.30, a new varible `window-scroll-functions' is called every ;; In 19.30, a new variable `window-scroll-functions' is called every
;; time a window is recentered. It is not perfect for our situation, ;; time a window is recentered. It is not perfect for our situation,
;; since when it is called for a tail window, it is to late. However, ;; since when it is called for a tail window, it is to late. However,
;; if it is called for another window, we can try to update our ;; if it is called for another window, we can try to update our

4
lisp/gnus/ChangeLog
View file

@ -365,7 +365,7 @@
(message-mail-other-window, message-mail-other-frame) (message-mail-other-window, message-mail-other-frame)
(message-news-other-window, message-news-other-frame): (message-news-other-window, message-news-other-frame):
Use switch-to-buffer-other-frame and switch-to-buffer-other-window Use switch-to-buffer-other-frame and switch-to-buffer-other-window
instead of setting buffer display varibles. instead of setting buffer display variables.
2011-09-11 Lars Magne Ingebrigtsen <larsi@gnus.org> 2011-09-11 Lars Magne Ingebrigtsen <larsi@gnus.org>
@ -7128,7 +7128,7 @@
* gnus-start.el (gnus-activate-group): Take an optional parameter to * gnus-start.el (gnus-activate-group): Take an optional parameter to
say that you don't want to call gnus-request-group with don-check, but say that you don't want to call gnus-request-group with don-check, but
do check the reponse. This is for virtual groups only. do check the response. This is for virtual groups only.
(gnus-get-unread-articles): Count the archive groups as secondary, so (gnus-get-unread-articles): Count the archive groups as secondary, so
that they're activated the same way as before. that they're activated the same way as before.

4
lisp/gnus/gnus-fun.el
View file

@ -274,10 +274,10 @@ colors of the displayed X-Faces."
result)) result))
(defun gnus-fun-ppm-change-string () (defun gnus-fun-ppm-change-string ()
(let* ((possibilites '("%02x0000" "00%02x00" "0000%02x" (let* ((possibilities '("%02x0000" "00%02x00" "0000%02x"
"%02x%02x00" "00%02x%02x" "%02x00%02x")) "%02x%02x00" "00%02x%02x" "%02x00%02x"))
(format (concat "'#%02x%02x%02x' '#" (format (concat "'#%02x%02x%02x' '#"
(nth (random 6) possibilites) (nth (random 6) possibilities)
"'")) "'"))
(values nil)) (values nil))
(dotimes (i 255) (dotimes (i 255)

2
lisp/gnus/gnus-msg.el
View file

@ -1588,7 +1588,7 @@ this is a reply."
;; BUG: We really need to get the charset for ;; BUG: We really need to get the charset for
;; each name in the Newsgroups and Followup-To ;; each name in the Newsgroups and Followup-To
;; lines to allow crossposting between group ;; lines to allow crossposting between group
;; namess with incompatible character sets. ;; names with incompatible character sets.
;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2001-10-08. ;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2001-10-08.
(group-field-charset (group-field-charset
(gnus-group-name-charset (gnus-group-name-charset

2
lisp/gnus/gnus-sum.el
View file

@ -7087,7 +7087,7 @@ With ARG, turn line truncation on if ARG is positive."
(defun gnus-summary-find-for-reselect () (defun gnus-summary-find-for-reselect ()
"Return the number of an article to stay on across a reselect. "Return the number of an article to stay on across a reselect.
The current article is considered, then following articles, then previous The current article is considered, then following articles, then previous
articles. An article is sought which is not cancelled and isn't a temporary articles. An article is sought which is not canceled and isn't a temporary
insertion from another group. If there's no such then return a dummy 0." insertion from another group. If there's no such then return a dummy 0."
(let (found) (let (found)
(dolist (rev '(nil t)) (dolist (rev '(nil t))

2
lisp/gnus/gnus.el
View file

@ -700,7 +700,7 @@ be set in `.emacs' instead."
(defface gnus-summary-cancelled (defface gnus-summary-cancelled
'((((class color)) '((((class color))
(:foreground "yellow" :background "black"))) (:foreground "yellow" :background "black")))
"Face used for cancelled articles." "Face used for canceled articles."
:group 'gnus-summary) :group 'gnus-summary)
;; backward-compatibility alias ;; backward-compatibility alias
(put 'gnus-summary-cancelled-face 'face-alias 'gnus-summary-cancelled) (put 'gnus-summary-cancelled-face 'face-alias 'gnus-summary-cancelled)

4
lisp/gnus/message.el
View file

@ -906,7 +906,7 @@ The function `message-setup' runs this hook."
:type 'hook) :type 'hook)
(defcustom message-cancel-hook nil (defcustom message-cancel-hook nil
"Hook run when cancelling articles." "Hook run when canceling articles."
:group 'message-various :group 'message-various
:link '(custom-manual "(message)Various Message Variables") :link '(custom-manual "(message)Various Message Variables")
:type 'hook) :type 'hook)
@ -4840,7 +4840,7 @@ Otherwise, generate and save a value for `canlock-password' first."
(message-fetch-field "Followup-To"))) (message-fetch-field "Followup-To")))
;; BUG: We really need to get the charset for each name in the ;; BUG: We really need to get the charset for each name in the
;; Newsgroups and Followup-To lines to allow crossposting ;; Newsgroups and Followup-To lines to allow crossposting
;; between group namess with incompatible character sets. ;; between group names with incompatible character sets.
;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2001-10-08. ;; -- Per Abrahamsen <abraham@dina.kvl.dk> 2001-10-08.
(group-field-charset (group-field-charset
(gnus-group-name-charset method newsgroups-field)) (gnus-group-name-charset method newsgroups-field))

6
lisp/gnus/nndiary.el
View file

@ -353,7 +353,7 @@ all. This may very well take some time.")
;; List of NNDiary headers that specify the time spec. Each header name is ;; List of NNDiary headers that specify the time spec. Each header name is
;; followed by either two integers (specifying a range of possible values ;; followed by either two integers (specifying a range of possible values
;; for this header) or one list (specifying all the possible values for this ;; for this header) or one list (specifying all the possible values for this
;; header). In the latter case, the list does NOT include the unspecifyed ;; header). In the latter case, the list does NOT include the unspecified
;; spec (*). ;; spec (*).
;; For time zone values, we have symbolic time zone names associated with ;; For time zone values, we have symbolic time zone names associated with
;; the (relative) number of seconds ahead GMT. ;; the (relative) number of seconds ahead GMT.
@ -1163,9 +1163,9 @@ all. This may very well take some time.")
;; Parse the schedule string STR, or signal an error. ;; Parse the schedule string STR, or signal an error.
;; Signals are caught by `nndary-schedule'. ;; Signals are caught by `nndary-schedule'.
(if (string-match "[ \t]*\\*[ \t]*" str) (if (string-match "[ \t]*\\*[ \t]*" str)
;; unspecifyed ;; unspecified
nil nil
;; specifyed ;; specified
(if (listp min-or-values) (if (listp min-or-values)
;; min-or-values is values ;; min-or-values is values
;; #### NOTE: this is actually only a hack for time zones. ;; #### NOTE: this is actually only a hack for time zones.

4
lisp/gnus/nnir.el
View file

@ -1273,8 +1273,8 @@ Tested with swish-e-2.0.1 on Windows NT 4.0."
(message "Doing hyrex-search query \"%s\"...done" qstring) (message "Doing hyrex-search query \"%s\"...done" qstring)
(sit-for 0) (sit-for 0)
;; nnir-search returns: ;; nnir-search returns:
;; for nnml/nnfolder: "filename mailid weigth" ;; for nnml/nnfolder: "filename mailid weight"
;; for nnimap: "group mailid weigth" ;; for nnimap: "group mailid weight"
(goto-char (point-min)) (goto-char (point-min))
(delete-non-matching-lines "^\\S + [0-9]+ [0-9]+$") (delete-non-matching-lines "^\\S + [0-9]+ [0-9]+$")
;; HyREX doesn't search directly in groups -- so filter out here. ;; HyREX doesn't search directly in groups -- so filter out here.

2
lisp/gnus/nntp.el
View file

@ -665,7 +665,7 @@ command whose response triggered the error."
(process-buffer -process)))) (process-buffer -process))))
;; When I an able to identify the ;; When I an able to identify the
;; connection to the server AND I've ;; connection to the server AND I've
;; received NO reponse for ;; received NO response for
;; nntp-connection-timeout seconds. ;; nntp-connection-timeout seconds.
(when (and -buffer (eq 0 (buffer-size -buffer))) (when (and -buffer (eq 0 (buffer-size -buffer)))
;; Close the connection. Take no ;; Close the connection. Take no

4
lisp/ibuffer.el
View file

@ -426,7 +426,7 @@ directory, like `default-directory'."
'(menu-item "Save current filter groups permanently..." '(menu-item "Save current filter groups permanently..."
ibuffer-save-filter-groups ibuffer-save-filter-groups
:enable (and (featurep 'ibuf-ext) ibuffer-filter-groups) :enable (and (featurep 'ibuf-ext) ibuffer-filter-groups)
:help "Use a mnemnonic name to store current filter groups")) :help "Use a mnemonic name to store current filter groups"))
(define-key-after groups-map [switch-to-saved-filter-groups] (define-key-after groups-map [switch-to-saved-filter-groups]
'(menu-item "Restore permanently saved filters..." '(menu-item "Restore permanently saved filters..."
ibuffer-switch-to-saved-filter-groups ibuffer-switch-to-saved-filter-groups
@ -676,7 +676,7 @@ directory, like `default-directory'."
(define-key-after map [menu-bar view filter save-filters] (define-key-after map [menu-bar view filter save-filters]
'(menu-item "Save current filters permanently..." ibuffer-save-filters '(menu-item "Save current filters permanently..." ibuffer-save-filters
:enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers) :enable (and (featurep 'ibuf-ext) ibuffer-filtering-qualifiers)
:help "Use a mnemnonic name to store current filter stack")) :help "Use a mnemonic name to store current filter stack"))
(define-key-after map [menu-bar view filter switch-to-saved-filters] (define-key-after map [menu-bar view filter switch-to-saved-filters]
'(menu-item "Restore permanently saved filters..." '(menu-item "Restore permanently saved filters..."
ibuffer-switch-to-saved-filters ibuffer-switch-to-saved-filters

2
lisp/international/mule.el
View file

@ -1785,7 +1785,7 @@ contents of the current buffer following point against
succeed, it checks to see if any function in `auto-coding-functions' succeed, it checks to see if any function in `auto-coding-functions'
gives a match. gives a match.
If a coding system is specifed, the return value is a cons If a coding system is specified, the return value is a cons
\(CODING . SOURCE), where CODING is the specified coding system and \(CODING . SOURCE), where CODING is the specified coding system and
SOURCE is a symbol `auto-coding-alist', `auto-coding-regexp-alist', SOURCE is a symbol `auto-coding-alist', `auto-coding-regexp-alist',
`:coding', or `auto-coding-functions' indicating by what CODING is `:coding', or `auto-coding-functions' indicating by what CODING is

2
lisp/international/quail.el
View file

@ -2703,7 +2703,7 @@ KEY BINDINGS FOR CONVERSION
;; Generate a half-cooked decode map (char-table) for the current ;; Generate a half-cooked decode map (char-table) for the current
;; Quail map. An element for a character C is a key string or a list ;; Quail map. An element for a character C is a key string or a list
;; of a key strings to type to input C. The lenth of key string is at ;; of a key strings to type to input C. The length of key string is at
;; most 2. If it is 2, more keys may be required to input C. ;; most 2. If it is 2, more keys may be required to input C.
(defun quail-gen-decode-map () (defun quail-gen-decode-map ()

4
lisp/international/titdic-cnv.el
View file

@ -122,7 +122,7 @@ compose one Chinese character.
In this input method, you enter a Chinese character by first typing In this input method, you enter a Chinese character by first typing
keys corresponding to Zhuyin symbols (see the above table) followed by keys corresponding to Zhuyin symbols (see the above table) followed by
SPC, 1, 2, 3, or 4 specifing a tone (SPC:$(0?v(N(B, 1:$(0M=Vy(B, 2:$(0Dm(N(B, 3: $(0&9Vy(B, SPC, 1, 2, 3, or 4 specifying a tone (SPC:$(0?v(N(B, 1:$(0M=Vy(B, 2:$(0Dm(N(B, 3: $(0&9Vy(B,
4:$(0(+Vy(B). 4:$(0(+Vy(B).
\\<quail-translation-docstring>") \\<quail-translation-docstring>")
@ -203,7 +203,7 @@ compose a Chinese character.
In this input method, you enter a Chinese character by first typing In this input method, you enter a Chinese character by first typing
keys corresponding to Zhuyin symbols (see the above table) followed by keys corresponding to Zhuyin symbols (see the above table) followed by
SPC, 6, 3, 4, or 7 specifing a tone (SPC:$(0?v(N(B, 6:$(0Dm(N(B, 3:$(0&9Vy(B, 4:$(0(+Vy(B, SPC, 6, 3, 4, or 7 specifying a tone (SPC:$(0?v(N(B, 6:$(0Dm(N(B, 3:$(0&9Vy(B, 4:$(0(+Vy(B,
7:$(0M=Vy(B). 7:$(0M=Vy(B).
\\<quail-translation-docstring>"))) \\<quail-translation-docstring>")))

2
lisp/international/ucs-normalize.el
View file

@ -227,7 +227,7 @@ Note that Hangul are excluded.")
(eval-when-compile decomposition-pair-to-composition))) (eval-when-compile decomposition-pair-to-composition)))
(defun ucs-normalize-primary-composite (decomposition-pair composition-predicate) (defun ucs-normalize-primary-composite (decomposition-pair composition-predicate)
"Convert DECOMPOSITION-PAIR to primay composite using COMPOSITION-PREDICATE." "Convert DECOMPOSITION-PAIR to primary composite using COMPOSITION-PREDICATE."
(let ((char (or (gethash decomposition-pair (let ((char (or (gethash decomposition-pair
ucs-normalize-decomposition-pair-to-primary-composite) ucs-normalize-decomposition-pair-to-primary-composite)
(and (<= #x1100 (car decomposition-pair)) (and (<= #x1100 (car decomposition-pair))

2
lisp/kmacro.el
View file

@ -747,7 +747,7 @@ If kbd macro currently being defined end it before activating it."
;; Create a separate keymap installed as a minor-mode keymap (e.g. in ;; Create a separate keymap installed as a minor-mode keymap (e.g. in
;; the emulation-mode-map-alists) in which macro bindings are made ;; the emulation-mode-map-alists) in which macro bindings are made
;; independent of any other bindings. When first binding is made, ;; independent of any other bindings. When first binding is made,
;; the kemap is created, installed, and enabled. Key seq. C-x C-k + ;; the keymap is created, installed, and enabled. Key seq. C-x C-k +
;; can then be used to toggle the use of this keymap on and off. ;; can then be used to toggle the use of this keymap on and off.
;; This means that it would be safe(r) to bind ordinary keys like ;; This means that it would be safe(r) to bind ordinary keys like
;; letters and digits, provided that we inhibit the keymap while ;; letters and digits, provided that we inhibit the keymap while

2
lisp/language/chinese.el
View file

@ -220,7 +220,7 @@ accepts Big5 for input also (which is then converted to CNS)."))
(features china-util) (features china-util)
(input-method . "chinese-cns-quick") (input-method . "chinese-cns-quick")
(documentation . "\ (documentation . "\
Support for Chinese, prefering the EUC-TW character set. Note that Support for Chinese, preferring the EUC-TW character set. Note that
the EUC-TW coding system accepts Big5 for input also (which is then the EUC-TW coding system accepts Big5 for input also (which is then
converted to CNS).")) converted to CNS)."))
'("Chinese")) '("Chinese"))

4
lisp/language/viet-util.el
View file

@ -34,7 +34,7 @@
;; for representing these characters: VISCII, TCVN-5712, VPS, VIQR, ;; for representing these characters: VISCII, TCVN-5712, VPS, VIQR,
;; and Unicode. VISCII, TCVN-5712 and VPS are simple 1-byte code ;; and Unicode. VISCII, TCVN-5712 and VPS are simple 1-byte code
;; which assigns 134 unique characters in control-code area ;; which assigns 134 unique characters in control-code area
;; (0x00..0x1F) and right half area (0x80..0xFF). VIQR is a menmonic ;; (0x00..0x1F) and right half area (0x80..0xFF). VIQR is a mnemonic
;; encoding specification representing diacritical marks by following ;; encoding specification representing diacritical marks by following
;; ASCII characters. ;; ASCII characters.
@ -47,7 +47,7 @@
"Return VISCII character code of CHAR if appropriate." "Return VISCII character code of CHAR if appropriate."
(encode-char char 'viscii)) (encode-char char 'viscii))
;; VIQR is a menmonic encoding specification for Vietnamese. ;; VIQR is a mnemonic encoding specification for Vietnamese.
;; It represents diacritical marks by ASCII characters as follows: ;; It represents diacritical marks by ASCII characters as follows:
;; ------------+----------+-------- ;; ------------+----------+--------
;; mark | mnemonic | example ;; mark | mnemonic | example

2
lisp/man.el
View file

@ -687,7 +687,7 @@ POS defaults to `point'."
;; Otherwise record the current column and look backwards. ;; Otherwise record the current column and look backwards.
(setq column (current-column)) (setq column (current-column))
(skip-chars-backward ",; \t") (skip-chars-backward ",; \t")
;; Record the distance travelled. ;; Record the distance traveled.
(setq distance (- column (current-column))) (setq distance (- column (current-column)))
(when (looking-back (when (looking-back
(concat "([ \t]*\\(?:" Man-section-regexp "\\)[ \t]*)")) (concat "([ \t]*\\(?:" Man-section-regexp "\\)[ \t]*)"))

2
lisp/net/ange-ftp.el
View file

@ -1664,7 +1664,7 @@ good, skip, fatal, or unknown."
(if (not (and seen-prompt ange-ftp-pending-error-line)) (if (not (and seen-prompt ange-ftp-pending-error-line))
(ange-ftp-process-handle-line line proc) (ange-ftp-process-handle-line line proc)
;; If we've seen a potential error message and it ;; If we've seen a potential error message and it
;; hasn't been cancelled by a good message before ;; hasn't been canceled by a good message before
;; seeing a prompt, then the error was real. ;; seeing a prompt, then the error was real.
(delete-process proc) (delete-process proc)
(setq ange-ftp-process-busy nil (setq ange-ftp-process-busy nil

2
lisp/net/zeroconf.el
View file

@ -82,7 +82,7 @@
;; The function `zeroconf-publish-service' publishes a new service to ;; The function `zeroconf-publish-service' publishes a new service to
;; the Avahi daemon. Although the domain, where to the service is ;; the Avahi daemon. Although the domain, where to the service is
;; published, can be specified by this function, it is usally the ;; published, can be specified by this function, it is usually the
;; default domain "local" (also written as nil or ""). ;; default domain "local" (also written as nil or "").
;; (zeroconf-publish-service ;; (zeroconf-publish-service

4
lisp/nxml/rng-valid.el
View file

@ -377,8 +377,8 @@ The schema is set like `rng-auto-set-schema'."
(defun rng-kill-timers () (defun rng-kill-timers ()
;; rng-validate-timer and rng-validate-quick-timer have the ;; rng-validate-timer and rng-validate-quick-timer have the
;; permanent-local property, so that the timers can be ;; permanent-local property, so that the timers can be
;; cancelled even after changing mode. ;; canceled even after changing mode.
;; This function takes care of cancelling the timers and ;; This function takes care of canceling the timers and
;; then killing the local variables. ;; then killing the local variables.
(when (local-variable-p 'rng-validate-timer) (when (local-variable-p 'rng-validate-timer)
(when rng-validate-timer (when rng-validate-timer

2
lisp/obsolete/pgg.el
View file

@ -174,7 +174,7 @@ is true, or else the output buffer is displayed."
(defvar pgg-pending-timers (make-vector 7 0) (defvar pgg-pending-timers (make-vector 7 0)
"Hash table for managing scheduled pgg cache management timers. "Hash table for managing scheduled pgg cache management timers.
We associate key and timer, so the timer can be cancelled if a new We associate key and timer, so the timer can be canceled if a new
timeout for the key is set while an old one is still pending.") timeout for the key is set while an old one is still pending.")
(defun pgg-read-passphrase (prompt &optional key notruncate) (defun pgg-read-passphrase (prompt &optional key notruncate)

10
lisp/org/ChangeLog
View file

@ -278,7 +278,7 @@
* org-archive.el (org-archive-subtree): While it might be possible * org-archive.el (org-archive-subtree): While it might be possible
to archive an headline of a temporary buffer (i.e. not visiting a to archive an headline of a temporary buffer (i.e. not visiting a
file), it wouldn't be really sensical. file), it wouldn't be really sensible.
2011-07-28 Nicolas Goaziou <n.goaziou@gmail.com> 2011-07-28 Nicolas Goaziou <n.goaziou@gmail.com>
@ -4008,7 +4008,7 @@
* org-list.el (org-list-blocks): New variable. * org-list.el (org-list-blocks): New variable.
(org-list-context): New function. (org-list-context): New function.
(org-list-full-item-re): New variable. (org-list-full-item-re): New variable.
(org-list-struct-assoc-at-point): Use new varible. (org-list-struct-assoc-at-point): Use new variable.
(org-list-struct): Rewrite of function. Now, list data is (org-list-struct): Rewrite of function. Now, list data is
collected by looking at the list line after line. It reads the collected by looking at the list line after line. It reads the
whole list each time because reading only a subtree was not enough whole list each time because reading only a subtree was not enough
@ -8139,7 +8139,7 @@
2010-11-11 Nicolas Goaziou <n.goaziou@gmail.com> 2010-11-11 Nicolas Goaziou <n.goaziou@gmail.com>
* org-list.el (org-insert-item-internal): New function to handle * org-list.el (org-insert-item-internal): New function to handle
positionning and contents of an item being inserted at a specific positioning and contents of an item being inserted at a specific
pos. It is not possible anymore to split a term in a description pos. It is not possible anymore to split a term in a description
list or a checkbox when inserting a new item. list or a checkbox when inserting a new item.
@ -9758,7 +9758,7 @@
2010-07-19 Bastien Guerry <bzg@altern.org> 2010-07-19 Bastien Guerry <bzg@altern.org>
* org-timer.el (org-timer-set-timer): Fix bug about cancelling * org-timer.el (org-timer-set-timer): Fix bug about canceling
timers. timers.
2010-07-19 David Maus <dmaus@ictsoc.de> 2010-07-19 David Maus <dmaus@ictsoc.de>
@ -12582,7 +12582,7 @@
buffer and at the position of the given clock. However, changes buffer and at the position of the given clock. However, changes
to the current clock are local and have no effect on the user's to the current clock are local and have no effect on the user's
active clock. This allows, for example, far any clock to be active clock. This allows, for example, far any clock to be
cancelled without cancelling the active clock. canceled without canceling the active clock.
(org-clock-clock-in): New inline function that switches the active (org-clock-clock-in): New inline function that switches the active
clock to the given clock. If either the argument RESUME, or the clock to the given clock. If either the argument RESUME, or the
global `org-clock-in-resume', are non-nil, it will resume a clock global `org-clock-in-resume', are non-nil, it will resume a clock

4
lisp/org/org-agenda.el
View file

@ -8331,7 +8331,7 @@ tag and (if present) the flagging note."
(org-agenda-remove-flag hdmarker) (org-agenda-remove-flag hdmarker)
(let ((win (get-buffer-window "*Flagging Note*"))) (let ((win (get-buffer-window "*Flagging Note*")))
(and win (delete-window win))) (and win (delete-window win)))
(message "Entry unflaged")) (message "Entry unflagged"))
(setq note (org-entry-get hdmarker "THEFLAGGINGNOTE")) (setq note (org-entry-get hdmarker "THEFLAGGINGNOTE"))
(unless note (unless note
(error "No flagging note")) (error "No flagging note"))
@ -8354,7 +8354,7 @@ tag and (if present) the flagging note."
(org-entry-delete nil "THEFLAGGINGNOTE") (org-entry-delete nil "THEFLAGGINGNOTE")
(setq newhead (org-get-heading))) (setq newhead (org-get-heading)))
(org-agenda-change-all-lines newhead marker) (org-agenda-change-all-lines newhead marker)
(message "Entry unflaged"))) (message "Entry unflagged")))
(defun org-agenda-get-any-marker (&optional pos) (defun org-agenda-get-any-marker (&optional pos)
(or (get-text-property (or pos (point-at-bol)) 'org-hd-marker) (or (get-text-property (or pos (point-at-bol)) 'org-hd-marker)

4
lisp/org/org-clock.el
View file

@ -328,7 +328,7 @@ to add an effort property.")
"Hook run when stopping the current clock.") "Hook run when stopping the current clock.")
(defvar org-clock-cancel-hook nil (defvar org-clock-cancel-hook nil
"Hook run when cancelling the current clock.") "Hook run when canceling the current clock.")
(defvar org-clock-goto-hook nil (defvar org-clock-goto-hook nil
"Hook run when selecting the currently clocked-in entry.") "Hook run when selecting the currently clocked-in entry.")
(defvar org-clock-has-been-used nil (defvar org-clock-has-been-used nil
@ -346,7 +346,7 @@ to add an effort property.")
(defvar org-clock-start-time "") (defvar org-clock-start-time "")
(defvar org-clock-leftover-time nil (defvar org-clock-leftover-time nil
"If non-nil, user cancelled a clock; this is when leftover time started.") "If non-nil, user canceled a clock; this is when leftover time started.")
(defvar org-clock-effort "" (defvar org-clock-effort ""
"Effort estimate of the currently clocking task.") "Effort estimate of the currently clocking task.")

2
lisp/org/org-list.el
View file

@ -68,7 +68,7 @@
;; Computing a list structure can be a costly operation on huge lists ;; Computing a list structure can be a costly operation on huge lists
;; (a few thousand lines long). Thus, code should follow the rule : ;; (a few thousand lines long). Thus, code should follow the rule :
;; "collect once, use many". As a corollary, it is usally a bad idea ;; "collect once, use many". As a corollary, it is usually a bad idea
;; to use directly an interactive function inside the code, as those, ;; to use directly an interactive function inside the code, as those,
;; being independent entities, read the whole list structure another ;; being independent entities, read the whole list structure another
;; time. ;; time.

4
lisp/org/org-protocol.el
View file

@ -145,8 +145,8 @@
(defgroup org-protocol nil (defgroup org-protocol nil
"Intercept calls from emacsclient to trigger custom actions. "Intercept calls from emacsclient to trigger custom actions.
This is done by advising `server-visit-files' to scann the list of filenames This is done by advising `server-visit-files' to scan the list of filenames
for `org-protocol-the-protocol' and sub-procols defined in for `org-protocol-the-protocol' and sub-protocols defined in
`org-protocol-protocol-alist' and `org-protocol-protocol-alist-default'." `org-protocol-protocol-alist' and `org-protocol-protocol-alist-default'."
:version "22.1" :version "22.1"
:group 'convenience :group 'convenience

4
lisp/org/org-publish.el
View file

@ -278,12 +278,12 @@ in the sitemap."
:type 'string) :type 'string)
(defcustom org-publish-sitemap-file-entry-format "%t" (defcustom org-publish-sitemap-file-entry-format "%t"
"How a sitemap file entry is formated. "How a sitemap file entry is formatted.
You could use brackets to delimit on what part the link will be. You could use brackets to delimit on what part the link will be.
%t is the title. %t is the title.
%a is the author. %a is the author.
%d is the date formated using `org-publish-sitemap-date-format'." %d is the date formatted using `org-publish-sitemap-date-format'."
:group 'org-publish :group 'org-publish
:type 'string) :type 'string)

2
lisp/org/org-taskjuggler.el
View file

@ -571,7 +571,7 @@ with separator \"\n\"."
(and filtered-items (mapconcat 'identity filtered-items "\n")))) (and filtered-items (mapconcat 'identity filtered-items "\n"))))
(defun org-taskjuggler-get-attributes (item attributes) (defun org-taskjuggler-get-attributes (item attributes)
"Return all attribute as a single formated string. ITEM is an "Return all attributes as a single formatted string. ITEM is an
alist representing either a resource or a task. ATTRIBUTES is a alist representing either a resource or a task. ATTRIBUTES is a
list of symbols. Only entries from ITEM are considered that are list of symbols. Only entries from ITEM are considered that are
listed in ATTRIBUTES." listed in ATTRIBUTES."

2
lisp/play/gametree.el
View file

@ -549,7 +549,7 @@ Argument is a character, naming the register."
(defun gametree-save-and-hack-layout () (defun gametree-save-and-hack-layout ()
"Save the current tree layout and hack the file local variable spec. "Save the current tree layout and hack the file local variable spec.
This function saves the current layout in `gametree-local-layout' and, This function saves the current layout in `gametree-local-layout' and,
if a local file varible specification for this variable exists in the if a local file variable specification for this variable exists in the
buffer, it is replaced by the new value. See the documentation for buffer, it is replaced by the new value. See the documentation for
`gametree-local-layout' for more information." `gametree-local-layout' for more information."
(interactive) (interactive)

4
lisp/progmodes/cc-cmds.el
View file

@ -2051,7 +2051,7 @@ function does not require the declaration to contain a brace block."
(c-narrow-to-comment-innards range) ; This may move point back. (c-narrow-to-comment-innards range) ; This may move point back.
(let* ((here (point)) (let* ((here (point))
last last
(here-filler ; matches WS and comment-prefices at point. (here-filler ; matches WS and comment-prefixes at point.
(concat "\\=\\(^[ \t]*\\(" c-current-comment-prefix "\\)" (concat "\\=\\(^[ \t]*\\(" c-current-comment-prefix "\\)"
"\\|[ \t\n\r\f]\\)*")) "\\|[ \t\n\r\f]\\)*"))
(prefix-at-bol-here ; matches WS and prefix at BOL, just before point (prefix-at-bol-here ; matches WS and prefix at BOL, just before point
@ -2071,7 +2071,7 @@ function does not require the declaration to contain a brace block."
;; Now seek successively earlier sentence ends between PAR-BEG and ;; Now seek successively earlier sentence ends between PAR-BEG and
;; HERE, until the "start of sentence" following it is earlier than ;; HERE, until the "start of sentence" following it is earlier than
;; HERE, or we hit PAR-BEG. Beware of comment prefices! ;; HERE, or we hit PAR-BEG. Beware of comment prefixes!
(while (and (re-search-backward (c-sentence-end) par-beg 'limit) (while (and (re-search-backward (c-sentence-end) par-beg 'limit)
(setq last (point)) (setq last (point))
(goto-char (match-end 0)) ; tentative beginning of sentence (goto-char (match-end 0)) ; tentative beginning of sentence

4
lisp/progmodes/dcl-mode.el
View file

@ -708,7 +708,7 @@ Returns point of the found command line or nil if not able to move."
(setq done t) ; not a label-only line, exit the loop (setq done t) ; not a label-only line, exit the loop
(setq retval (point)))) (setq retval (point))))
;; We couldn't go further back, and we haven't found a command yet. ;; We couldn't go further back, and we haven't found a command yet.
;; Return to the start positionn ;; Return to the start position.
(goto-char start) (goto-char start)
(setq done t) (setq done t)
(setq retval nil))) (setq retval nil)))
@ -756,7 +756,7 @@ Returns point of the found command line or nil if not able to move."
(setq done t) ; not a label-only line, exit the loop (setq done t) ; not a label-only line, exit the loop
(setq retval (point))))) (setq retval (point)))))
;; We couldn't go further back, and we haven't found a command yet. ;; We couldn't go further back, and we haven't found a command yet.
;; Return to the start positionn ;; Return to the start position.
(goto-char start) (goto-char start)
(setq done t) (setq done t)
(setq retval nil))) (setq retval nil)))

2
lisp/progmodes/idlwave.el
View file

@ -7866,7 +7866,7 @@ itself."
"Display online help about the completion at point." "Display online help about the completion at point."
(interactive "eP") (interactive "eP")
;; Restore last-command for next command, to make ;; Restore last-command for next command, to make
;; scrolling/cancelling of completions work. ;; scrolling/canceling of completions work.
(setq this-command last-command) (setq this-command last-command)
(idlwave-do-mouse-completion-help ev)) (idlwave-do-mouse-completion-help ev))

2
lisp/progmodes/js.el
View file

@ -3000,7 +3000,7 @@ browser, respectively."
'(js> ((fifth hitab) "selectedTab") (fourth hitab)) '(js> ((fifth hitab) "selectedTab") (fourth hitab))
cmds))) cmds)))
;; Hilighting whole window ;; Highlighting whole window
((third hitab) ((third hitab)
(push '(js! ((third hitab) "document" (push '(js! ((third hitab) "document"
"documentElement" "setAttribute") "documentElement" "setAttribute")

6
lisp/progmodes/vhdl-mode.el
View file

@ -1714,7 +1714,7 @@ an absolute path (i.e. all caches can be stored in one global directory)."
(defgroup vhdl-menu nil (defgroup vhdl-menu nil
"Customizations for menues." "Customizations for menus."
:group 'vhdl) :group 'vhdl)
(defcustom vhdl-index-menu nil (defcustom vhdl-index-menu nil
@ -1844,7 +1844,7 @@ NOTE: Activate the new setting in a VHDL buffer by using the menu entry
;; Internal variables ;; Internal variables
(defvar vhdl-menu-max-size 20 (defvar vhdl-menu-max-size 20
"*Specifies the maximum size of a menu before splitting it into submenues.") "*Specifies the maximum size of a menu before splitting it into submenus.")
(defvar vhdl-progress-interval 1 (defvar vhdl-progress-interval 1
"*Interval used to update progress status during long operations. "*Interval used to update progress status during long operations.
@ -2468,7 +2468,7 @@ conversion."
(goto-char marker)) (goto-char marker))
(defun vhdl-menu-split (list title) (defun vhdl-menu-split (list title)
"Split menu LIST into several submenues, if number of "Split menu LIST into several submenus, if number of
elements > `vhdl-menu-max-size'." elements > `vhdl-menu-max-size'."
(if (> (length list) vhdl-menu-max-size) (if (> (length list) vhdl-menu-max-size)
(let ((remain list) (let ((remain list)

2
lisp/ses.el
View file

@ -2273,7 +2273,7 @@ cells."
(defun ses-read-printer (prompt default) (defun ses-read-printer (prompt default)
"Common code for `ses-read-cell-printer', `ses-read-column-printer', and `ses-read-default-printer'. "Common code for `ses-read-cell-printer', `ses-read-column-printer', and `ses-read-default-printer'.
PROMPT should end with \": \". Result is t if operation was cancelled." PROMPT should end with \": \". Result is t if operation was canceled."
(barf-if-buffer-read-only) (barf-if-buffer-read-only)
(if (eq default t) (if (eq default t)
(setq default "") (setq default "")

6
lisp/simple.el
View file

@ -1582,7 +1582,7 @@ by the new completion."
n) n)
;; next-matching-history-element always puts us at (point-min). ;; next-matching-history-element always puts us at (point-min).
;; Move to the position we were at before changing the buffer contents. ;; Move to the position we were at before changing the buffer contents.
;; This is still sensical, because the text before point has not changed. ;; This is still sensible, because the text before point has not changed.
(goto-char point-at-start))) (goto-char point-at-start)))
(defun previous-complete-history-element (n) (defun previous-complete-history-element (n)
@ -5704,7 +5704,7 @@ At top-level, as an editor command, this simply beeps."
(defvar buffer-quit-function nil (defvar buffer-quit-function nil
"Function to call to \"quit\" the current buffer, or nil if none. "Function to call to \"quit\" the current buffer, or nil if none.
\\[keyboard-escape-quit] calls this function when its more local actions \\[keyboard-escape-quit] calls this function when its more local actions
\(such as cancelling a prefix argument, minibuffer or region) do not apply.") \(such as canceling a prefix argument, minibuffer or region) do not apply.")
(defun keyboard-escape-quit () (defun keyboard-escape-quit ()
"Exit the current \"mode\" (in a generalized sense of the word). "Exit the current \"mode\" (in a generalized sense of the word).
@ -6209,7 +6209,7 @@ BASE-POSITION, says where to insert the completion."
choice buffer base-position nil) choice buffer base-position nil)
;; This remove-text-properties should be unnecessary since `choice' ;; This remove-text-properties should be unnecessary since `choice'
;; comes from buffer-substring-no-properties. ;; comes from buffer-substring-no-properties.
;;(remove-text-properties 0 (lenth choice) '(mouse-face nil) choice) ;;(remove-text-properties 0 (length choice) '(mouse-face nil) choice)
;; Insert the completion into the buffer where it was requested. ;; Insert the completion into the buffer where it was requested.
(funcall (or insert-function completion-list-insert-choice-function) (funcall (or insert-function completion-list-insert-choice-function)
(or (car base-position) (point)) (or (car base-position) (point))

2
lisp/speedbar.el
View file

@ -1862,7 +1862,7 @@ of the special mode functions."
(if (not v) (if (not v)
(setq speedbar-special-mode-expansion-list t) (setq speedbar-special-mode-expansion-list t)
;; If it is autoloaded, we need to load it now so that ;; If it is autoloaded, we need to load it now so that
;; we have access to the varialbe -speedbar-menu-items. ;; we have access to the variable -speedbar-menu-items.
;; Is this XEmacs safe? ;; Is this XEmacs safe?
(let ((sf (symbol-function v))) (let ((sf (symbol-function v)))
(if (and (listp sf) (eq (car sf) 'autoload)) (if (and (listp sf) (eq (car sf) 'autoload))

2
lisp/term/x-win.el
View file

@ -126,7 +126,7 @@ a file in the home directory."
(defun emacs-session-save () (defun emacs-session-save ()
"This function is called when the window system is shutting down. "This function is called when the window system is shutting down.
If this function returns non-nil, the window system shutdown is cancelled. If this function returns non-nil, the window system shutdown is canceled.
When a session manager tells Emacs that the window system is shutting When a session manager tells Emacs that the window system is shutting
down, this function is called. It calls the functions in the hook down, this function is called. It calls the functions in the hook

6
lisp/textmodes/artist.el
View file

@ -3960,11 +3960,11 @@ The 2-point shape SHAPE is drawn from X1, Y1 to X2, Y2."
;; Implementation note: This really should honor the interval-fn entry ;; Implementation note: This really should honor the interval-fn entry
;; in the master table, `artist-mt', which would mean leaving a timer ;; in the master table, `artist-mt', which would mean leaving a timer
;; that calls `draw-fn' every now and then. That timer would then have ;; that calls `draw-fn' every now and then. That timer would then have
;; to be cancelled and reinstalled whenever the user moves the cursor. ;; to be canceled and reinstalled whenever the user moves the cursor.
;; This could be done, but what if the user suddenly switches to another ;; This could be done, but what if the user suddenly switches to another
;; drawing mode, or even kills the buffer! In the mouse case, it is much ;; drawing mode, or even kills the buffer! In the mouse case, it is much
;; simpler: when at the end of `artist-mouse-draw-continously', the ;; simpler: when at the end of `artist-mouse-draw-continously', the
;; user has released the button, so the timer will always be cancelled ;; user has released the button, so the timer will always be canceled
;; at that point. ;; at that point.
(defun artist-key-draw-continously (x y) (defun artist-key-draw-continously (x y)
"Draw current continuous shape at X,Y." "Draw current continuous shape at X,Y."
@ -5589,7 +5589,7 @@ The event, EV, is the mouse event."
;; of drawing mode. ;; of drawing mode.
;; ;;
;; You should provide these functions. You might think that ;; You should provide these functions. You might think that
;; only you is using your type of mode, so noone will be able ;; only you is using your type of mode, so no one will be able
;; to switch to another operation of the same type of mode, ;; to switch to another operation of the same type of mode,
;; but someone else might base a new drawing mode upon your ;; but someone else might base a new drawing mode upon your
;; work. ;; work.

4
lisp/textmodes/ispell.el
View file

@ -2499,7 +2499,7 @@ scrolling the current window. Leave the new window selected."
;; hidden by new window, scroll it to just below new win ;; hidden by new window, scroll it to just below new win
;; otherwise set top line of other win so it doesn't scroll. ;; otherwise set top line of other win so it doesn't scroll.
(if (< oldot top) (setq top oldot)) (if (< oldot top) (setq top oldot))
;; if frame is unsplitable, temporarily disable that... ;; if frame is unsplittable, temporarily disable that...
(if (cdr (assq 'unsplittable (frame-parameters (selected-frame)))) (if (cdr (assq 'unsplittable (frame-parameters (selected-frame))))
(let ((frame (selected-frame))) (let ((frame (selected-frame)))
(modify-frame-parameters frame '((unsplittable . nil))) (modify-frame-parameters frame '((unsplittable . nil)))
@ -3979,7 +3979,7 @@ Both should not be used to define a buffer-local dictionary."
; LocalWords: AMStex hspace includeonly nocite epsfig displaymath eqnarray reg ; LocalWords: AMStex hspace includeonly nocite epsfig displaymath eqnarray reg
; LocalWords: minipage modeline pers dict unhighlight buf grep sync prev inc ; LocalWords: minipage modeline pers dict unhighlight buf grep sync prev inc
; LocalWords: fn oldot NB AIX msg init read's bufs pt cmd Quinlan eg ; LocalWords: fn oldot NB AIX msg init read's bufs pt cmd Quinlan eg
; LocalWords: uuencoded unidiff sc nn VM SGML eval IspellPersDict unsplitable ; LocalWords: uuencoded unidiff sc nn VM SGML eval IspellPersDict
; LocalWords: lns XEmacs HTML casechars Multibyte ; LocalWords: lns XEmacs HTML casechars Multibyte
;;; ispell.el ends here ;;; ispell.el ends here

2
lisp/textmodes/reftex-dcr.el
View file

@ -212,7 +212,7 @@ to the functions `reftex-view-cr-cite' and `reftex-view-cr-ref'."
(add-hook 'pre-command-hook 'reftex-highlight-shall-die) (add-hook 'pre-command-hook 'reftex-highlight-shall-die)
(when (eq how 'tmp-window) (when (eq how 'tmp-window)
;; Resize window and arrange restauration ;; Resize window and arrange restoration
(shrink-window (1- (- (window-height) 9))) (shrink-window (1- (- (window-height) 9)))
(recenter '(4)) (recenter '(4))
(add-hook 'pre-command-hook 'reftex-restore-window-conf)) (add-hook 'pre-command-hook 'reftex-restore-window-conf))

4
lisp/textmodes/table.el
View file

@ -4293,7 +4293,7 @@ cache buffer into the designated cell in the table buffer."
(car (table--get-coordinate (cdr (table--horizontal-cell-list nil t)))) (car (table--get-coordinate (cdr (table--horizontal-cell-list nil t))))
(1+ (cdr (table--get-coordinate (cdr (table--vertical-cell-list nil t)))))))) (1+ (cdr (table--get-coordinate (cdr (table--vertical-cell-list nil t))))))))
(defun table-call-interactively (function &optional recoard-flag keys) (defun table-call-interactively (function &optional record-flag keys)
"Call FUNCTION, or a table version of it if applicable. "Call FUNCTION, or a table version of it if applicable.
See `call-interactively' for full description of the arguments." See `call-interactively' for full description of the arguments."
(let ((table-func (intern-soft (format "*table--cell-%s" function)))) (let ((table-func (intern-soft (format "*table--cell-%s" function))))
@ -4301,7 +4301,7 @@ See `call-interactively' for full description of the arguments."
(if (and table-func (if (and table-func
(table--point-in-cell-p)) (table--point-in-cell-p))
table-func table-func
function) recoard-flag keys))) function) record-flag keys)))
(defun table-funcall (function &rest arguments) (defun table-funcall (function &rest arguments)
"Call FUNCTION, or a table version of it if applicable. "Call FUNCTION, or a table version of it if applicable.

4
lisp/textmodes/texinfmt.el
View file

@ -2088,11 +2088,11 @@ This command is executed when texinfmt sees @item inside @multitable."
(table-entry-height 0) (table-entry-height 0)
;; unformatted row looks like: A1 @tab A2 @tab A3 ;; unformatted row looks like: A1 @tab A2 @tab A3
;; extract-row command deletes the source line in the table. ;; extract-row command deletes the source line in the table.
(unformated-row (texinfo-multitable-extract-row))) (unformatted-row (texinfo-multitable-extract-row)))
;; Use a temporary buffer ;; Use a temporary buffer
(set-buffer (get-buffer-create texinfo-multitable-buffer-name)) (set-buffer (get-buffer-create texinfo-multitable-buffer-name))
(delete-region (point-min) (point-max)) (delete-region (point-min) (point-max))
(insert unformated-row) (insert unformatted-row)
(goto-char (point-min)) (goto-char (point-min))
;; 1. Check for correct number of @tab in line. ;; 1. Check for correct number of @tab in line.
(let ((tab-number 1)) ; one @tab between two columns (let ((tab-number 1)) ; one @tab between two columns

2
lisp/time.el
View file

@ -369,7 +369,7 @@ would give mode line times like `94/12/30 21:07:48 (UTC)'."
nil))) nil)))
(with-no-warnings (with-no-warnings
;; Warnings are suppresed to avoid "global/dynamic var `X' lacks a prefix". ;; Warnings are suppressed to avoid "global/dynamic var `X' lacks a prefix".
(defvar now) (defvar now)
(defvar time) (defvar time)
(defvar load) (defvar load)

2
lisp/url/ChangeLog
View file

@ -1673,7 +1673,7 @@
(url-dav-process-DAV:activelock) (url-dav-process-DAV:activelock)
(url-dav-process-DAV:lockdiscovery): Can now correctly parse (url-dav-process-DAV:lockdiscovery): Can now correctly parse
DAV:lockdiscovery nodes, so that we can find out who has a DAV:lockdiscovery nodes, so that we can find out who has a
resource locked and properly parse the reponse to a LOCK request. resource locked and properly parse the response to a LOCK request.
(url-dav-process-DAV:status): Now parses out the numeric status (url-dav-process-DAV:status): Now parses out the numeric status
from the HTTP response line. from the HTTP response line.
(url-dav-process-response): New function to handle all the (url-dav-process-response): New function to handle all the

4
lisp/url/url-gw.el
View file

@ -72,12 +72,12 @@ This list will be executed as a command after logging in via telnet."
:group 'url-gateway) :group 'url-gateway)
(defcustom url-gateway-telnet-login-prompt "^\r*.?login:" (defcustom url-gateway-telnet-login-prompt "^\r*.?login:"
"Prompt that tells us we should send our username when loggin in w/telnet." "Prompt that tells us we should send our username when logging in w/telnet."
:type 'regexp :type 'regexp
:group 'url-gateway) :group 'url-gateway)
(defcustom url-gateway-telnet-password-prompt "^\r*.?password:" (defcustom url-gateway-telnet-password-prompt "^\r*.?password:"
"Prompt that tells us we should send our password when loggin in w/telnet." "Prompt that tells us we should send our password when logging in w/telnet."
:type 'regexp :type 'regexp
:group 'url-gateway) :group 'url-gateway)

2
lisp/vc/ediff-init.el
View file

@ -370,7 +370,7 @@ It needs to be killed when we quit the session.")
this-command))) this-command)))
(defgroup ediff-highlighting nil (defgroup ediff-highlighting nil
"Hilighting of difference regions in Ediff." "Highlighting of difference regions in Ediff."
:prefix "ediff-" :prefix "ediff-"
:group 'ediff) :group 'ediff)

2
lisp/vc/pcvs.el
View file

@ -322,7 +322,7 @@ The argument is added (or not) to the list of FLAGS and is constructed
by appending the branch to ARG which defaults to \"-r\". by appending the branch to ARG which defaults to \"-r\".
Since the `cvs-secondary-branch-prefix' is only active if the primary Since the `cvs-secondary-branch-prefix' is only active if the primary
prefix is active, it is important to read the secondary prefix before prefix is active, it is important to read the secondary prefix before
the primay since reading the primary can deactivate it." the primary since reading the primary can deactivate it."
(let ((branch (and (cvs-prefix-get 'cvs-branch-prefix 'read-only) (let ((branch (and (cvs-prefix-get 'cvs-branch-prefix 'read-only)
(cvs-prefix-get 'cvs-secondary-branch-prefix)))) (cvs-prefix-get 'cvs-secondary-branch-prefix))))
(if branch (cons (concat (or arg "-r") branch) flags) flags))) (if branch (cons (concat (or arg "-r") branch) flags) flags)))

2
lisp/vcursor.el
View file

@ -223,7 +223,7 @@
;; automatically for a PC if Oemacs is detected. This set uses separate ;; automatically for a PC if Oemacs is detected. This set uses separate
;; control, shift and meta keys with function keys 1 to 10. In ;; control, shift and meta keys with function keys 1 to 10. In
;; particular, movement keys are concentrated on f5 to f8 with (in ;; particular, movement keys are concentrated on f5 to f8 with (in
;; increasing order of distance travelled) C-, M- and S- as prefixes. ;; increasing order of distance traveled) C-, M- and S- as prefixes.
;; See the actual bindings below (search for C-f1). This is because the ;; See the actual bindings below (search for C-f1). This is because the
;; C-S- prefix is represented by weird key sequences and the set is ;; C-S- prefix is represented by weird key sequences and the set is
;; incomplete; if you don't mind that, some hints are given in comments ;; incomplete; if you don't mind that, some hints are given in comments

2
lisp/view.el
View file

@ -481,7 +481,7 @@ Entry to view-mode runs the normal hook `view-mode-hook'."
;; sets view-read-only to t as a buffer-local variable ;; sets view-read-only to t as a buffer-local variable
;; after exiting View mode. That arranges that the next toggle-read-only ;; after exiting View mode. That arranges that the next toggle-read-only
;; will reenable View mode. ;; will reenable View mode.
;; Cancelling View mode in any other way should cancel that, too, ;; Canceling View mode in any other way should cancel that, too,
;; so that View mode stays off if toggle-read-only is called. ;; so that View mode stays off if toggle-read-only is called.
(if (local-variable-p 'view-read-only) (if (local-variable-p 'view-read-only)
(kill-local-variable 'view-read-only)) (kill-local-variable 'view-read-only))

6
lisp/wid-edit.el
View file

@ -295,10 +295,10 @@ minibuffer."
(error "Canceled")) (error "Canceled"))
value)))) value))))
(defun widget-remove-if (predictate list) (defun widget-remove-if (predicate list)
(let (result (tail list)) (let (result (tail list))
(while tail (while tail
(or (funcall predictate (car tail)) (or (funcall predicate (car tail))
(setq result (cons (car tail) result))) (setq result (cons (car tail) result)))
(setq tail (cdr tail))) (setq tail (cdr tail)))
(nreverse result))) (nreverse result)))
@ -577,7 +577,7 @@ This is only meaningful for radio buttons or checkboxes in a list."
"Map FUNCTION over the buttons in BUFFER. "Map FUNCTION over the buttons in BUFFER.
FUNCTION is called with the arguments WIDGET and MAPARG. FUNCTION is called with the arguments WIDGET and MAPARG.
If FUNCTION returns non-nil, the walk is cancelled. If FUNCTION returns non-nil, the walk is canceled.
The arguments MAPARG, and BUFFER default to nil and (current-buffer), The arguments MAPARG, and BUFFER default to nil and (current-buffer),
respectively." respectively."

4
lisp/window.el
View file

@ -1211,7 +1211,7 @@ More precisely, cycle through all windows calling the function
PREDICATE on each one of them with the window as its sole PREDICATE on each one of them with the window as its sole
argument. Return the first window for which PREDICATE returns argument. Return the first window for which PREDICATE returns
non-nil. Windows are scanned starting with the window following non-nil. Windows are scanned starting with the window following
the selcted window. If no window satisfies PREDICATE, return the selected window. If no window satisfies PREDICATE, return
DEFAULT. DEFAULT.
MINIBUF t means include the minibuffer window even if the MINIBUF t means include the minibuffer window even if the
@ -5234,7 +5234,7 @@ WINDOW was scrolled."
;; This `condition-case' shouldn't be necessary, but who knows? ;; This `condition-case' shouldn't be necessary, but who knows?
(condition-case nil (condition-case nil
(if (zerop delta) (if (zerop delta)
;; Return zero if DELTA became zero in the proces. ;; Return zero if DELTA became zero in the process.
0 0
;; Don't try to redisplay with the cursor at the end on its ;; Don't try to redisplay with the cursor at the end on its
;; own line--that would force a scroll and spoil things. ;; own line--that would force a scroll and spoil things.

3
nt/addpm.c
View file

@ -250,7 +250,7 @@ main (int argc, char *argv[])
MB_OKCANCEL | MB_ICONQUESTION); MB_OKCANCEL | MB_ICONQUESTION);
if (result != IDOK) if (result != IDOK)
{ {
fprintf (stderr, "Install cancelled\n"); fprintf (stderr, "Install canceled\n");
exit (1); exit (1);
} }
} }
@ -365,4 +365,3 @@ main (int argc, char *argv[])
return 0; return 0;
} }

2
src/ChangeLog.10
View file

@ -516,7 +516,7 @@
* w32fns.c (current_popup_menu): Use from w32menu.c. * w32fns.c (current_popup_menu): Use from w32menu.c.
(w32_wnd_proc) <WM_EXITMENULOOP, WM_TIMER>: Use menubar_active (w32_wnd_proc) <WM_EXITMENULOOP, WM_TIMER>: Use menubar_active
and current_popup_menu to determine whether a menubar menu has and current_popup_menu to determine whether a menubar menu has
been cancelled. been canceled.
* w32term.h (w32_output): Remove menu_command_in_progress. * w32term.h (w32_output): Remove menu_command_in_progress.

2
src/ChangeLog.11
View file

@ -23182,7 +23182,7 @@
* font.c (font_prop_validate_symbol, font_prop_validate_style) * font.c (font_prop_validate_symbol, font_prop_validate_style)
(font_prop_validate_non_neg, font_prop_validate_spacing): (font_prop_validate_non_neg, font_prop_validate_spacing):
Delete argument prop_index. Delete argument prop_index.
(font_property_table): Change arguments to validater. Change Callers. (font_property_table): Change arguments to validator. Change Callers.
(font_lispy_object): Delete. (font_lispy_object): Delete.
(font_at): Use font_find_object instead fo font_lispy_object. (font_at): Use font_find_object instead fo font_lispy_object.

Some files were not shown because too many files have changed in this diff Show more