;; 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
(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>
@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.
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
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
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
@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}.
* 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::
* 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.
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
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
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
@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
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
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
@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
@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
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
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.
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
;;; @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
@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
@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
@c @end iftex
@bye
-
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
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
-
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
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
* 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.
>> "foo" \e$B$H$$$&L>$N%U%!%$%k$r:n$j$^$7$g$&!#\e(BC-x C-f foo <Return> \e$B$G$9!#\e(B
\e$B2?$+J8>O$rF~$l!"JT=8$7!"\e(BC-x C-s \e$B$G\e(B "foo" \e$B$r%;!<%V$7$F2<$5$$!#\e(B
- \e$B:G8e$K\e(B C-x C-f TUTORIAL.ja <Retrun> \e$B$H%?%$%W$7\e(B
+ \e$B:G8e$K\e(B C-x C-f TUTORIAL.ja <Return> \e$B$H%?%$%W$7\e(B
\e$BF~Lg%,%$%I$KLa$j$^$7$g$&!#\e(B
Emacs \e$B$O%U%!%$%k$NFbMF$r%P%C%U%!!J\e(Bbuffer\e$B!K$H8F$P$l$k$b$N$NCf$K3JG<$7$F\e(B
>> M-x make-frame <Return> \e$B$H%?%$%W$7$F!"?7$7$$%U%l!<%`$,I=<($5$l$k$N\e(B
\e$B$r3NG'$7$^$7$g$&!#\e(B
-
+
\e$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!#\e(B
\e$B:G=i$N%U%l!<%`$H$=$N8e$K:n$i$l$k%U%l!<%`$G0c$$$O$"$j$^$;$s!#\e(B
;;; Local Variables:
;;; coding: iso-2022-jp
;;; End:
-
("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
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>
You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
-
(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.
* 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.
You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
-
* 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.
You should have received a copy of the GNU General Public License
along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
-
(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
"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))
(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.
(defvar ede-misc-source
(ede-sourcecode "ede-misc-source"
- :name "Miscelaneous"
+ :name "Miscellaneous"
:sourcepattern ".*")
"Miscellaneous field definition.")
matchlist nil) ;;generate exit condition
(if (not end)
(setq out nil)))
- ;; Nothin?
+ ;; Nothing?
))
(setq result
(if (eq s starting-stream)
;; `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)
(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))
(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)
(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)
(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))
;; 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)
(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."
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.
(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"))))
;; indent-tabs-mode: t
;; tab-width: 8
;; End:
-
"REGDB_STRING"
"REGDB_UNINSTALL_NAME"
"REMOTE_DRIVE"
- "REMOVALE_DRIVE"
+ "REMOVEABLE_DRIVE"
"REPLACE_ITEM"
"REPLACE"
"RESET"
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)
`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)))
(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))
(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"))
\f
"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)
(define-coding-system 'mac-roman
"Mac Roman Encoding (MIME:MACINTOSH)."
:coding-type 'charset
- :mnemonic ?M
+ :mnemonic ?M
:charset-list '(mac-roman)
:mime-charset 'macintosh)
(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"))
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.
("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")
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))
"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/
: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 '()
(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
(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.
"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)
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)
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
(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
(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)
"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)))
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))))
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.
(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.
)
(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.
(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))
(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
(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)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;; Menues
+;;; Menus
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(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
(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)
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)
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.
(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")
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]+\\)\\)[,}]"))
(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
(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)
(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.
(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))))
`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)
;; 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
;; 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))
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
* 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
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. */
case CCL_STAT_QUIT:
if (! ccl->quit_silently)
- sprintf (msg, "\nCCL: Quited.");
+ sprintf (msg, "\nCCL: Quitted.");
break;
default:
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;
/* 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.
/* 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;
#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. */
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. */)
/* 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)
/* 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)
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).
HCoop / bpt / emacs.git / commitdiff