mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Spelling fixes.

Browse source
This commit is contained in:
Paul Eggert 2011-11-13 22:27:12 -08:00
parent 56632ce4cd
commit 09e80d9fb9
60 changed files with 116 additions and 123 deletions
Download patch file Download diff file Expand all files Collapse all files

2
admin/grammars/c.by
View file

@ -734,7 +734,7 @@ builtintype
;; Klaus Berndl: This parses also nonsense like "const volatile int ;; Klaus Berndl: This parses also nonsense like "const volatile int
;; const volatile const const volatile a ..." but IMHO nobody writes ;; const volatile const const volatile a ..." but IMHO nobody writes
;; such code. Normaly we shoud define a rule like typeformbase-mode ;; such code. Normally we should define a rule like typeformbase-mode
;; which exactly defines the different allowed cases and combinations ;; which exactly defines the different allowed cases and combinations
;; of declmods (minus the CVDECLMOD) typeformbase and cv-declmods so ;; of declmods (minus the CVDECLMOD) typeformbase and cv-declmods so
;; we could recognize more invalid code but IMHO this is not worth the ;; we could recognize more invalid code but IMHO this is not worth the

2
doc/emacs/ChangeLog
View file

@ -1711,7 +1711,7 @@
(Table of Resources): Document fontBackend resource. (Table of Resources): Document fontBackend resource.
* trouble.texi (Quitting): Add other undo bindings to table. * trouble.texi (Quitting): Add other undo bindings to table.
(DEL Does Not Delete): Note that the erasure key is usually labelled (DEL Does Not Delete): Note that the erasure key is usually labeled
"Backspace". Remove discussion of obscure Xmodmap issue. "Backspace". Remove discussion of obscure Xmodmap issue.
2009-05-07 Chong Yidong <cyd@stupidchicken.com> 2009-05-07 Chong Yidong <cyd@stupidchicken.com>

8
doc/emacs/custom.texi
View file

@ -82,7 +82,7 @@ under it. It looks like this, in part:
@group @group
/- Emacs group: Customization of the One True Editor. -------------\ /- Emacs group: Customization of the One True Editor. -------------\
[State]: visible group members are all at standard values. [State]: visible group members are all at standard values.
See also [Manual]. See also [Manual].
[Editing] : Basic text editing facilities. [Editing] : Basic text editing facilities.
@ -547,7 +547,7 @@ such collections from one computer to another.
To define a Custom theme, use @kbd{M-x customize-create-theme}, To define a Custom theme, use @kbd{M-x customize-create-theme},
which brings up a buffer named @samp{*New Custom Theme*}. At the top which brings up a buffer named @samp{*New Custom Theme*}. At the top
of the buffer is an editable field where you can specify the name of of the buffer is an editable field where you can specify the name of
the theme. Click on the button labelled @samp{Insert Variable} to add the theme. Click on the button labeled @samp{Insert Variable} to add
a variable to the theme, and click on @samp{Insert Face} to add a a variable to the theme, and click on @samp{Insert Face} to add a
face. You can edit these values in the @samp{*New Custom Theme*} face. You can edit these values in the @samp{*New Custom Theme*}
buffer like in an ordinary Customize buffer. To remove an option from buffer like in an ordinary Customize buffer. To remove an option from
@ -1068,7 +1068,7 @@ other context has no special meaning.
well as the major modes; in fact, you can use it more than once, first well as the major modes; in fact, you can use it more than once, first
to set the major mode and then to enable minor modes which are to set the major mode and then to enable minor modes which are
specific to particular buffers. Using @code{mode} for minor modes specific to particular buffers. Using @code{mode} for minor modes
is deprecated, though---instead, use @code{eval: (minor-mode 1)}. is deprecated, though---instead, use @code{eval: (minor-mode 1)}.
Often, however, it is a mistake to enable minor modes in file local Often, however, it is a mistake to enable minor modes in file local
variables. Most minor modes, like Auto Fill mode, represent individual user variables. Most minor modes, like Auto Fill mode, represent individual user
@ -1646,7 +1646,7 @@ ways to use these modifiers; the key labeled @key{Alt} on most
keyboards usually issues the @key{Meta} modifier, not @key{Alt}. The keyboards usually issues the @key{Meta} modifier, not @key{Alt}. The
standard key bindings in Emacs do not include any characters with standard key bindings in Emacs do not include any characters with
these modifiers. However, you can customize Emacs to assign meanings these modifiers. However, you can customize Emacs to assign meanings
to them. The modifier bits are labelled as @samp{s-}, @samp{H-} and to them. The modifier bits are labeled as @samp{s-}, @samp{H-} and
@samp{A-} respectively. @samp{A-} respectively.
Even if your keyboard lacks these additional modifier keys, you can Even if your keyboard lacks these additional modifier keys, you can

2
doc/emacs/trouble.texi
View file

@ -161,7 +161,7 @@ in the Emacs distribution. Type @kbd{C-h C-f} to read the FAQ; type
@cindex @key{BACKSPACE} vs @key{DEL} @cindex @key{BACKSPACE} vs @key{DEL}
@cindex usual erasure key @cindex usual erasure key
Every keyboard has a large key, usually labelled @key{Backspace}, Every keyboard has a large key, usually labeled @key{Backspace},
which is ordinarily used to erase the last character that you typed. which is ordinarily used to erase the last character that you typed.
We call this key @dfn{the usual erasure key}. In Emacs, it is We call this key @dfn{the usual erasure key}. In Emacs, it is
supposed to be equivalent to @key{DEL}. supposed to be equivalent to @key{DEL}.

47
doc/lispintro/emacs-lisp-intro.texi
View file

@ -357,7 +357,7 @@ every node in every chapter.
* Conclusion:: Now you have the basics. * Conclusion:: Now you have the basics.
* the-the:: An appendix: how to find reduplicated words. * the-the:: An appendix: how to find reduplicated words.
* Kill Ring:: An appendix: how the kill ring works. * Kill Ring:: An appendix: how the kill ring works.
* Full Graph:: How to create a graph with labelled axes. * Full Graph:: How to create a graph with labeled axes.
* Free Software and Free Manuals:: * Free Software and Free Manuals::
* GNU Free Documentation License:: * GNU Free Documentation License::
* Index:: * Index::
@ -793,9 +793,9 @@ The @code{current-kill} Function
* Digression concerning error:: How to mislead humans, but not computers. * Digression concerning error:: How to mislead humans, but not computers.
* Determining the Element:: * Determining the Element::
A Graph with Labelled Axes A Graph with Labeled Axes
* Labelled Example:: * Labeled Example::
* print-graph Varlist:: @code{let} expression in @code{print-graph}. * print-graph Varlist:: @code{let} expression in @code{print-graph}.
* print-Y-axis:: Print a label for the vertical axis. * print-Y-axis:: Print a label for the vertical axis.
* print-X-axis:: Print a horizontal label. * print-X-axis:: Print a horizontal label.
@ -1023,7 +1023,7 @@ the command in parentheses, like this: @kbd{M-C-\}
invoke the command; this is called @dfn{rebinding}. @xref{Keymaps, , invoke the command; this is called @dfn{rebinding}. @xref{Keymaps, ,
Keymaps}.) The abbreviation @kbd{M-C-\} means that you type your Keymaps}.) The abbreviation @kbd{M-C-\} means that you type your
@key{META} key, @key{CTRL} key and @key{\} key all at the same time. @key{META} key, @key{CTRL} key and @key{\} key all at the same time.
(On many modern keyboards the @key{META} key is labelled (On many modern keyboards the @key{META} key is labeled
@key{ALT}.) @key{ALT}.)
Sometimes a combination like this is called a keychord, since it is Sometimes a combination like this is called a keychord, since it is
similar to the way you play a chord on a piano. If your keyboard does similar to the way you play a chord on a piano. If your keyboard does
@ -1031,7 +1031,7 @@ not have a @key{META} key, the @key{ESC} key prefix is used in place
of it. In this case, @kbd{M-C-\} means that you press and release your of it. In this case, @kbd{M-C-\} means that you press and release your
@key{ESC} key and then type the @key{CTRL} key and the @key{\} key at @key{ESC} key and then type the @key{CTRL} key and the @key{\} key at
the same time. But usually @kbd{M-C-\} means press the @key{CTRL} key the same time. But usually @kbd{M-C-\} means press the @key{CTRL} key
along with the key that is labelled @key{ALT} and, at the same time, along with the key that is labeled @key{ALT} and, at the same time,
press the @key{\} key. press the @key{\} key.
In addition to typing a lone keychord, you can prefix what you type In addition to typing a lone keychord, you can prefix what you type
@ -4749,7 +4749,7 @@ type in the name of the function whose source code you want to see,
such as @code{mark-whole-buffer}, and then type @key{RET}. Emacs will such as @code{mark-whole-buffer}, and then type @key{RET}. Emacs will
switch buffers and display the source code for the function on your switch buffers and display the source code for the function on your
screen. To switch back to your current buffer, type @kbd{C-x b screen. To switch back to your current buffer, type @kbd{C-x b
@key{RET}}. (On some keyboards, the @key{META} key is labelled @key{RET}}. (On some keyboards, the @key{META} key is labeled
@key{ALT}.) @key{ALT}.)
@c !!! 22.1.1 tags table location in this paragraph @c !!! 22.1.1 tags table location in this paragraph
@ -16962,7 +16962,7 @@ For this reason, I have written enhancements to the basic
@code{print-graph-body} function that automatically print labels for @code{print-graph-body} function that automatically print labels for
the horizontal and vertical axes. Since the label printing functions the horizontal and vertical axes. Since the label printing functions
do not contain much new material, I have placed their description in do not contain much new material, I have placed their description in
an appendix. @xref{Full Graph, , A Graph with Labelled Axes}. an appendix. @xref{Full Graph, , A Graph with Labeled Axes}.
@node Line Graph Exercise, , Printed Axes, Readying a Graph @node Line Graph Exercise, , Printed Axes, Readying a Graph
@section Exercise @section Exercise
@ -19447,7 +19447,7 @@ whether the kill ring is full or empty. This is an act of
exploration. exploration.
From the human point of view, the act of exploration and discovery is From the human point of view, the act of exploration and discovery is
not necessarily an error, and therefore should not be labelled as one, not necessarily an error, and therefore should not be labeled as one,
even in the bowels of a computer. As it is, the code in Emacs implies even in the bowels of a computer. As it is, the code in Emacs implies
that a human who is acting virtuously, by exploring his or her that a human who is acting virtuously, by exploring his or her
environment, is making an error. This is bad. Even though the computer environment, is making an error. This is bad. Even though the computer
@ -19760,25 +19760,25 @@ as @code{kill-ring-yank-pointer} do not use this library, possibly
because they were written earlier. because they were written earlier.
@node Full Graph, Free Software and Free Manuals, Kill Ring, Top @node Full Graph, Free Software and Free Manuals, Kill Ring, Top
@appendix A Graph with Labelled Axes @appendix A Graph with Labeled Axes
Printed axes help you understand a graph. They convey scale. In an Printed axes help you understand a graph. They convey scale. In an
earlier chapter (@pxref{Readying a Graph, , Readying a Graph}), we earlier chapter (@pxref{Readying a Graph, , Readying a Graph}), we
wrote the code to print the body of a graph. Here we write the code wrote the code to print the body of a graph. Here we write the code
for printing and labelling vertical and horizontal axes, along with the for printing and labeling vertical and horizontal axes, along with the
body itself. body itself.
@menu @menu
* Labelled Example:: * Labeled Example::
* print-graph Varlist:: @code{let} expression in @code{print-graph}. * print-graph Varlist:: @code{let} expression in @code{print-graph}.
* print-Y-axis:: Print a label for the vertical axis. * print-Y-axis:: Print a label for the vertical axis.
* print-X-axis:: Print a horizontal label. * print-X-axis:: Print a horizontal label.
* Print Whole Graph:: The function to print a complete graph. * Print Whole Graph:: The function to print a complete graph.
@end menu @end menu
@node Labelled Example, print-graph Varlist, Full Graph, Full Graph @node Labeled Example, print-graph Varlist, Full Graph, Full Graph
@ifnottex @ifnottex
@unnumberedsec Labelled Example Graph @unnumberedsec Labeled Example Graph
@end ifnottex @end ifnottex
Since insertions fill a buffer to the right and below point, the new Since insertions fill a buffer to the right and below point, the new
@ -19821,9 +19821,9 @@ Here is an example of how a finished graph should look:
@end smallexample @end smallexample
@noindent @noindent
In this graph, both the vertical and the horizontal axes are labelled In this graph, both the vertical and the horizontal axes are labeled
with numbers. However, in some graphs, the horizontal axis is time with numbers. However, in some graphs, the horizontal axis is time
and would be better labelled with months, like this: and would be better labeled with months, like this:
@smallexample @smallexample
@group @group
@ -19838,9 +19838,9 @@ and would be better labelled with months, like this:
@end smallexample @end smallexample
Indeed, with a little thought, we can easily come up with a variety of Indeed, with a little thought, we can easily come up with a variety of
vertical and horizontal labelling schemes. Our task could become vertical and horizontal labeling schemes. Our task could become
complicated. But complications breed confusion. Rather than permit complicated. But complications breed confusion. Rather than permit
this, it is better choose a simple labelling scheme for our first this, it is better choose a simple labeling scheme for our first
effort, and to modify or replace it later. effort, and to modify or replace it later.
@need 1200 @need 1200
@ -19864,7 +19864,7 @@ These considerations suggest the following outline for the
We can work on each part of the @code{print-graph} function definition We can work on each part of the @code{print-graph} function definition
in turn. in turn.
@node print-graph Varlist, print-Y-axis, Labelled Example, Full Graph @node print-graph Varlist, print-Y-axis, Labeled Example, Full Graph
@comment node-name, next, previous, up @comment node-name, next, previous, up
@appendixsec The @code{print-graph} Varlist @appendixsec The @code{print-graph} Varlist
@cindex @code{print-graph} varlist @cindex @code{print-graph} varlist
@ -20391,7 +20391,7 @@ blank spaces and also separated according to the value of the variable
The value of the variable @code{X-axis-label-spacing} should itself be The value of the variable @code{X-axis-label-spacing} should itself be
measured in units of @code{symbol-width}, since you may want to change measured in units of @code{symbol-width}, since you may want to change
the width of the symbols that you are using to print the body of the the width of the symbols that you are using to print the body of the
graph without changing the ways the graph is labelled. graph without changing the ways the graph is labeled.
@menu @menu
* Similarities differences:: Much like @code{print-Y-axis}, but not exactly. * Similarities differences:: Much like @code{print-Y-axis}, but not exactly.
@ -20722,7 +20722,7 @@ Emacs will print the horizontal axis like this:
Now we are nearly ready to print the whole graph. Now we are nearly ready to print the whole graph.
The function to print the graph with the proper labels follows the The function to print the graph with the proper labels follows the
outline we created earlier (@pxref{Full Graph, , A Graph with Labelled outline we created earlier (@pxref{Full Graph, , A Graph with Labeled
Axes}), but with additions. Axes}), but with additions.
@need 1250 @need 1250
@ -20857,7 +20857,7 @@ Finally, the code for the @code{print-graph} function:
;;; @r{Final version.} ;;; @r{Final version.}
(defun print-graph (defun print-graph
(numbers-list &optional vertical-step) (numbers-list &optional vertical-step)
"Print labelled bar graph of the NUMBERS-LIST. "Print labeled bar graph of the NUMBERS-LIST.
The numbers-list consists of the Y-axis values. The numbers-list consists of the Y-axis values.
@end group @end group
@ -21478,7 +21478,7 @@ each column."
@group @group
(defun print-graph (defun print-graph
(numbers-list &optional vertical-step horizontal-step) (numbers-list &optional vertical-step horizontal-step)
"Print labelled bar graph of the NUMBERS-LIST. "Print labeled bar graph of the NUMBERS-LIST.
The numbers-list consists of the Y-axis values. The numbers-list consists of the Y-axis values.
@end group @end group
@ -21979,7 +21979,7 @@ each column."
@group @group
(defun print-graph (defun print-graph
(numbers-list &optional vertical-step horizontal-step) (numbers-list &optional vertical-step horizontal-step)
"Print labelled bar graph of the NUMBERS-LIST. "Print labeled bar graph of the NUMBERS-LIST.
The numbers-list consists of the Y-axis values. The numbers-list consists of the Y-axis values.
@end group @end group
@ -22275,4 +22275,3 @@ airplane.
@c @end iftex @c @end iftex
@bye @bye

3
doc/lispref/frames.texi
View file

@ -2414,7 +2414,7 @@ This function returns the ``vendor'' that provided the X server
software (as a string). Really this means whoever distributes the X software (as a string). Really this means whoever distributes the X
server. server.
When the developers of X labelled software distributors as When the developers of X labeled software distributors as
``vendors,'' they showed their false assumption that no system could ``vendors,'' they showed their false assumption that no system could
ever be developed and distributed noncommercially. ever be developed and distributed noncommercially.
@end defun @end defun
@ -2430,4 +2430,3 @@ This variable's value is @code{t} if no X window manager is in use.
The functions @code{x-pixel-width} and @code{x-pixel-height} return the The functions @code{x-pixel-width} and @code{x-pixel-height} return the
width and height of an X Window frame, measured in pixels. width and height of an X Window frame, measured in pixels.
@end ignore @end ignore

2
doc/misc/ert.texi
View file

@ -748,7 +748,7 @@ explanation function.
Both @code{ert-run-tests-interactively} and @code{ert-run-tests-batch} Both @code{ert-run-tests-interactively} and @code{ert-run-tests-batch}
are implemented on top of the lower-level test handling code in the are implemented on top of the lower-level test handling code in the
sections of @file{ert.el} labelled ``Facilities for running a single test'', sections of @file{ert.el} labeled ``Facilities for running a single test'',
``Test selectors'', and ``Facilities for running a whole set of tests''. ``Test selectors'', and ``Facilities for running a whole set of tests''.
If you want to write code that works with ERT tests, you should take a If you want to write code that works with ERT tests, you should take a

2
etc/AUTHORS
View file

@ -908,7 +908,7 @@ Derek Upham: changed nxml-mode.el
Detlev Zundel: wrote re-builder.el Detlev Zundel: wrote re-builder.el
Devon Sean Mccullough: changed comint.el Devon Sean McCullough: changed comint.el
Dhruva Krishnamurthy: changed makefile.w32-in emacsclient.c fontset.c Dhruva Krishnamurthy: changed makefile.w32-in emacsclient.c fontset.c
sound.c w32proc.c sound.c w32proc.c

2
etc/NEWS.1-17
View file

@ -963,7 +963,7 @@ a slash is appended to it.
* Undo can clear modified-flag. * Undo can clear modified-flag.
If you undo changes in a buffer back to a state in which the If you undo changes in a buffer back to a state in which the
buffer was not considered "modified", then it is labelled as buffer was not considered "modified", then it is labeled as
once again "unmodified". once again "unmodified".
* M-x run-lisp. * M-x run-lisp.

5
etc/tutorials/TUTORIAL.ja
View file

@ -524,7 +524,7 @@ C-_ $B$d(B C-x u $B$O?tCM0z?t$r7+$jJV$72s?t$H2r<a$7$^$9!#(B
>> "foo" $B$H$$$&L>$N%U%!%$%k$r:n$j$^$7$g$&!#(BC-x C-f foo <Return> $B$G$9!#(B >> "foo" $B$H$$$&L>$N%U%!%$%k$r:n$j$^$7$g$&!#(BC-x C-f foo <Return> $B$G$9!#(B
$B2?$+J8>O$rF~$l!"JT=8$7!"(BC-x C-s $B$G(B "foo" $B$r%;!<%V$7$F2<$5$$!#(B $B2?$+J8>O$rF~$l!"JT=8$7!"(BC-x C-s $B$G(B "foo" $B$r%;!<%V$7$F2<$5$$!#(B
$B:G8e$K(B C-x C-f TUTORIAL.ja <Retrun> $B$H%?%$%W$7(B $B:G8e$K(B C-x C-f TUTORIAL.ja <Return> $B$H%?%$%W$7(B
$BF~Lg%,%$%I$KLa$j$^$7$g$&!#(B $BF~Lg%,%$%I$KLa$j$^$7$g$&!#(B
Emacs $B$O%U%!%$%k$NFbMF$r%P%C%U%!!J(Bbuffer$B!K$H8F$P$l$k$b$N$NCf$K3JG<$7$F(B Emacs $B$O%U%!%$%k$NFbMF$r%P%C%U%!!J(Bbuffer$B!K$H8F$P$l$k$b$N$NCf$K3JG<$7$F(B
@ -890,7 +890,7 @@ ESC $B$O$=$l<+BN$,0l$D$NJ8;z$G=$>~%-!<$G$O$J$$$+$i$G$9!#(B
>> M-x make-frame <Return> $B$H%?%$%W$7$F!"?7$7$$%U%l!<%`$,I=<($5$l$k$N(B >> M-x make-frame <Return> $B$H%?%$%W$7$F!"?7$7$$%U%l!<%`$,I=<($5$l$k$N(B
$B$r3NG'$7$^$7$g$&!#(B $B$r3NG'$7$^$7$g$&!#(B
$B85$N%U%l!<%`$G$d$C$F$$$?$3$H$O$J$s$G$b$3$N?7$7$$%U%l!<%`$G$b$G$-$^$9!#(B $B85$N%U%l!<%`$G$d$C$F$$$?$3$H$O$J$s$G$b$3$N?7$7$$%U%l!<%`$G$b$G$-$^$9!#(B
$B:G=i$N%U%l!<%`$H$=$N8e$K:n$i$l$k%U%l!<%`$G0c$$$O$"$j$^$;$s!#(B $B:G=i$N%U%l!<%`$H$=$N8e$K:n$i$l$k%U%l!<%`$G0c$$$O$"$j$^$;$s!#(B
@ -1083,4 +1083,3 @@ GNU Emacs to your friends. Help stamp out software obstructionism
;;; Local Variables: ;;; Local Variables:
;;; coding: iso-2022-jp ;;; coding: iso-2022-jp
;;; End: ;;; End:

2
leim/quail/ipa.el
View file

@ -170,7 +170,7 @@ incorrectly, as separate from the modified glyphs.")
("a~" "ã") ;; Low central unrounded vowel, nasal U+00E3 ("a~" "ã") ;; Low central unrounded vowel, nasal U+00E3
("o~" "õ") ;; Upper-mid back rounded vowel, nasal U+00F5 ("o~" "õ") ;; Upper-mid back rounded vowel, nasal U+00F5
("u~" "ũ") ;; High back rounded vowel, nasal U+0169 ("u~" "ũ") ;; High back rounded vowel, nasal U+0169
("~" "̃") ;; +Nasalised modifier U+0303 ("~" "̃") ;; +Nasalized modifier U+0303
(":" "ː") ;; +Long modifier U+02D0 (":" "ː") ;; +Long modifier U+02D0
("-" "̩") ;; +Syllabic modifier U+0329 ("-" "̩") ;; +Syllabic modifier U+0329
("." "̣") ;; +Retroflex modifier U+0323 ("." "̣") ;; +Retroflex modifier U+0323

3
lisp/ChangeLog.10
View file

@ -9383,7 +9383,7 @@
2002-10-06 Glenn Morris <gmorris@ast.cam.ac.uk> 2002-10-06 Glenn Morris <gmorris@ast.cam.ac.uk>
* progmodes/fortran.el (fortran-beginning-do): Ignore labelled DO * progmodes/fortran.el (fortran-beginning-do): Ignore labeled DO
loops. loops.
2002-10-05 Stefan Monnier <monnier@cs.yale.edu> 2002-10-05 Stefan Monnier <monnier@cs.yale.edu>
@ -23550,4 +23550,3 @@ See ChangeLog.9 for earlier changes.
You should have received a copy of the GNU General Public License You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.

9
lisp/ChangeLog.7
View file

@ -4923,10 +4923,10 @@
(fortran-blink-matching-if, fortran-blink-matching-do) (fortran-blink-matching-if, fortran-blink-matching-do)
(fortran-indent-new-line): Bind case-fold-search. (fortran-indent-new-line): Bind case-fold-search.
(fortran-end-do, fortran-beginning-do, fortran-end-if) (fortran-end-do, fortran-beginning-do, fortran-end-if)
(fortran-beginning-if): Bind case-fold-search. Allow labelled blocks. (fortran-beginning-if): Bind case-fold-search. Allow labeled blocks.
Use fortran-end-prog-re. Use fortran-end-prog-re.
(fortran-if-start-re): New variable. (fortran-if-start-re): New variable.
(fortran-calculate-indent): Allow labelled blocks. Simplify the conds. (fortran-calculate-indent): Allow labeled blocks. Simplify the conds.
Make select case indentation work. Make select case indentation work.
(fortran-is-in-string-p): Ignore Emacs 18 bug kluge. (fortran-is-in-string-p): Ignore Emacs 18 bug kluge.
(fortran-fill): Allow double quotes in check for string. (fortran-fill): Allow double quotes in check for string.
@ -21766,9 +21766,9 @@
* f90.el (f90-no-block-limit): Fixed bug for indentation of * f90.el (f90-no-block-limit): Fixed bug for indentation of
elsewhere and elseif. elsewhere and elseif.
(f90-looking-at-where-or-forall): Now allows for labelled forall (f90-looking-at-where-or-forall): Now allows for labeled forall
and where statements. and where statements.
(f90-font-lock-keywords-2): New highlighting for labelled where (f90-font-lock-keywords-2): New highlighting for labeled where
and forall. Fixed small bug with else highlighting. and forall. Fixed small bug with else highlighting.
(f90-fill-region): Moved indentation to f90-break-line. (f90-fill-region): Moved indentation to f90-break-line.
(f90-break-line): Will now always indent the second line. (f90-break-line): Will now always indent the second line.
@ -23123,4 +23123,3 @@ See ChangeLog.6 for earlier changes.
You should have received a copy of the GNU General Public License You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.

3
lisp/ChangeLog.9
View file

@ -14191,7 +14191,7 @@
* international/ja-dic-cnv.el: Renamed from skkdic-cnv.el. * international/ja-dic-cnv.el: Renamed from skkdic-cnv.el.
Provide ja-dic-cnv instead of skkdic-cnv. Provide ja-dic-cnv instead of skkdic-cnv.
(ja-dic-filename): Renamed from skkdic-filename. Referers changed. (ja-dic-filename): Renamed from skkdic-filename. Referrers changed.
(iso-2022-7bit-short): Add safe-charsets property. (iso-2022-7bit-short): Add safe-charsets property.
(skkdic-convert-postfix): Search Japanese chou-on character in (skkdic-convert-postfix): Search Japanese chou-on character in
addition to Hiragana character. addition to Hiragana character.
@ -20709,4 +20709,3 @@ See ChangeLog.8 for earlier changes.
You should have received a copy of the GNU General Public License You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.

2
lisp/allout-widgets.el
View file

@ -1632,7 +1632,7 @@ We return the item-widget corresponding to the item at point."
(defun allout-redecorate-item (item-widget) (defun allout-redecorate-item (item-widget)
"Resituate ITEM-WIDGET decorations, disregarding context. "Resituate ITEM-WIDGET decorations, disregarding context.
Use this to redecorate only the item, when you know that it's Use this to redecorate only the item, when you know that its
situation with respect to siblings, parent, and offspring is situation with respect to siblings, parent, and offspring is
unchanged from its last decoration. Use unchanged from its last decoration. Use
`allout-decorate-item-and-context' instead to reassess and adjust `allout-decorate-item-and-context' instead to reassess and adjust

2
lisp/allout.el
View file

@ -5473,7 +5473,7 @@ header and body. The elements of that list are:
"invalid format" format)))) "invalid format" format))))
(list depth prefix strings)) (list depth prefix strings))
result)) result))
;; Reasses format, if any: ;; Reassess format, if any:
(if (and format (listp format)) (if (and format (listp format))
(cond ((= new-depth depth) (cond ((= new-depth depth)
(setq format (cons (1+ (car format)) (setq format (cons (1+ (car format))

2
lisp/cedet/ede/makefile-edit.el
View file

@ -71,7 +71,7 @@
(end-of-line) (end-of-line)
(= (preceding-char) ?\\))) (= (preceding-char) ?\\)))
;;; Programatic editing of a Makefile ;;; Programmatic editing of a Makefile
;; ;;
(defun makefile-move-to-macro (macro &optional next) (defun makefile-move-to-macro (macro &optional next)
"Move to the definition of MACRO. Return t if found. "Move to the definition of MACRO. Return t if found.

2
lisp/cedet/ede/proj-misc.el
View file

@ -50,7 +50,7 @@ All listed sources are included in the distribution.")
(defvar ede-misc-source (defvar ede-misc-source
(ede-sourcecode "ede-misc-source" (ede-sourcecode "ede-misc-source"
:name "Miscelaneous" :name "Miscellaneous"
:sourcepattern ".*") :sourcepattern ".*")
"Miscellaneous field definition.") "Miscellaneous field definition.")

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

@ -240,7 +240,7 @@ list of semantic tokens found."
matchlist nil) ;;generate exit condition matchlist nil) ;;generate exit condition
(if (not end) (if (not end)
(setq out nil))) (setq out nil)))
;; Nothin? ;; Nothing?
)) ))
(setq result (setq result
(if (eq s starting-stream) (if (eq s starting-stream)

2
lisp/cedet/semantic/bovine/c.el
View file

@ -1092,7 +1092,7 @@ Optional argument STAR and REF indicate the number of * and & in the typedef."
;; `throws' as a common name for things that toss ;; `throws' as a common name for things that toss
;; exceptions about. ;; exceptions about.
:throws (nth 5 tokenpart) :throws (nth 5 tokenpart)
;; Reemtrant is a C++ thingy. Add it here ;; Reentrant is a C++ thingy. Add it here
:reentrant-flag (if (member "reentrant" (nth 6 tokenpart)) t) :reentrant-flag (if (member "reentrant" (nth 6 tokenpart)) t)
;; A function post-const is funky. Try stuff ;; A function post-const is funky. Try stuff
:methodconst-flag (if (member "const" (nth 6 tokenpart)) t) :methodconst-flag (if (member "const" (nth 6 tokenpart)) t)

2
lisp/cedet/semantic/db-find.el
View file

@ -862,7 +862,7 @@ instead."
(let ((tab (car (car tmp))) (let ((tab (car (car tmp)))
(tags (cdr (car tmp)))) (tags (cdr (car tmp))))
(dolist (T tags) (dolist (T tags)
;; Normilzation gives specialty database tables a chance ;; Normalization gives specialty database tables a chance
;; to convert into a more stable tag format. ;; to convert into a more stable tag format.
(let* ((norm (semanticdb-normalize-one-tag tab T)) (let* ((norm (semanticdb-normalize-one-tag tab T))
(ntab (car norm)) (ntab (car norm))

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

@ -96,7 +96,7 @@ This option is ignored if `semantic-imenu-bucketize-file' is nil."
(defcustom semantic-imenu-bucketize-type-members t (defcustom semantic-imenu-bucketize-type-members t
"*Non-nil if members of a type should be grouped into buckets. "*Non-nil if members of a type should be grouped into buckets.
A nil value means to keep them in the same order. A nil value means to keep them in the same order.
Overriden to nil if `semantic-imenu-bucketize-file' is nil." Overridden to nil if `semantic-imenu-bucketize-file' is nil."
:group 'semantic-imenu :group 'semantic-imenu
:type 'boolean) :type 'boolean)
(make-variable-buffer-local 'semantic-imenu-bucketize-type-members) (make-variable-buffer-local 'semantic-imenu-bucketize-type-members)

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

@ -255,7 +255,7 @@ ST can be a class, or an object."
(let ((c (oref st code))) (let ((c (oref st code)))
(srecode-push st) (srecode-push st)
(srecode-insert-code-stream c dictionary)) (srecode-insert-code-stream c dictionary))
;; Poping the stack is protected ;; Popping the stack is protected.
(srecode-pop st))) (srecode-pop st)))
(defun srecode-insert-code-stream (code dictionary) (defun srecode-insert-code-stream (code dictionary)

2
lisp/cedet/srecode/srt-mode.el
View file

@ -483,7 +483,7 @@ section or ? for an ask variable."
(if (> start (point)) (if (> start (point))
;; If our starting point is after the found point, that ;; If our starting point is after the found point, that
;; means we are not inside the macro. Retur nil. ;; means we are not inside the macro. Return nil.
nil nil
;; We are inside the macro, extract the text so far. ;; We are inside the macro, extract the text so far.
(let* ((macroend (match-beginning 0)) (let* ((macroend (match-beginning 0))

2
lisp/emacs-lisp/byte-opt.el
View file

@ -527,7 +527,7 @@
;; However, don't actually bother calling `ignore'. ;; However, don't actually bother calling `ignore'.
`(prog1 nil . ,(mapcar 'byte-optimize-form (cdr form)))) `(prog1 nil . ,(mapcar 'byte-optimize-form (cdr form))))
;; Neeeded as long as we run byte-optimize-form after cconv. ;; Needed as long as we run byte-optimize-form after cconv.
((eq fn 'internal-make-closure) form) ((eq fn 'internal-make-closure) form)
((byte-code-function-p fn) ((byte-code-function-p fn)

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

@ -759,7 +759,7 @@ Possible return values:
(indirect-function 'smie-op-left) (indirect-function 'smie-op-left)
halfsexp)) halfsexp))
;;; Miscellanous commands using the precedence parser. ;;; Miscellaneous commands using the precedence parser.
(defun smie-backward-sexp-command (&optional n) (defun smie-backward-sexp-command (&optional n)
"Move backward through N logical elements." "Move backward through N logical elements."

2
lisp/emacs-lisp/tabulated-list.el
View file

@ -321,7 +321,7 @@ This mode is usually not used directly; instead, other major
modes are derived from it, using `define-derived-mode'. modes are derived from it, using `define-derived-mode'.
In this major mode, the buffer is divided into multiple columns, In this major mode, the buffer is divided into multiple columns,
which are labelled using the header line. Each non-empty line which are labeled using the header line. Each non-empty line
belongs to one \"entry\", and the entries can be sorted according belongs to one \"entry\", and the entries can be sorted according
to their column values. to their column values.

3
lisp/erc/erc-notify.el
View file

@ -88,7 +88,7 @@ strings."
(defun erc-notify-install-message-catalogs () (defun erc-notify-install-message-catalogs ()
(erc-define-catalog (erc-define-catalog
'english 'english
'((notify_current . "Notificated people online: %l") '((notify_current . "Notified people online: %l")
(notify_list . "Current notify list: %l") (notify_list . "Current notify list: %l")
(notify_on . "Detected %n on IRC network %m") (notify_on . "Detected %n on IRC network %m")
(notify_off . "%n has left IRC network %m")))) (notify_off . "%n has left IRC network %m"))))
@ -250,4 +250,3 @@ with args, toggle notify status of people."
;; indent-tabs-mode: t ;; indent-tabs-mode: t
;; tab-width: 8 ;; tab-width: 8
;; End: ;; End:

2
lisp/generic-x.el
View file

@ -1446,7 +1446,7 @@ like an INI file. You can add this hook to `find-file-hook'."
"REGDB_STRING" "REGDB_STRING"
"REGDB_UNINSTALL_NAME" "REGDB_UNINSTALL_NAME"
"REMOTE_DRIVE" "REMOTE_DRIVE"
"REMOVALE_DRIVE" "REMOVEABLE_DRIVE"
"REPLACE_ITEM" "REPLACE_ITEM"
"REPLACE" "REPLACE"
"RESET" "RESET"

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

@ -430,7 +430,7 @@ inheritance."
regexp list-topic topic-level) regexp list-topic topic-level)
"List all newsgroups with unread articles of level LEVEL or lower. "List all newsgroups with unread articles of level LEVEL or lower.
Use the `gnus-group-topics' to sort the groups. Use the `gnus-group-topics' to sort the groups.
If PREDICTE is a function, list groups that the function returns non-nil; If PREDICATE is a function, list groups that the function returns non-nil;
if it is t, list groups that have no unread articles. if it is t, list groups that have no unread articles.
If LOWEST is non-nil, list all newsgroups of level LOWEST or higher." If LOWEST is non-nil, list all newsgroups of level LOWEST or higher."
(set-buffer gnus-group-buffer) (set-buffer gnus-group-buffer)

2
lisp/image-mode.el
View file

@ -638,7 +638,7 @@ These properties are determined by the Image mode variables
`image-transform-resize' and `image-transform-rotation'. The `image-transform-resize' and `image-transform-rotation'. The
return value is suitable for appending to an image spec. return value is suitable for appending to an image spec.
Recaling and rotation properties only take effect if Emacs is Rescaling and rotation properties only take effect if Emacs is
compiled with ImageMagick support." compiled with ImageMagick support."
(when (or image-transform-resize (when (or image-transform-resize
(not (equal image-transform-rotation 0.0))) (not (equal image-transform-rotation 0.0)))

2
lisp/international/mule-diag.el
View file

@ -958,7 +958,7 @@ the current buffer."
(insert "\n ---<fallback to the default of the default fontset>---") (insert "\n ---<fallback to the default of the default fontset>---")
(put-text-property (line-beginning-position) (point) 'face 'highlight))) (put-text-property (line-beginning-position) (point) 'face 'highlight)))
(if (and start1 end2) (if (and start1 end2)
;; Reoder the printed information to match with the font ;; Reorder the printed information to match with the font
;; searching strategy; i.e. FONTSET, the default fontset, ;; searching strategy; i.e. FONTSET, the default fontset,
;; default of FONTSET, default of the default fontset. ;; default of FONTSET, default of the default fontset.
(transpose-regions start1 end1 start2 end2)) (transpose-regions start1 end1 start2 end2))

8
lisp/language/european.el
View file

@ -146,8 +146,8 @@ These languages are supported with the Latin-3 (ISO-8859-3) character set:
(input-method . "latin-4-postfix") (input-method . "latin-4-postfix")
(documentation . "\ (documentation . "\
These languages are supported with the Latin-4 (ISO-8859-4) character set: These languages are supported with the Latin-4 (ISO-8859-4) character set:
Danish, English, Estonian, Finnish, German, Greenlandic, Lappish, Danish, English, Estonian, Finnish, German, Greenlandic, Latvian,
Latvian, Lithuanian, and Norwegian.")) Lithuanian, Norwegian, and Sami."))
'("European")) '("European"))
@ -226,7 +226,7 @@ See also the Turkish environment."))
"ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)." "ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)."
:coding-type 'charset :coding-type 'charset
;; `W' for `Welsh', since `C' for `Celtic' is taken. ;; `W' for `Welsh', since `C' for `Celtic' is taken.
:mnemonic ?W :mnemonic ?W
:charset-list '(iso-8859-14) :charset-list '(iso-8859-14)
:mime-charset 'iso-8859-14) :mime-charset 'iso-8859-14)
@ -610,7 +610,7 @@ method and applying Turkish case rules for the characters i, I, $(D)E(B, $(D*
(define-coding-system 'mac-roman (define-coding-system 'mac-roman
"Mac Roman Encoding (MIME:MACINTOSH)." "Mac Roman Encoding (MIME:MACINTOSH)."
:coding-type 'charset :coding-type 'charset
:mnemonic ?M :mnemonic ?M
:charset-list '(mac-roman) :charset-list '(mac-roman)
:mime-charset 'macintosh) :mime-charset 'macintosh)

2
lisp/language/romanian.el
View file

@ -35,7 +35,7 @@
(unibyte-display . iso-8859-2) (unibyte-display . iso-8859-2)
(tutorial . "TUTORIAL.ro") (tutorial . "TUTORIAL.ro")
(sample-text . "Bunã ziua, bine aþi venit!") (sample-text . "Bunã ziua, bine aþi venit!")
(documentation . "Rmoanian environment using Latin-2 encoding. (documentation . "Romanian environment using Latin-2 encoding.
An environment for generic Latin-10 encoding is also available.")) An environment for generic Latin-10 encoding is also available."))
'("European")) '("European"))

2
lisp/ldefs-boot.el
View file

@ -27789,7 +27789,7 @@ This mode is usually not used directly; instead, other major
modes are derived from it, using `define-derived-mode'. modes are derived from it, using `define-derived-mode'.
In this major mode, the buffer is divided into multiple columns, In this major mode, the buffer is divided into multiple columns,
which are labelled using the header line. Each non-empty line which are labeled using the header line. Each non-empty line
belongs to one \"entry\", and the entries can be sorted according belongs to one \"entry\", and the entries can be sorted according
to their column values. to their column values.

2
lisp/mail/mail-extr.el
View file

@ -1961,7 +1961,7 @@ place. It affects how `mail-extract-address-components' works."
("gw" "Guinea-Bissau") ("gw" "Guinea-Bissau")
("gy" "Guyana") ("gy" "Guyana")
("hk" "Hong Kong") ("hk" "Hong Kong")
("hm" "Heard Island and Mcdonald Islands") ("hm" "Heard Island and McDonald Islands")
("hn" "Honduras") ("hn" "Honduras")
("hr" "Croatia" "Croatia (Hrvatska)") ("hr" "Croatia" "Croatia (Hrvatska)")
("ht" "Haiti") ("ht" "Haiti")

2
lisp/mh-e/mh-comp.el
View file

@ -504,7 +504,7 @@ See also `mh-compose-forward-as-mime-flag',
folder msg) folder msg)
;; Was inserted before us, move to end of file to preserve order ;; Was inserted before us, move to end of file to preserve order
(goto-char (point-max))))))) (goto-char (point-max)))))))
;; Postition just before forwarded message ;; Position just before forwarded message.
(if (re-search-forward "^------- Forwarded Message" nil t) (if (re-search-forward "^------- Forwarded Message" nil t)
(forward-line -1) (forward-line -1)
(goto-char (mh-mail-header-end)) (goto-char (mh-mail-header-end))

2
lisp/mh-e/mh-e.el
View file

@ -2478,7 +2478,7 @@ of citations entirely, choose \"None\"."
"Original-NNTP-" ; mail to news "Original-NNTP-" ; mail to news
"Original-Path:" ; mail to news "Original-Path:" ; mail to news
"Original-Received:" ; mail to news "Original-Received:" ; mail to news
"Original-Recipt:" ; RFC 2298 "Original-Recipient:" ; RFC 2298
"Original-To:" ; mail to news "Original-To:" ; mail to news
"Original-X-" ; mail to news "Original-X-" ; mail to news
"Origination-Client:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/ "Origination-Client:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/

2
lisp/net/browse-url.el
View file

@ -389,7 +389,7 @@ Defaults to the value of `browse-url-epiphany-arguments' at the time
:type '(repeat (string :tag "Argument")) :type '(repeat (string :tag "Argument"))
:group 'browse-url) :group 'browse-url)
;; GNOME means of invoking either Mozilla or Netrape. ;; GNOME means of invoking either Mozilla or Netscape.
(defvar browse-url-gnome-moz-program "gnome-moz-remote") (defvar browse-url-gnome-moz-program "gnome-moz-remote")
(defcustom browse-url-gnome-moz-arguments '() (defcustom browse-url-gnome-moz-arguments '()

18
lisp/net/secrets.el
View file

@ -431,7 +431,7 @@ returned, and it will be stored in `secrets-session-path'."
(secrets-get-collections))) (secrets-get-collections)))
(defun secrets-collection-path (collection) (defun secrets-collection-path (collection)
"Return the object path of collection labelled COLLECTION. "Return the object path of collection labeled COLLECTION.
If COLLECTION is nil, return the session collection path. If COLLECTION is nil, return the session collection path.
If there is no such COLLECTION, return nil." If there is no such COLLECTION, return nil."
(or (or
@ -454,7 +454,7 @@ If there is no such COLLECTION, return nil."
(throw 'collection-found collection-path)))))) (throw 'collection-found collection-path))))))
(defun secrets-create-collection (collection) (defun secrets-create-collection (collection)
"Create collection labelled COLLECTION if it doesn't exist. "Create collection labeled COLLECTION if it doesn't exist.
Return the D-Bus object path for collection." Return the D-Bus object path for collection."
(let ((collection-path (secrets-collection-path collection))) (let ((collection-path (secrets-collection-path collection)))
;; Create the collection. ;; Create the collection.
@ -480,7 +480,7 @@ For the time being, only the alias \"default\" is supported."
"Label")) "Label"))
(defun secrets-set-alias (collection alias) (defun secrets-set-alias (collection alias)
"Set ALIAS as alias of collection labelled COLLECTION. "Set ALIAS as alias of collection labeled COLLECTION.
For the time being, only the alias \"default\" is supported." For the time being, only the alias \"default\" is supported."
(let ((collection-path (secrets-collection-path collection))) (let ((collection-path (secrets-collection-path collection)))
(unless (secrets-empty-path collection-path) (unless (secrets-empty-path collection-path)
@ -497,7 +497,7 @@ For the time being, only the alias \"default\" is supported."
alias :object-path secrets-empty-path)) alias :object-path secrets-empty-path))
(defun secrets-unlock-collection (collection) (defun secrets-unlock-collection (collection)
"Unlock collection labelled COLLECTION. "Unlock collection labeled COLLECTION.
If successful, return the object path of the collection." If successful, return the object path of the collection."
(let ((collection-path (secrets-collection-path collection))) (let ((collection-path (secrets-collection-path collection)))
(unless (secrets-empty-path collection-path) (unless (secrets-empty-path collection-path)
@ -509,7 +509,7 @@ If successful, return the object path of the collection."
collection-path)) collection-path))
(defun secrets-delete-collection (collection) (defun secrets-delete-collection (collection)
"Delete collection labelled COLLECTION." "Delete collection labeled COLLECTION."
(let ((collection-path (secrets-collection-path collection))) (let ((collection-path (secrets-collection-path collection)))
(unless (secrets-empty-path collection-path) (unless (secrets-empty-path collection-path)
(secrets-prompt (secrets-prompt
@ -636,7 +636,7 @@ The object path of the created item is returned."
(car result))))) (car result)))))
(defun secrets-item-path (collection item) (defun secrets-item-path (collection item)
"Return the object path of item labelled ITEM in COLLECTION. "Return the object path of item labeled ITEM in COLLECTION.
If there is no such item, return nil." If there is no such item, return nil."
(let ((collection-path (secrets-unlock-collection collection))) (let ((collection-path (secrets-unlock-collection collection)))
(catch 'item-found (catch 'item-found
@ -645,7 +645,7 @@ If there is no such item, return nil."
(throw 'item-found item-path)))))) (throw 'item-found item-path))))))
(defun secrets-get-secret (collection item) (defun secrets-get-secret (collection item)
"Return the secret of item labelled ITEM in COLLECTION. "Return the secret of item labeled ITEM in COLLECTION.
If there is no such item, return nil." If there is no such item, return nil."
(let ((item-path (secrets-item-path collection item))) (let ((item-path (secrets-item-path collection item)))
(unless (secrets-empty-path item-path) (unless (secrets-empty-path item-path)
@ -656,7 +656,7 @@ If there is no such item, return nil."
"GetSecret" :object-path secrets-session-path)))))) "GetSecret" :object-path secrets-session-path))))))
(defun secrets-get-attributes (collection item) (defun secrets-get-attributes (collection item)
"Return the lookup attributes of item labelled ITEM in COLLECTION. "Return the lookup attributes of item labeled ITEM in COLLECTION.
If there is no such item, or the item has no attributes, return nil." If there is no such item, or the item has no attributes, return nil."
(unless (stringp collection) (setq collection "default")) (unless (stringp collection) (setq collection "default"))
(let ((item-path (secrets-item-path collection item))) (let ((item-path (secrets-item-path collection item)))
@ -669,7 +669,7 @@ If there is no such item, or the item has no attributes, return nil."
secrets-interface-item "Attributes"))))) secrets-interface-item "Attributes")))))
(defun secrets-get-attribute (collection item attribute) (defun secrets-get-attribute (collection item attribute)
"Return the value of ATTRIBUTE of item labelled ITEM in COLLECTION. "Return the value of ATTRIBUTE of item labeled ITEM in COLLECTION.
If there is no such item, or the item doesn't own this attribute, return nil." If there is no such item, or the item doesn't own this attribute, return nil."
(cdr (assoc attribute (secrets-get-attributes collection item)))) (cdr (assoc attribute (secrets-get-attributes collection item))))

6
lisp/progmodes/cc-vars.el
View file

@ -1327,7 +1327,7 @@ Here is the current list of valid syntactic element symbols:
statement-case-open -- The first line in a case block starting with brace. statement-case-open -- The first line in a case block starting with brace.
substatement -- The first line after an if/while/for/do/else. substatement -- The first line after an if/while/for/do/else.
substatement-open -- The brace that opens a substatement block. substatement-open -- The brace that opens a substatement block.
substatement-label -- Labelled line after an if/while/for/do/else. substatement-label -- Labeled line after an if/while/for/do/else.
case-label -- A \"case\" or \"default\" label. case-label -- A \"case\" or \"default\" label.
access-label -- C++ private/protected/public access label. access-label -- C++ private/protected/public access label.
label -- Any ordinary label. label -- Any ordinary label.
@ -1625,7 +1625,7 @@ names)."))
(defvar c-macro-with-semi-re nil (defvar c-macro-with-semi-re nil
;; Regular expression which matches a (#define'd) symbol whose expansion ;; Regular expression which matches a (#define'd) symbol whose expansion
;; ends with a semicolon. ;; ends with a semicolon.
;; ;;
;; This variable should be set by `c-make-macros-with-semi-re' rather than ;; This variable should be set by `c-make-macros-with-semi-re' rather than
;; directly. ;; directly.
) )
@ -1651,7 +1651,7 @@ names)."))
(t (error "c-make-macro-with-semi-re: invalid \ (t (error "c-make-macro-with-semi-re: invalid \
c-macro-names-with-semicolon: %s" c-macro-names-with-semicolon: %s"
c-macro-names-with-semicolon)))))) c-macro-names-with-semicolon))))))
(defvar c-macro-names-with-semicolon (defvar c-macro-names-with-semicolon
'("Q_OBJECT" "Q_PROPERTY" "Q_DECLARE" "Q_ENUMS") '("Q_OBJECT" "Q_PROPERTY" "Q_DECLARE" "Q_ENUMS")
"List of #defined symbols whose expansion ends with a semicolon. "List of #defined symbols whose expansion ends with a semicolon.

2
lisp/progmodes/ebnf2ps.el
View file

@ -5037,7 +5037,7 @@ killed after process termination."
(when gen-func (when gen-func
(setq error-msg "EMPTY RULES" (setq error-msg "EMPTY RULES"
tree (ebnf-eliminate-empty-rules tree)) tree (ebnf-eliminate-empty-rules tree))
(setq error-msg "OPTMIZE" (setq error-msg "OPTIMIZE"
tree (ebnf-optimize tree)) tree (ebnf-optimize tree))
(setq error-msg "DIMENSIONS" (setq error-msg "DIMENSIONS"
tree (ebnf-dimensions tree)) tree (ebnf-dimensions tree))

4
lisp/progmodes/fortran.el
View file

@ -1462,7 +1462,7 @@ Return point or nil."
(defun fortran-beginning-do () (defun fortran-beginning-do ()
"Search backwards for first unmatched DO [WHILE]. "Search backwards for first unmatched DO [WHILE].
Return point or nil. Ignores labelled DO loops (ie DO 10 ... 10 CONTINUE)." Return point or nil. Ignores labeled DO loops (ie DO 10 ... 10 CONTINUE)."
(let ((case-fold-search t) (let ((case-fold-search t)
(dostart-re "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+[^0-9]")) (dostart-re "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+[^0-9]"))
(if (save-excursion (if (save-excursion
@ -1482,7 +1482,7 @@ Return point or nil. Ignores labelled DO loops (ie DO 10 ... 10 CONTINUE)."
(skip-chars-forward " \t0-9") (skip-chars-forward " \t0-9")
(cond ((looking-at dostart-re) (cond ((looking-at dostart-re)
(setq count (1- count))) (setq count (1- count)))
;; Note labelled loop ends not considered. ;; Note labeled loop ends not considered.
((looking-at "end[ \t]*do\\b") ((looking-at "end[ \t]*do\\b")
(setq count (1+ count))))) (setq count (1+ count)))))
(and (zerop count) (and (zerop count)

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

@ -3117,7 +3117,7 @@ STRING are replaced by `-' and substrings are converted to lower case."
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Menues ;;; Menus
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

2
lisp/speedbar.el
View file

@ -2100,7 +2100,7 @@ cell of the form ( 'DIRLIST . 'FILELIST )."
(if (= index 0) (if (= index 0)
;; If the shown files variable has extra directories, then ;; If the shown files variable has extra directories, then
;; it is our responsibility to redraw them all ;; it is our responsibility to redraw them all
;; Luckilly, the nature of inserting items into this list means ;; Luckily, the nature of inserting items into this list means
;; that by reversing it, we can easilly go in the right order ;; that by reversing it, we can easilly go in the right order
(let ((sf (cdr (reverse speedbar-shown-directories)))) (let ((sf (cdr (reverse speedbar-shown-directories))))
(setq speedbar-shown-directories (setq speedbar-shown-directories

2
lisp/startup.el
View file

@ -1132,7 +1132,7 @@ the `--debug-init' option to view a complete error backtrace."
(eq orig-enable-multibyte (default-value (eq orig-enable-multibyte (default-value
'enable-multibyte-characters))) 'enable-multibyte-characters)))
;; Init file changed to unibyte. Reset existing multibyte ;; Init file changed to unibyte. Reset existing multibyte
;; buffers (probably *scratch*, *Messages*, *Minibuff-0*). ;; buffers (probably *scratch*, *Messages*, *Minibuf-0*).
;; Arguably this should only be done if they're free of ;; Arguably this should only be done if they're free of
;; multibyte characters. ;; multibyte characters.
(mapc (lambda (buffer) (mapc (lambda (buffer)

2
lisp/textmodes/artist.el
View file

@ -2437,7 +2437,7 @@ in the coord."
point-list)) point-list))
;; artist-save-chars-under-point-list ;; artist-save-chars-under-point-list
;; Remebers the chars that were there before we did draw the line. ;; Remembers the chars that were there before we did draw the line.
;; Returns point-list. ;; Returns point-list.
;; ;;
(defun artist-save-chars-under-point-list (point-list) (defun artist-save-chars-under-point-list (point-list)

2
lisp/textmodes/bibtex.el
View file

@ -3941,7 +3941,7 @@ If `bibtex-files' is non-nil, search all these files.
Otherwise the search is limited to the current buffer. Otherwise the search is limited to the current buffer.
Return position of entry if CROSSREF-KEY is found or nil otherwise. Return position of entry if CROSSREF-KEY is found or nil otherwise.
If CROSSREF-KEY is in the same buffer like current entry but before it If CROSSREF-KEY is in the same buffer like current entry but before it
an error is signaled. If NOERRER is non-nil this error is suppressed. an error is signaled. If NOERROR is non-nil this error is suppressed.
Optional arg PNT is the position of the referencing entry. It defaults Optional arg PNT is the position of the referencing entry. It defaults
to position of point. If optional arg SPLIT is non-nil, split window to position of point. If optional arg SPLIT is non-nil, split window
so that both the referencing and the crossrefed entry are displayed. so that both the referencing and the crossrefed entry are displayed.

24
lisp/textmodes/reftex-global.el
View file

@ -139,7 +139,7 @@ No active TAGS table is required."
(set (make-local-variable 'TeX-master) master) (set (make-local-variable 'TeX-master) master)
(erase-buffer) (erase-buffer)
(insert " MULTIPLE LABELS IN CURRENT DOCUMENT:\n") (insert " MULTIPLE LABELS IN CURRENT DOCUMENT:\n")
(insert (insert
" Move point to label and type `r' to run a query-replace on the label\n" " Move point to label and type `r' to run a query-replace on the label\n"
" and its references. Type `q' to exit this buffer.\n\n") " and its references. Type `q' to exit this buffer.\n\n")
(insert " LABEL FILE\n") (insert " LABEL FILE\n")
@ -190,15 +190,15 @@ This command should be used with care, in particular in multifile
documents. You should not use it if another document refers to this documents. You should not use it if another document refers to this
one with the `xr' package." one with the `xr' package."
(interactive) (interactive)
;; Resan the entire document ;; Rescan the entire document
(reftex-access-scan-info 1) (reftex-access-scan-info 1)
;; Get some insurance ;; Get some insurance
(if (and (reftex-is-multi) (if (and (reftex-is-multi)
(not (yes-or-no-p "Replacing all simple labels in multiple files is risky. Continue? "))) (not (yes-or-no-p "Replacing all simple labels in multiple files is risky. Continue? ")))
(error "Abort")) (error "Abort"))
;; Make the translation list ;; Make the translation list
(let* ((re-core (concat "\\(" (let* ((re-core (concat "\\("
(mapconcat 'cdr reftex-typekey-to-prefix-alist "\\|") (mapconcat 'cdr reftex-typekey-to-prefix-alist "\\|")
"\\)")) "\\)"))
(label-re (concat "\\`" re-core "\\([0-9]+\\)\\'")) (label-re (concat "\\`" re-core "\\([0-9]+\\)\\'"))
(search-re (concat "[{,]\\(" re-core "\\([0-9]+\\)\\)[,}]")) (search-re (concat "[{,]\\(" re-core "\\([0-9]+\\)\\)[,}]"))
@ -231,11 +231,11 @@ one with the `xr' package."
(reftex-save-all-document-buffers) (reftex-save-all-document-buffers)
;; First test to check for erros ;; First test to check for erros
(setq n (reftex-translate (setq n (reftex-translate
files search-re translate-alist error-fmt 'test)) files search-re translate-alist error-fmt 'test))
;; Now the real thing. ;; Now the real thing.
(if (yes-or-no-p (if (yes-or-no-p
(format "Replace %d items at %d places in %d files? " (format "Replace %d items at %d places in %d files? "
(length translate-alist) n (length files))) (length translate-alist) n (length files)))
(progn (progn
@ -253,9 +253,9 @@ one with the `xr' package."
(defun reftex-translate (files search-re translate-alist error-fmt test) (defun reftex-translate (files search-re translate-alist error-fmt test)
;; In FILES, look for SEARCH-RE and replace match 1 of it with ;; In FILES, look for SEARCH-RE and replace match 1 of it with
;; its association in TRANSLATE-ALSIT. ;; its association in TRANSLATE-ALSIT.
;; If we do not find an association and TEST is non-nil, query ;; If we do not find an association and TEST is non-nil, query
;; to ignore the problematic string. ;; to ignore the problematic string.
;; If TEST is nil, it is ignored without query. ;; If TEST is nil, it is ignored without query.
;; Return the number of replacements. ;; Return the number of replacements.
(let ((n 0) file label match-data buf macro pos cell) (let ((n 0) file label match-data buf macro pos cell)
@ -281,7 +281,7 @@ one with the `xr' package."
(or (looking-at "\\\\ref") (or (looking-at "\\\\ref")
(looking-at "\\\\[a-zA-Z]*ref\\(range\\)?[^a-zA-Z]") (looking-at "\\\\[a-zA-Z]*ref\\(range\\)?[^a-zA-Z]")
(looking-at "\\\\ref[a-zA-Z]*[^a-zA-Z]") (looking-at "\\\\ref[a-zA-Z]*[^a-zA-Z]")
(looking-at (format (looking-at (format
reftex-find-label-regexp-format reftex-find-label-regexp-format
(regexp-quote label))))) (regexp-quote label)))))
;; OK, we should replace it. ;; OK, we should replace it.
@ -351,7 +351,7 @@ Also checks if buffers visiting the files are in read-only mode."
(defun reftex-isearch-wrap-function () (defun reftex-isearch-wrap-function ()
(if (not isearch-word) (if (not isearch-word)
(switch-to-buffer (switch-to-buffer
(funcall isearch-next-buffer-function (current-buffer) t))) (funcall isearch-next-buffer-function (current-buffer) t)))
(goto-char (if isearch-forward (point-min) (point-max)))) (goto-char (if isearch-forward (point-min) (point-max))))
@ -435,7 +435,7 @@ With no argument, this command toggles
`reftex-isearch-minor-mode' on if ARG is positive, otherwise turn it off." `reftex-isearch-minor-mode' on if ARG is positive, otherwise turn it off."
(interactive "P") (interactive "P")
(let ((old-reftex-isearch-minor-mode reftex-isearch-minor-mode)) (let ((old-reftex-isearch-minor-mode reftex-isearch-minor-mode))
(setq reftex-isearch-minor-mode (setq reftex-isearch-minor-mode
(not (or (and (null arg) reftex-isearch-minor-mode) (not (or (and (null arg) reftex-isearch-minor-mode)
(<= (prefix-numeric-value arg) 0)))) (<= (prefix-numeric-value arg) 0))))
(unless (eq reftex-isearch-minor-mode old-reftex-isearch-minor-mode) (unless (eq reftex-isearch-minor-mode old-reftex-isearch-minor-mode)
@ -471,7 +471,7 @@ With no argument, this command toggles
;; Force modeline redisplay. ;; Force modeline redisplay.
(set-buffer-modified-p (buffer-modified-p)))) (set-buffer-modified-p (buffer-modified-p))))
(add-minor-mode 'reftex-isearch-minor-mode "/I" nil nil (add-minor-mode 'reftex-isearch-minor-mode "/I" nil nil
'reftex-isearch-minor-mode) 'reftex-isearch-minor-mode)
;;; reftex-global.el ends here ;;; reftex-global.el ends here

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

@ -81,7 +81,7 @@ that Ediff doesn't know about.")
;; so that `kill-all-local-variables' (called by major-mode setting ;; so that `kill-all-local-variables' (called by major-mode setting
;; commands) won't destroy Ediff control variables. ;; commands) won't destroy Ediff control variables.
;; ;;
;; Plagiarised from `emerge-defvar-local' for XEmacs. ;; Plagiarized from `emerge-defvar-local' for XEmacs.
(defmacro ediff-defvar-local (var value doc) (defmacro ediff-defvar-local (var value doc)
"Defines VAR as a local variable." "Defines VAR as a local variable."
(declare (indent defun)) (declare (indent defun))

4
msdos/README
View file

@ -60,7 +60,7 @@ This document is Copyright (C) DJ Delorie and may be distributed
verbatim, but changing it is not allowed. verbatim, but changing it is not allowed.
Source code copyright DJ Delorie is distributed under the terms of the Source code copyright DJ Delorie is distributed under the terms of the
GNU General Public Licence, with the following exceptions: GNU General Public License, with the following exceptions:
* Sources used to build crt0.o, gcrt0.o, libc.a, libdbg.a, and * Sources used to build crt0.o, gcrt0.o, libc.a, libdbg.a, and
libemu.a are distributed under the terms of the GNU Library General libemu.a are distributed under the terms of the GNU Library General
@ -68,7 +68,7 @@ GNU General Public Licence, with the following exceptions:
* Any existing copyright or authorship information in any given source * Any existing copyright or authorship information in any given source
file must remain intact. If you modify a source file, a notice to that file must remain intact. If you modify a source file, a notice to that
effect must be added to the authorship information in the source file. effect must be added to the authorship information in the source file.
* Runtime binaries, as provided by DJ in DJGPP, may be distributed * Runtime binaries, as provided by DJ in DJGPP, may be distributed
without sources ONLY if the recipient is given sufficient information without sources ONLY if the recipient is given sufficient information

2
oldXMenu/XMenu.h
View file

@ -185,7 +185,7 @@ typedef struct _xmenu {
Window parent; /* Menu's parent window. */ Window parent; /* Menu's parent window. */
int width; /* Overall menu width. */ int width; /* Overall menu width. */
int height; /* Overall menu height. */ int height; /* Overall menu height. */
int x_pos; /* Oveall menu origin. */ int x_pos; /* Overall menu origin. */
int y_pos; /* Overall menu origin. */ int y_pos; /* Overall menu origin. */
Cursor mouse_cursor; /* Mouse cursor raster. */ Cursor mouse_cursor; /* Mouse cursor raster. */
XAssocTable *assoc_tab; /* XMWindow association table. */ XAssocTable *assoc_tab; /* XMWindow association table. */

2
src/ccl.c
View file

@ -1762,7 +1762,7 @@ ccl_driver (struct ccl_program *ccl, int *source, int *destination, int src_size
case CCL_STAT_QUIT: case CCL_STAT_QUIT:
if (! ccl->quit_silently) if (! ccl->quit_silently)
sprintf (msg, "\nCCL: Quited."); sprintf (msg, "\nCCL: Quitted.");
break; break;
default: default:

2
src/font.c
View file

@ -802,7 +802,7 @@ font_expand_wildcards (Lisp_Object *field, int n)
struct { struct {
/* Minimum possible field. */ /* Minimum possible field. */
int from; int from;
/* Maxinum possible field. */ /* Maximum possible field. */
int to; int to;
/* Bit mask of possible field. Nth bit corresponds to Nth field. */ /* Bit mask of possible field. Nth bit corresponds to Nth field. */
int mask; int mask;

2
src/fontset.c
View file

@ -1788,7 +1788,7 @@ update_auto_fontset_alist (Lisp_Object font_object, Lisp_Object fontset)
/* Return a cons (FONT-OBJECT . GLYPH-CODE). /* Return a cons (FONT-OBJECT . GLYPH-CODE).
FONT-OBJECT is the font for the character at POSITION in the current FONT-OBJECT is the font for the character at POSITION in the current
buffer. This is computed from all the text properties and overlays buffer. This is computed from all the text properties and overlays
that apply to POSITION. POSTION may be nil, in which case, that apply to POSITION. POSITION may be nil, in which case,
FONT-SPEC is the font for displaying the character CH with the FONT-SPEC is the font for displaying the character CH with the
default face. default face.

2
src/keyboard.c
View file

@ -8782,7 +8782,7 @@ typedef struct keyremap
/* Positions [START, END) in the key sequence buffer /* Positions [START, END) in the key sequence buffer
are the key that we have scanned so far. are the key that we have scanned so far.
Those events are the ones that we will replace Those events are the ones that we will replace
if PAREHT maps them into a key sequence. */ if PARENT maps them into a key sequence. */
int start, end; int start, end;
} keyremap; } keyremap;

4
src/nsfns.m
View file

@ -1267,7 +1267,7 @@ This function is an internal primitive--use `make-frame' instead. */)
#endif #endif
init_frame_faces (f); init_frame_faces (f);
/* The resources controlling the menu-bar and tool-bar are /* The resources controlling the menu-bar and tool-bar are
processed specially at startup, and reflected in the mode processed specially at startup, and reflected in the mode
variables; ignore them here. */ variables; ignore them here. */
@ -1656,7 +1656,7 @@ If omitted or nil, the selected frame's display is used. */)
DEFUN ("x-display-backing-store", Fx_display_backing_store, DEFUN ("x-display-backing-store", Fx_display_backing_store,
Sx_display_backing_store, 0, 1, 0, Sx_display_backing_store, 0, 1, 0,
doc: /* Return whether the Nexstep display DISPLAY supports backing store. doc: /* Return whether the Nextstep display DISPLAY supports backing store.
The value may be `buffered', `retained', or `non-retained'. The value may be `buffered', `retained', or `non-retained'.
DISPLAY should be a frame, the display name as a string, or a terminal ID. DISPLAY should be a frame, the display name as a string, or a terminal ID.
If omitted or nil, the selected frame's display is used. */) If omitted or nil, the selected frame's display is used. */)

2
src/w32term.c
View file

@ -3287,7 +3287,7 @@ w32_mouse_position (FRAME_PTR *fp, int insist, Lisp_Object *bar_window,
/* Handle mouse button event on the tool-bar of frame F, at /* Handle mouse button event on the tool-bar of frame F, at
frame-relative coordinates X/Y. EVENT_TYPE is either ButtionPress frame-relative coordinates X/Y. EVENT_TYPE is either ButtionPress
or ButtonRelase. */ or ButtonRelease. */
static void static void
w32_handle_tool_bar_click (struct frame *f, struct input_event *button_event) w32_handle_tool_bar_click (struct frame *f, struct input_event *button_event)

2
src/xdisp.c
View file

@ -22049,7 +22049,7 @@ get_glyph_face_and_encoding (struct frame *f, struct glyph *glyph,
/* Get glyph code of character C in FONT in the two-byte form CHAR2B. /* Get glyph code of character C in FONT in the two-byte form CHAR2B.
Retunr 1 if FONT has a glyph for C, otherwise return 0. */ Return 1 if FONT has a glyph for C, otherwise return 0. */
static inline int static inline int
get_char_glyph_code (int c, struct font *font, XChar2b *char2b) get_char_glyph_code (int c, struct font *font, XChar2b *char2b)

2
src/xfns.c
View file

@ -3691,7 +3691,7 @@ If omitted or nil, that stands for the selected frame's display. */)
DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0, DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0,
doc: /* Return the "vendor ID" string of the X server of display TERMINAL. doc: /* Return the "vendor ID" string of the X server of display TERMINAL.
\(Labelling every distributor as a "vendor" embodies the false assumption \(Labeling every distributor as a "vendor" embodies the false assumption
that operating systems cannot be developed and distributed noncommercially.) that operating systems cannot be developed and distributed noncommercially.)
The optional argument TERMINAL specifies which display to ask about. The optional argument TERMINAL specifies which display to ask about.
TERMINAL should be a terminal object, a frame or a display name (a string). TERMINAL should be a terminal object, a frame or a display name (a string).