Spelling fixes.
This commit is contained in:
Paul Eggert
parent
56632ce4cd
commit
09e80d9fb9
60 changed files with 116 additions and 123 deletions
|
|
@ -734,7 +734,7 @@ builtintype
|
|||
|
||||
;; Klaus Berndl: This parses also nonsense like "const volatile int
|
||||
;; 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
|
||||
;; of declmods (minus the CVDECLMOD) typeformbase and cv-declmods so
|
||||
;; we could recognize more invalid code but IMHO this is not worth the
|
||||
|
|
|
|||
|
|
@ -1711,7 +1711,7 @@
|
|||
(Table of Resources): Document fontBackend resource.
|
||||
|
||||
* 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.
|
||||
|
||||
2009-05-07 Chong Yidong <cyd@stupidchicken.com>
|
||||
|
|
|
|||
|
|
@ -82,7 +82,7 @@ under it. It looks like this, in part:
|
|||
@group
|
||||
/- Emacs group: Customization of the One True Editor. -------------\
|
||||
[State]: visible group members are all at standard values.
|
||||
|
||||
|
||||
See also [Manual].
|
||||
|
||||
[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},
|
||||
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
|
||||
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
|
||||
face. You can edit these values in the @samp{*New Custom Theme*}
|
||||
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
|
||||
to set the major mode and then to enable minor modes which are
|
||||
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
|
||||
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
|
||||
standard key bindings in Emacs do not include any characters with
|
||||
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.
|
||||
|
||||
Even if your keyboard lacks these additional modifier keys, you can
|
||||
|
|
|
|||
|
|
@ -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 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.
|
||||
We call this key @dfn{the usual erasure key}. In Emacs, it is
|
||||
supposed to be equivalent to @key{DEL}.
|
||||
|
|
|
|||
|
|
@ -357,7 +357,7 @@ every node in every chapter.
|
|||
* Conclusion:: Now you have the basics.
|
||||
* the-the:: An appendix: how to find reduplicated words.
|
||||
* 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::
|
||||
* GNU Free Documentation License::
|
||||
* Index::
|
||||
|
|
@ -793,9 +793,9 @@ The @code{current-kill} Function
|
|||
* Digression concerning error:: How to mislead humans, but not computers.
|
||||
* 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-Y-axis:: Print a label for the vertical axis.
|
||||
* 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, ,
|
||||
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.
|
||||
(On many modern keyboards the @key{META} key is labelled
|
||||
(On many modern keyboards the @key{META} key is labeled
|
||||
@key{ALT}.)
|
||||
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
|
||||
|
|
@ -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
|
||||
@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
|
||||
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.
|
||||
|
||||
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
|
||||
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
|
||||
@key{RET}}. (On some keyboards, the @key{META} key is labelled
|
||||
@key{RET}}. (On some keyboards, the @key{META} key is labeled
|
||||
@key{ALT}.)
|
||||
|
||||
@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
|
||||
the horizontal and vertical axes. Since the label printing functions
|
||||
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
|
||||
@section Exercise
|
||||
|
|
@ -19447,7 +19447,7 @@ whether the kill ring is full or empty. This is an act of
|
|||
exploration.
|
||||
|
||||
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
|
||||
that a human who is acting virtuously, by exploring his or her
|
||||
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.
|
||||
|
||||
@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
|
||||
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
|
||||
for printing and labelling vertical and horizontal axes, along with the
|
||||
for printing and labeling vertical and horizontal axes, along with the
|
||||
body itself.
|
||||
|
||||
@menu
|
||||
* Labelled Example::
|
||||
* Labeled Example::
|
||||
* print-graph Varlist:: @code{let} expression in @code{print-graph}.
|
||||
* print-Y-axis:: Print a label for the vertical axis.
|
||||
* print-X-axis:: Print a horizontal label.
|
||||
* Print Whole Graph:: The function to print a complete graph.
|
||||
@end menu
|
||||
|
||||
@node Labelled Example, print-graph Varlist, Full Graph, Full Graph
|
||||
@node Labeled Example, print-graph Varlist, Full Graph, Full Graph
|
||||
@ifnottex
|
||||
@unnumberedsec Labelled Example Graph
|
||||
@unnumberedsec Labeled Example Graph
|
||||
@end ifnottex
|
||||
|
||||
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
|
||||
|
||||
@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
|
||||
and would be better labelled with months, like this:
|
||||
and would be better labeled with months, like this:
|
||||
|
||||
@smallexample
|
||||
@group
|
||||
|
|
@ -19838,9 +19838,9 @@ and would be better labelled with months, like this:
|
|||
@end smallexample
|
||||
|
||||
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
|
||||
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.
|
||||
|
||||
@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
|
||||
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
|
||||
@appendixsec The @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
|
||||
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
|
||||
graph without changing the ways the graph is labelled.
|
||||
graph without changing the ways the graph is labeled.
|
||||
|
||||
@menu
|
||||
* 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.
|
||||
|
||||
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.
|
||||
|
||||
@need 1250
|
||||
|
|
@ -20857,7 +20857,7 @@ Finally, the code for the @code{print-graph} function:
|
|||
;;; @r{Final version.}
|
||||
(defun print-graph
|
||||
(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.
|
||||
@end group
|
||||
|
||||
|
|
@ -21478,7 +21478,7 @@ each column."
|
|||
@group
|
||||
(defun print-graph
|
||||
(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.
|
||||
@end group
|
||||
|
||||
|
|
@ -21979,7 +21979,7 @@ each column."
|
|||
@group
|
||||
(defun print-graph
|
||||
(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.
|
||||
@end group
|
||||
|
||||
|
|
@ -22275,4 +22275,3 @@ airplane.
|
|||
@c @end iftex
|
||||
|
||||
@bye
|
||||
|
||||
|
|
|
|||
|
|
@ -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
|
||||
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
|
||||
ever be developed and distributed noncommercially.
|
||||
@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
|
||||
width and height of an X Window frame, measured in pixels.
|
||||
@end ignore
|
||||
|
||||
|
|
|
|||
|
|
@ -748,7 +748,7 @@ explanation function.
|
|||
|
||||
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
|
||||
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''.
|
||||
|
||||
If you want to write code that works with ERT tests, you should take a
|
||||
|
|
|
|||
|
|
@ -908,7 +908,7 @@ Derek Upham: changed nxml-mode.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
|
||||
sound.c w32proc.c
|
||||
|
|
|
|||
|
|
@ -963,7 +963,7 @@ a slash is appended to it.
|
|||
* Undo can clear modified-flag.
|
||||
|
||||
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".
|
||||
|
||||
* M-x run-lisp.
|
||||
|
|
|
|||
|
|
@ -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
|
||||
$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
|
||||
|
||||
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
|
||||
$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
|
||||
$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:
|
||||
;;; coding: iso-2022-jp
|
||||
;;; End:
|
||||
|
||||
|
|
|
|||
|
|
@ -170,7 +170,7 @@ incorrectly, as separate from the modified glyphs.")
|
|||
("a~" "ã") ;; Low central unrounded vowel, nasal U+00E3
|
||||
("o~" "õ") ;; Upper-mid back rounded vowel, nasal U+00F5
|
||||
("u~" "ũ") ;; High back rounded vowel, nasal U+0169
|
||||
("~" "̃") ;; +Nasalised modifier U+0303
|
||||
("~" "̃") ;; +Nasalized modifier U+0303
|
||||
(":" "ː") ;; +Long modifier U+02D0
|
||||
("-" "̩") ;; +Syllabic modifier U+0329
|
||||
("." "̣") ;; +Retroflex modifier U+0323
|
||||
|
|
|
|||
|
|
@ -9383,7 +9383,7 @@
|
|||
|
||||
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.
|
||||
|
||||
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
|
||||
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
|
|
|
|||
|
|
@ -4923,10 +4923,10 @@
|
|||
(fortran-blink-matching-if, fortran-blink-matching-do)
|
||||
(fortran-indent-new-line): Bind case-fold-search.
|
||||
(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.
|
||||
(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.
|
||||
(fortran-is-in-string-p): Ignore Emacs 18 bug kluge.
|
||||
(fortran-fill): Allow double quotes in check for string.
|
||||
|
|
@ -21766,9 +21766,9 @@
|
|||
|
||||
* f90.el (f90-no-block-limit): Fixed bug for indentation of
|
||||
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.
|
||||
(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.
|
||||
(f90-fill-region): Moved indentation to f90-break-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
|
||||
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
|
|
|
|||
|
|
@ -14191,7 +14191,7 @@
|
|||
|
||||
* international/ja-dic-cnv.el: Renamed from skkdic-cnv.el.
|
||||
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.
|
||||
(skkdic-convert-postfix): Search Japanese chou-on character in
|
||||
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
|
||||
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
|
|
|
|||
|
|
@ -1632,7 +1632,7 @@ We return the item-widget corresponding to the item at point."
|
|||
(defun allout-redecorate-item (item-widget)
|
||||
"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
|
||||
unchanged from its last decoration. Use
|
||||
`allout-decorate-item-and-context' instead to reassess and adjust
|
||||
|
|
|
|||
|
|
@ -5473,7 +5473,7 @@ header and body. The elements of that list are:
|
|||
"invalid format" format))))
|
||||
(list depth prefix strings))
|
||||
result))
|
||||
;; Reasses format, if any:
|
||||
;; Reassess format, if any:
|
||||
(if (and format (listp format))
|
||||
(cond ((= new-depth depth)
|
||||
(setq format (cons (1+ (car format))
|
||||
|
|
|
|||
|
|
@ -71,7 +71,7 @@
|
|||
(end-of-line)
|
||||
(= (preceding-char) ?\\)))
|
||||
|
||||
;;; Programatic editing of a Makefile
|
||||
;;; Programmatic editing of a Makefile
|
||||
;;
|
||||
(defun makefile-move-to-macro (macro &optional next)
|
||||
"Move to the definition of MACRO. Return t if found.
|
||||
|
|
|
|||
|
|
@ -50,7 +50,7 @@ All listed sources are included in the distribution.")
|
|||
|
||||
(defvar ede-misc-source
|
||||
(ede-sourcecode "ede-misc-source"
|
||||
:name "Miscelaneous"
|
||||
:name "Miscellaneous"
|
||||
:sourcepattern ".*")
|
||||
"Miscellaneous field definition.")
|
||||
|
||||
|
|
|
|||
|
|
@ -240,7 +240,7 @@ list of semantic tokens found."
|
|||
matchlist nil) ;;generate exit condition
|
||||
(if (not end)
|
||||
(setq out nil)))
|
||||
;; Nothin?
|
||||
;; Nothing?
|
||||
))
|
||||
(setq result
|
||||
(if (eq s starting-stream)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
;; exceptions about.
|
||||
: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)
|
||||
;; A function post-const is funky. Try stuff
|
||||
:methodconst-flag (if (member "const" (nth 6 tokenpart)) t)
|
||||
|
|
|
|||
|
|
@ -862,7 +862,7 @@ instead."
|
|||
(let ((tab (car (car tmp)))
|
||||
(tags (cdr (car tmp))))
|
||||
(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.
|
||||
(let* ((norm (semanticdb-normalize-one-tag tab T))
|
||||
(ntab (car norm))
|
||||
|
|
|
|||
|
|
@ -96,7 +96,7 @@ This option is ignored if `semantic-imenu-bucketize-file' is nil."
|
|||
(defcustom semantic-imenu-bucketize-type-members t
|
||||
"*Non-nil if members of a type should be grouped into buckets.
|
||||
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
|
||||
:type 'boolean)
|
||||
(make-variable-buffer-local 'semantic-imenu-bucketize-type-members)
|
||||
|
|
|
|||
|
|
@ -255,7 +255,7 @@ ST can be a class, or an object."
|
|||
(let ((c (oref st code)))
|
||||
(srecode-push st)
|
||||
(srecode-insert-code-stream c dictionary))
|
||||
;; Poping the stack is protected
|
||||
;; Popping the stack is protected.
|
||||
(srecode-pop st)))
|
||||
|
||||
(defun srecode-insert-code-stream (code dictionary)
|
||||
|
|
|
|||
|
|
@ -483,7 +483,7 @@ section or ? for an ask variable."
|
|||
|
||||
(if (> start (point))
|
||||
;; 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
|
||||
;; We are inside the macro, extract the text so far.
|
||||
(let* ((macroend (match-beginning 0))
|
||||
|
|
|
|||
|
|
@ -527,7 +527,7 @@
|
|||
;; However, don't actually bother calling `ignore'.
|
||||
`(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)
|
||||
|
||||
((byte-code-function-p fn)
|
||||
|
|
|
|||
|
|
@ -759,7 +759,7 @@ Possible return values:
|
|||
(indirect-function 'smie-op-left)
|
||||
halfsexp))
|
||||
|
||||
;;; Miscellanous commands using the precedence parser.
|
||||
;;; Miscellaneous commands using the precedence parser.
|
||||
|
||||
(defun smie-backward-sexp-command (&optional n)
|
||||
"Move backward through N logical elements."
|
||||
|
|
|
|||
|
|
@ -321,7 +321,7 @@ This mode is usually not used directly; instead, other major
|
|||
modes are derived from it, using `define-derived-mode'.
|
||||
|
||||
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
|
||||
to their column values.
|
||||
|
||||
|
|
|
|||
|
|
@ -88,7 +88,7 @@ strings."
|
|||
(defun erc-notify-install-message-catalogs ()
|
||||
(erc-define-catalog
|
||||
'english
|
||||
'((notify_current . "Notificated people online: %l")
|
||||
'((notify_current . "Notified people online: %l")
|
||||
(notify_list . "Current notify list: %l")
|
||||
(notify_on . "Detected %n on 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
|
||||
;; tab-width: 8
|
||||
;; End:
|
||||
|
||||
|
|
|
|||
|
|
@ -1446,7 +1446,7 @@ like an INI file. You can add this hook to `find-file-hook'."
|
|||
"REGDB_STRING"
|
||||
"REGDB_UNINSTALL_NAME"
|
||||
"REMOTE_DRIVE"
|
||||
"REMOVALE_DRIVE"
|
||||
"REMOVEABLE_DRIVE"
|
||||
"REPLACE_ITEM"
|
||||
"REPLACE"
|
||||
"RESET"
|
||||
|
|
|
|||
|
|
@ -430,7 +430,7 @@ inheritance."
|
|||
regexp list-topic topic-level)
|
||||
"List all newsgroups with unread articles of level LEVEL or lower.
|
||||
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 LOWEST is non-nil, list all newsgroups of level LOWEST or higher."
|
||||
(set-buffer gnus-group-buffer)
|
||||
|
|
|
|||
|
|
@ -638,7 +638,7 @@ These properties are determined by the Image mode variables
|
|||
`image-transform-resize' and `image-transform-rotation'. The
|
||||
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."
|
||||
(when (or image-transform-resize
|
||||
(not (equal image-transform-rotation 0.0)))
|
||||
|
|
|
|||
|
|
@ -958,7 +958,7 @@ the current buffer."
|
|||
(insert "\n ---<fallback to the default of the default fontset>---")
|
||||
(put-text-property (line-beginning-position) (point) 'face 'highlight)))
|
||||
(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,
|
||||
;; default of FONTSET, default of the default fontset.
|
||||
(transpose-regions start1 end1 start2 end2))
|
||||
|
|
|
|||
|
|
@ -146,8 +146,8 @@ These languages are supported with the Latin-3 (ISO-8859-3) character set:
|
|||
(input-method . "latin-4-postfix")
|
||||
(documentation . "\
|
||||
These languages are supported with the Latin-4 (ISO-8859-4) character set:
|
||||
Danish, English, Estonian, Finnish, German, Greenlandic, Lappish,
|
||||
Latvian, Lithuanian, and Norwegian."))
|
||||
Danish, English, Estonian, Finnish, German, Greenlandic, Latvian,
|
||||
Lithuanian, Norwegian, and Sami."))
|
||||
'("European"))
|
||||
|
||||
|
||||
|
|
@ -226,7 +226,7 @@ See also the Turkish environment."))
|
|||
"ISO 2022 based 8-bit encoding for Latin-8 (MIME:ISO-8859-14)."
|
||||
:coding-type 'charset
|
||||
;; `W' for `Welsh', since `C' for `Celtic' is taken.
|
||||
:mnemonic ?W
|
||||
:mnemonic ?W
|
||||
:charset-list '(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
|
||||
"Mac Roman Encoding (MIME:MACINTOSH)."
|
||||
:coding-type 'charset
|
||||
:mnemonic ?M
|
||||
:mnemonic ?M
|
||||
:charset-list '(mac-roman)
|
||||
:mime-charset 'macintosh)
|
||||
|
||||
|
|
|
|||
|
|
@ -35,7 +35,7 @@
|
|||
(unibyte-display . iso-8859-2)
|
||||
(tutorial . "TUTORIAL.ro")
|
||||
(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."))
|
||||
'("European"))
|
||||
|
||||
|
|
|
|||
|
|
@ -27789,7 +27789,7 @@ This mode is usually not used directly; instead, other major
|
|||
modes are derived from it, using `define-derived-mode'.
|
||||
|
||||
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
|
||||
to their column values.
|
||||
|
||||
|
|
|
|||
|
|
@ -1961,7 +1961,7 @@ place. It affects how `mail-extract-address-components' works."
|
|||
("gw" "Guinea-Bissau")
|
||||
("gy" "Guyana")
|
||||
("hk" "Hong Kong")
|
||||
("hm" "Heard Island and Mcdonald Islands")
|
||||
("hm" "Heard Island and McDonald Islands")
|
||||
("hn" "Honduras")
|
||||
("hr" "Croatia" "Croatia (Hrvatska)")
|
||||
("ht" "Haiti")
|
||||
|
|
|
|||
|
|
@ -504,7 +504,7 @@ See also `mh-compose-forward-as-mime-flag',
|
|||
folder msg)
|
||||
;; Was inserted before us, move to end of file to preserve order
|
||||
(goto-char (point-max)))))))
|
||||
;; Postition just before forwarded message
|
||||
;; Position just before forwarded message.
|
||||
(if (re-search-forward "^------- Forwarded Message" nil t)
|
||||
(forward-line -1)
|
||||
(goto-char (mh-mail-header-end))
|
||||
|
|
|
|||
|
|
@ -2478,7 +2478,7 @@ of citations entirely, choose \"None\"."
|
|||
"Original-NNTP-" ; mail to news
|
||||
"Original-Path:" ; mail to news
|
||||
"Original-Received:" ; mail to news
|
||||
"Original-Recipt:" ; RFC 2298
|
||||
"Original-Recipient:" ; RFC 2298
|
||||
"Original-To:" ; mail to news
|
||||
"Original-X-" ; mail to news
|
||||
"Origination-Client:" ; http://people.dsv.su.se/~jpalme/ietf/mail-headers/
|
||||
|
|
|
|||
|
|
@ -389,7 +389,7 @@ Defaults to the value of `browse-url-epiphany-arguments' at the time
|
|||
:type '(repeat (string :tag "Argument"))
|
||||
: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")
|
||||
|
||||
(defcustom browse-url-gnome-moz-arguments '()
|
||||
|
|
|
|||
|
|
@ -431,7 +431,7 @@ returned, and it will be stored in `secrets-session-path'."
|
|||
(secrets-get-collections)))
|
||||
|
||||
(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 there is no such COLLECTION, return nil."
|
||||
(or
|
||||
|
|
@ -454,7 +454,7 @@ If there is no such COLLECTION, return nil."
|
|||
(throw 'collection-found collection-path))))))
|
||||
|
||||
(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."
|
||||
(let ((collection-path (secrets-collection-path collection)))
|
||||
;; Create the collection.
|
||||
|
|
@ -480,7 +480,7 @@ For the time being, only the alias \"default\" is supported."
|
|||
"Label"))
|
||||
|
||||
(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."
|
||||
(let ((collection-path (secrets-collection-path collection)))
|
||||
(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))
|
||||
|
||||
(defun secrets-unlock-collection (collection)
|
||||
"Unlock collection labelled COLLECTION.
|
||||
"Unlock collection labeled COLLECTION.
|
||||
If successful, return the object path of the collection."
|
||||
(let ((collection-path (secrets-collection-path collection)))
|
||||
(unless (secrets-empty-path collection-path)
|
||||
|
|
@ -509,7 +509,7 @@ If successful, return the object path of the collection."
|
|||
collection-path))
|
||||
|
||||
(defun secrets-delete-collection (collection)
|
||||
"Delete collection labelled COLLECTION."
|
||||
"Delete collection labeled COLLECTION."
|
||||
(let ((collection-path (secrets-collection-path collection)))
|
||||
(unless (secrets-empty-path collection-path)
|
||||
(secrets-prompt
|
||||
|
|
@ -636,7 +636,7 @@ The object path of the created item is returned."
|
|||
(car result)))))
|
||||
|
||||
(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."
|
||||
(let ((collection-path (secrets-unlock-collection collection)))
|
||||
(catch 'item-found
|
||||
|
|
@ -645,7 +645,7 @@ If there is no such item, return nil."
|
|||
(throw 'item-found item-path))))))
|
||||
|
||||
(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."
|
||||
(let ((item-path (secrets-item-path collection item)))
|
||||
(unless (secrets-empty-path item-path)
|
||||
|
|
@ -656,7 +656,7 @@ If there is no such item, return nil."
|
|||
"GetSecret" :object-path secrets-session-path))))))
|
||||
|
||||
(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."
|
||||
(unless (stringp collection) (setq collection "default"))
|
||||
(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")))))
|
||||
|
||||
(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."
|
||||
(cdr (assoc attribute (secrets-get-attributes collection item))))
|
||||
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
substatement -- The first line after an if/while/for/do/else.
|
||||
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.
|
||||
access-label -- C++ private/protected/public access label.
|
||||
label -- Any ordinary label.
|
||||
|
|
@ -1625,7 +1625,7 @@ names)."))
|
|||
(defvar c-macro-with-semi-re nil
|
||||
;; Regular expression which matches a (#define'd) symbol whose expansion
|
||||
;; ends with a semicolon.
|
||||
;;
|
||||
;;
|
||||
;; This variable should be set by `c-make-macros-with-semi-re' rather than
|
||||
;; directly.
|
||||
)
|
||||
|
|
@ -1651,7 +1651,7 @@ names)."))
|
|||
(t (error "c-make-macro-with-semi-re: invalid \
|
||||
c-macro-names-with-semicolon: %s"
|
||||
c-macro-names-with-semicolon))))))
|
||||
|
||||
|
||||
(defvar c-macro-names-with-semicolon
|
||||
'("Q_OBJECT" "Q_PROPERTY" "Q_DECLARE" "Q_ENUMS")
|
||||
"List of #defined symbols whose expansion ends with a semicolon.
|
||||
|
|
|
|||
|
|
@ -5037,7 +5037,7 @@ killed after process termination."
|
|||
(when gen-func
|
||||
(setq error-msg "EMPTY RULES"
|
||||
tree (ebnf-eliminate-empty-rules tree))
|
||||
(setq error-msg "OPTMIZE"
|
||||
(setq error-msg "OPTIMIZE"
|
||||
tree (ebnf-optimize tree))
|
||||
(setq error-msg "DIMENSIONS"
|
||||
tree (ebnf-dimensions tree))
|
||||
|
|
|
|||
|
|
@ -1462,7 +1462,7 @@ Return point or nil."
|
|||
|
||||
(defun fortran-beginning-do ()
|
||||
"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)
|
||||
(dostart-re "\\(\\(\\sw\\|\\s_\\)+:[ \t]*\\)?do[ \t]+[^0-9]"))
|
||||
(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")
|
||||
(cond ((looking-at dostart-re)
|
||||
(setq count (1- count)))
|
||||
;; Note labelled loop ends not considered.
|
||||
;; Note labeled loop ends not considered.
|
||||
((looking-at "end[ \t]*do\\b")
|
||||
(setq count (1+ count)))))
|
||||
(and (zerop count)
|
||||
|
|
|
|||
|
|
@ -3117,7 +3117,7 @@ STRING are replaced by `-' and substrings are converted to lower case."
|
|||
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;;; Menues
|
||||
;;; Menus
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
|
|
|||
|
|
@ -2100,7 +2100,7 @@ cell of the form ( 'DIRLIST . 'FILELIST )."
|
|||
(if (= index 0)
|
||||
;; If the shown files variable has extra directories, then
|
||||
;; 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
|
||||
(let ((sf (cdr (reverse speedbar-shown-directories))))
|
||||
(setq speedbar-shown-directories
|
||||
|
|
|
|||
|
|
@ -1132,7 +1132,7 @@ the `--debug-init' option to view a complete error backtrace."
|
|||
(eq orig-enable-multibyte (default-value
|
||||
'enable-multibyte-characters)))
|
||||
;; 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
|
||||
;; multibyte characters.
|
||||
(mapc (lambda (buffer)
|
||||
|
|
|
|||
|
|
@ -2437,7 +2437,7 @@ in the coord."
|
|||
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.
|
||||
;;
|
||||
(defun artist-save-chars-under-point-list (point-list)
|
||||
|
|
|
|||
|
|
@ -3941,7 +3941,7 @@ If `bibtex-files' is non-nil, search all these files.
|
|||
Otherwise the search is limited to the current buffer.
|
||||
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
|
||||
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
|
||||
to position of point. If optional arg SPLIT is non-nil, split window
|
||||
so that both the referencing and the crossrefed entry are displayed.
|
||||
|
|
|
|||
|
|
@ -139,7 +139,7 @@ No active TAGS table is required."
|
|||
(set (make-local-variable 'TeX-master) master)
|
||||
(erase-buffer)
|
||||
(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"
|
||||
" and its references. Type `q' to exit this buffer.\n\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
|
||||
one with the `xr' package."
|
||||
(interactive)
|
||||
;; Resan the entire document
|
||||
;; Rescan the entire document
|
||||
(reftex-access-scan-info 1)
|
||||
;; Get some insurance
|
||||
(if (and (reftex-is-multi)
|
||||
(not (yes-or-no-p "Replacing all simple labels in multiple files is risky. Continue? ")))
|
||||
(error "Abort"))
|
||||
;; Make the translation list
|
||||
(let* ((re-core (concat "\\("
|
||||
(mapconcat 'cdr reftex-typekey-to-prefix-alist "\\|")
|
||||
(let* ((re-core (concat "\\("
|
||||
(mapconcat 'cdr reftex-typekey-to-prefix-alist "\\|")
|
||||
"\\)"))
|
||||
(label-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)
|
||||
|
||||
;; First test to check for erros
|
||||
(setq n (reftex-translate
|
||||
(setq n (reftex-translate
|
||||
files search-re translate-alist error-fmt 'test))
|
||||
|
||||
;; Now the real thing.
|
||||
(if (yes-or-no-p
|
||||
(if (yes-or-no-p
|
||||
(format "Replace %d items at %d places in %d files? "
|
||||
(length translate-alist) n (length files)))
|
||||
(progn
|
||||
|
|
@ -253,9 +253,9 @@ one with the `xr' package."
|
|||
|
||||
(defun reftex-translate (files search-re translate-alist error-fmt test)
|
||||
;; 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
|
||||
;; to ignore the problematic string.
|
||||
;; to ignore the problematic string.
|
||||
;; If TEST is nil, it is ignored without query.
|
||||
;; Return the number of replacements.
|
||||
(let ((n 0) file label match-data buf macro pos cell)
|
||||
|
|
@ -281,7 +281,7 @@ one with the `xr' package."
|
|||
(or (looking-at "\\\\ref")
|
||||
(looking-at "\\\\[a-zA-Z]*ref\\(range\\)?[^a-zA-Z]")
|
||||
(looking-at "\\\\ref[a-zA-Z]*[^a-zA-Z]")
|
||||
(looking-at (format
|
||||
(looking-at (format
|
||||
reftex-find-label-regexp-format
|
||||
(regexp-quote label)))))
|
||||
;; 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 ()
|
||||
(if (not isearch-word)
|
||||
(switch-to-buffer
|
||||
(switch-to-buffer
|
||||
(funcall isearch-next-buffer-function (current-buffer) t)))
|
||||
(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."
|
||||
(interactive "P")
|
||||
(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)
|
||||
(<= (prefix-numeric-value arg) 0))))
|
||||
(unless (eq reftex-isearch-minor-mode old-reftex-isearch-minor-mode)
|
||||
|
|
@ -471,7 +471,7 @@ With no argument, this command toggles
|
|||
;; Force modeline redisplay.
|
||||
(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-global.el ends here
|
||||
|
|
|
|||
|
|
@ -81,7 +81,7 @@ that Ediff doesn't know about.")
|
|||
;; so that `kill-all-local-variables' (called by major-mode setting
|
||||
;; 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)
|
||||
"Defines VAR as a local variable."
|
||||
(declare (indent defun))
|
||||
|
|
|
|||
|
|
@ -60,7 +60,7 @@ This document is Copyright (C) DJ Delorie and may be distributed
|
|||
verbatim, but changing it is not allowed.
|
||||
|
||||
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
|
||||
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
|
||||
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
|
||||
without sources ONLY if the recipient is given sufficient information
|
||||
|
|
|
|||
|
|
@ -185,7 +185,7 @@ typedef struct _xmenu {
|
|||
Window parent; /* Menu's parent window. */
|
||||
int width; /* Overall menu width. */
|
||||
int height; /* Overall menu height. */
|
||||
int x_pos; /* Oveall menu origin. */
|
||||
int x_pos; /* Overall menu origin. */
|
||||
int y_pos; /* Overall menu origin. */
|
||||
Cursor mouse_cursor; /* Mouse cursor raster. */
|
||||
XAssocTable *assoc_tab; /* XMWindow association table. */
|
||||
|
|
|
|||
|
|
@ -1762,7 +1762,7 @@ ccl_driver (struct ccl_program *ccl, int *source, int *destination, int src_size
|
|||
|
||||
case CCL_STAT_QUIT:
|
||||
if (! ccl->quit_silently)
|
||||
sprintf (msg, "\nCCL: Quited.");
|
||||
sprintf (msg, "\nCCL: Quitted.");
|
||||
break;
|
||||
|
||||
default:
|
||||
|
|
|
|||
|
|
@ -802,7 +802,7 @@ font_expand_wildcards (Lisp_Object *field, int n)
|
|||
struct {
|
||||
/* Minimum possible field. */
|
||||
int from;
|
||||
/* Maxinum possible field. */
|
||||
/* Maximum possible field. */
|
||||
int to;
|
||||
/* Bit mask of possible field. Nth bit corresponds to Nth field. */
|
||||
int mask;
|
||||
|
|
|
|||
|
|
@ -1788,7 +1788,7 @@ update_auto_fontset_alist (Lisp_Object font_object, Lisp_Object fontset)
|
|||
/* Return a cons (FONT-OBJECT . GLYPH-CODE).
|
||||
FONT-OBJECT is the font for the character at POSITION in the current
|
||||
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
|
||||
default face.
|
||||
|
||||
|
|
|
|||
|
|
@ -8782,7 +8782,7 @@ typedef struct keyremap
|
|||
/* Positions [START, END) in the key sequence buffer
|
||||
are the key that we have scanned so far.
|
||||
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;
|
||||
} keyremap;
|
||||
|
||||
|
|
|
|||
|
|
@ -1267,7 +1267,7 @@ This function is an internal primitive--use `make-frame' instead. */)
|
|||
#endif
|
||||
|
||||
init_frame_faces (f);
|
||||
|
||||
|
||||
/* The resources controlling the menu-bar and tool-bar are
|
||||
processed specially at startup, and reflected in the mode
|
||||
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,
|
||||
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'.
|
||||
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. */)
|
||||
|
|
|
|||
|
|
@ -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
|
||||
frame-relative coordinates X/Y. EVENT_TYPE is either ButtionPress
|
||||
or ButtonRelase. */
|
||||
or ButtonRelease. */
|
||||
|
||||
static void
|
||||
w32_handle_tool_bar_click (struct frame *f, struct input_event *button_event)
|
||||
|
|
|
|||
|
|
@ -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.
|
||||
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
|
||||
get_char_glyph_code (int c, struct font *font, XChar2b *char2b)
|
||||
|
|
|
|||
|
|
@ -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,
|
||||
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.)
|
||||
The optional argument TERMINAL specifies which display to ask about.
|
||||
TERMINAL should be a terminal object, a frame or a display name (a string).
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue