procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; Fix typos

Browse source
This commit is contained in:
Stefan Kangas 2023-12-03 23:31:30 +01:00
parent a1f88963f5
commit 5f923ff1a6
60 changed files with 73 additions and 73 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -14630,7 +14630,7 @@ almost the same code as for the recursive version of
@need 800
@noindent
Let's re-use @kbd{C-c =} as a convenient key binding:
Let's reuse @kbd{C-c =} as a convenient key binding:
@smallexample
(global-set-key "\C-c=" 'count-words-defun)

2
doc/lispref/keymaps.texi
View file

@ -491,7 +491,7 @@ useful if there is a command which doesn't exist in the map being
defined, but which should have the @code{repeat-map} property.
If the @code{:exit} list is empty then no commands in the map exit
@code{repeat-mode}. Specifying one ore more commands in this list is
@code{repeat-mode}. Specifying one or more commands in this list is
useful if the keymap being defined contains a command that should not
have the @code{repeat-map} property.
@end table

2
doc/misc/calc.texi
View file

@ -11953,7 +11953,7 @@ trail pointer in various ways.
@cindex Retrieving previous results
The @kbd{t y} (@code{calc-trail-yank}) command reads the selected value in
the trail and pushes it onto the Calculator stack. It allows you to
re-use any previously computed value without retyping. With a numeric
reuse any previously computed value without retyping. With a numeric
prefix argument @var{n}, it yanks the value @var{n} lines above the current
trail pointer.

2
doc/misc/eglot.texi
View file

@ -1210,7 +1210,7 @@ in @ref{Project-specific configuration}. Here is an example:
@end lisp
Note that the global value of @code{eglot-workspace-configuration} is
always overriden if a directory-local value is detected.
always overridden if a directory-local value is detected.
@node JSONRPC objects in Elisp
@section JSONRPC objects in Elisp

4
doc/misc/epa.texi
View file

@ -456,9 +456,9 @@ public key, it does not prompt for a passphrase for the buffer save,
but it will prompt for your passphrase for file reads every now and
then, depending on the GnuPG Agent cache configuration.
@cindex tempory files created by easypg assistant
@cindex temporary files created by easypg assistant
To encrypt and decrypt files as described above EasyPG Assistant under
certain circumstances uses intermediate tempory files that contain the
certain circumstances uses intermediate temporary files that contain the
plain-text contents of the files it processes. EasyPG Assistant
creates them below the directory returned by function
@code{temporary-file-directory} (@pxref{Unique File Names, ,

10
doc/misc/modus-themes.org
View file

@ -4015,7 +4015,7 @@ height of the mode lines, but also remove their border:
#+end_src
The above relies on the ~set-face-attribute~ function, though users who
plan to re-use colors from the theme and do so at scale are better off
plan to reuse colors from the theme and do so at scale are better off
with the more streamlined combination of the ~modus-themes-with-colors~
macro and ~custom-set-faces~.
@ -4023,7 +4023,7 @@ macro and ~custom-set-faces~.
As explained before in this document, this approach has a syntax that is
consistent with the source code of the themes, so it probably is easier
to re-use parts of the design.
to reuse parts of the design.
The following emulates the stock Emacs style, while still using the
colors of the Modus themes (whichever attribute is not explicitly stated
@ -5076,7 +5076,7 @@ advanced customization options of the themes.
[[#h:f4651d55-8c07-46aa-b52b-bed1e53463bb][Advanced customization]].
In the following example, we are assuming that the user wants to (i)
re-use color variables provided by the themes, (ii) be able to retain
reuse color variables provided by the themes, (ii) be able to retain
their tweaks while switching between ~modus-operandi~ and ~modus-vivendi~,
and (iii) have the option to highlight either the foreground of the
parentheses or the background as well.
@ -5096,7 +5096,7 @@ Then we can update our preference with this:
(setq my-highlight-parentheses-use-background nil)
#+end_src
To re-use colors from the themes, we must wrap our code in the
To reuse colors from the themes, we must wrap our code in the
~modus-themes-with-colors~ macro. Our implementation must interface with
the variables ~highlight-parentheses-background-colors~ and/or
~highlight-parentheses-colors~.
@ -5770,7 +5770,7 @@ more effective than trying to do the same with either red or blue (the
latter is the least effective in that regard).
When we need to work with several colors, it is always better to have
sufficient manoeuvring space, especially since we cannot pick arbitrary
sufficient maneuvering space, especially since we cannot pick arbitrary
colors but only those that satisfy the accessibility objectives of the
themes.

2
doc/misc/tramp.texi
View file

@ -3619,7 +3619,7 @@ ssh@value{postfixhop}you@@remotehost@value{postfix}/path @key{RET}}
Each involved method must be an inline method (@pxref{Inline methods}).
@value{tramp} adds the ad-hoc definitions on the fly to
@code{tramp-default-proxies-alist} and is available for re-use during
@code{tramp-default-proxies-alist} and is available for reuse during
that Emacs session. Subsequent @value{tramp} connections to the same
remote host can then use the shortcut form:
@samp{@trampfn{ssh,you@@remotehost,/path}}.

6
doc/misc/widget.texi
View file

@ -1703,7 +1703,7 @@ A variable that holds the history of field minibuffer edits.
@item :prompt-value
A function that uses the @code{:prompt-internal} function and the
@code{:prompt-history} value to prompt for a string, and retun the
@code{:prompt-history} value to prompt for a string, and return the
user response in the external format.
@item :action
@ -1714,7 +1714,7 @@ Function that takes care of creating the widget, respecting its
@code{:size} and @code{:value}.
@item :value-set
Function to use to modify programatically the current value of the
Function to use to modify programmatically the current value of the
widget.
@item :value-delete
@ -2455,7 +2455,7 @@ difference from the @code{const} widget is that they will allow the
user to see the variable or function documentation for the symbol.
This is accomplished via using the @samp{%h} format escape, and adding
an appropiate @code{:documentation-property} function for each widget.
an appropriate @code{:documentation-property} function for each widget.
@deffn Widget variable-item
An immutable symbol that is bound as a variable.

2
etc/ERC-NEWS
View file

@ -1195,7 +1195,7 @@ Only the macros in cl-macs.el are used.
** Make flood protection toggle-able as on/off, removing the 'strict option.
** If possible, re-use channel buffers when reconnecting to a server.
** If possible, reuse channel buffers when reconnecting to a server.
** Text in ERC buffers is now read-only by default.
To get the previous behavior,

2
etc/ORG-NEWS
View file

@ -1098,7 +1098,7 @@ Conversion to SVG exposes a number of additional customizations that
give the user full control over the contents of the latex source
block. ~org-babel-latex-preamble~, ~org-babel-latex-begin-env~ and
~org-babel-latex-end-env~ are new customization options added to allow
the user to specify the preamble and code that preceedes and proceeds
the user to specify the preamble and code that precedes and proceeds
the contents of the source block.
*** New option ~org-html-meta-tags~ allows for HTML meta tags customization

2
etc/PROBLEMS
View file

@ -1994,7 +1994,7 @@ remote X server, try this:
*** Dropping text on xterm doesn't work.
Emacs sends sythetic button events to legacy clients such as xterm
Emacs sends synthetic button events to legacy clients such as xterm
that do not support either the XDND or Motif drag-and-drop protocols
in order to "paste" the text that was dropped. Unfortunately, xterm
is configured to ignore these events by default. Add the following to

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

@ -1046,7 +1046,7 @@ Output must be in semanticdb Find result format."
(and last-prefix (string-prefix-p last-prefix prefix t)))
;; We have the same prefix, or last-prefix is a
;; substring of the of new prefix, in which case we are
;; refining our symbol so just re-use cache.
;; refining our symbol so just reuse cache.
(oref obj last-all-completions))
((and last-prefix
(> (length prefix) 1)

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

@ -33,7 +33,7 @@
;; or deep template calls can be extracted.
;;
;; This code was specifically written for srecode-document, which
;; wants to extract user written text, and re-use it in a reformatted
;; wants to extract user written text, and reuse it in a reformatted
;; comment.
(require 'srecode)

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

@ -420,7 +420,7 @@ Moves to the end of one named section."
(when (string= (car (car subdicts)) name)
(setq res (cdr (car subdicts))))
(setq subdicts (cdr subdicts)))
;; Pre-pend our global vars.
;; Prepend our global vars.
(append global res))
;; If we aren't in a subsection, just do the global variables
global

2
lisp/desktop.el
View file

@ -293,7 +293,7 @@ May be used to show a dired buffer."
:version "22.1")
(defcustom desktop-not-loaded-hook nil
"Normal hook run when the user declines to re-use a desktop file.
"Normal hook run when the user declines to reuse a desktop file.
Run in the directory in which the desktop file was found.
May be used to deal with accidental multiple Emacs jobs."
:type 'hook

2
lisp/emacs-lisp/comp-cstr.el
View file

@ -690,7 +690,7 @@ DST is returned."
(cl-loop
for val in (valset src)
;; If (member value) is subtypep of all other sources then
;; is good to be colleted.
;; is good to be collected.
when (cl-every (lambda (s)
(or (memql val (valset s))
(cl-some (lambda (type)

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

@ -4322,7 +4322,7 @@ last directory in `native-comp-eln-load-path')."
Make sure that eln file is younger than byte-compiled one and
return the filename of this last.
This function can be used only in conjuntion with
This function can be used only in conjunction with
`byte+native-compile' `byte-to-native-output-buffer-file' (see
`batch-byte+native-compile')."
(pcase byte-to-native-output-buffer-file

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

@ -98,7 +98,7 @@ Even modest settings for `print-length' and `print-level' can
produce extremely long lines in backtraces and lengthy delays in
forming them. This variable governs the target maximum line
length by manipulating these two variables while printing stack
traces. Setting this variable to t will re-use the value of
traces. Setting this variable to t will reuse the value of
`backtrace-line-length' while printing stack traces in ERT batch
mode. Any other value will be temporarily bound to
`backtrace-line-length' when producing stack traces in batch

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

@ -93,7 +93,7 @@ report errors as appropriate for this kind of usage."
(defun mark-sexp (&optional arg allow-extend)
"Set mark ARG sexps from point or move mark one sexp.
When called from Lisp with ALLOW-EXTEND ommitted or nil, mark is
When called from Lisp with ALLOW-EXTEND omitted or nil, mark is
set ARG sexps from point.
With ARG and ALLOW-EXTEND both non-nil (interactively, with prefix
argument), the place to which mark goes is the same place \\[forward-sexp]

2
lisp/emacs-lisp/package-vc.el
View file

@ -29,7 +29,7 @@
;; To install a package from source use `package-vc-install'. If you
;; aren't interested in activating a package, you can use
;; `package-vc-checkout' instead, which will prompt you for a target
;; directory. If you wish to re-use an existing checkout, the command
;; directory. If you wish to reuse an existing checkout, the command
;; `package-vc-install-from-checkout' will create a symbolic link and
;; prepare the package.
;;

2
lisp/erc/erc-services.el
View file

@ -168,7 +168,7 @@ You can also use \\[erc-nickserv-identify-mode] to change modes."
:type 'boolean)
(defcustom erc-use-auth-source-for-nickserv-password nil
"Query auth-source for a password when identifiying to NickServ.
"Query auth-source for a password when identifying to NickServ.
Passwords from `erc-nickserv-passwords' take precedence. See
function `erc-nickserv-get-password'."
:version "28.1"

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

@ -1444,7 +1444,7 @@ Returns a list of [group article score] vectors."
(when (and f-name
(file-readable-p f-name)
(null (file-directory-p f-name)))
;; `expand-file-name' canoncalizes the file name,
;; `expand-file-name' canonicalizes the file name,
;; specifically collapsing multiple consecutive directory
;; separators.
(setq f-name (expand-file-name f-name)

2
lisp/gnus/nndiary.el
View file

@ -1023,7 +1023,7 @@ all. This may very well take some time.")
(defun nndiary-generate-nov-databases (&optional server)
"Generate NOV databases in all nndiary directories."
(interactive (list (or (nnoo-current-server 'nndiary) "")))
;; Read the active file to make sure we don't re-use articles
;; Read the active file to make sure we don't reuse articles
;; numbers in empty groups.
(nnmail-activate 'nndiary)
(unless (nndiary-server-opened server)

2
lisp/gnus/nnml.el
View file

@ -830,7 +830,7 @@ article number. This function is called narrowed to an article."
(defun nnml-generate-nov-databases (&optional server)
"Generate NOV databases in all nnml directories."
(interactive (list (or (nnoo-current-server 'nnml) "")))
;; Read the active file to make sure we don't re-use articles
;; Read the active file to make sure we don't reuse articles
;; numbers in empty groups.
(nnmail-activate 'nnml)
(unless (nnml-server-opened server)

2
lisp/language/hanja-util.el
View file

@ -6437,7 +6437,7 @@ character. This variable is initialized by `hanja-init-load'.")
(message "")))
;; List of current conversion status.
;; The first element is the strating position of shown list.
;; The first element is the starting position of shown list.
;; It is a group number each split by `hanja-list-width'.
;; The second element is the position of selected element.
;; The third element is a list of suitable Hanja candidate.

2
lisp/loadup.el
View file

@ -479,7 +479,7 @@ lost after dumping")))
(defvar comp-subr-arities-h)
(when (featurep 'native-compile)
;; Save the arity for all primitives so the compiler can always
;; retrive it even in case of redefinition.
;; retrieve it even in case of redefinition.
(mapatoms (lambda (f)
(when (subr-primitive-p (symbol-function f))
(puthash f (func-arity f) comp-subr-arities-h))))

2
lisp/mail/rmailout.el
View file

@ -454,7 +454,7 @@ display message number MSG."
(narrow-to-region (point-max) (point-max)))
(insert-buffer-substring tembuf)
(rmail-count-new-messages t)
;; FIXME should re-use existing windows.
;; FIXME should reuse existing windows.
(if (rmail-summary-exists)
(rmail-select-summary (rmail-update-summary)))
(rmail-show-message-1 msg)))

2
lisp/net/newst-treeview.el
View file

@ -1466,7 +1466,7 @@ Move to next item unless DONT-PROCEED is non-nil."
nil)))
(defun newsticker--treeview-get-second-child (node)
"Get scond child of NODE."
"Get second child of NODE."
(let ((children (widget-get node :children)))
(if children
(car (cdr children))

2
lisp/net/sieve-manage.el
View file

@ -171,7 +171,7 @@ Valid states are `closed', `initial', `nonauth', and `auth'.")
"Append ARGS to `sieve-manage-log' buffer.
ARGS can be a string or a list of strings.
The buffer to use for logging is specifified via `sieve-manage-log'.
The buffer to use for logging is specified via `sieve-manage-log'.
If it is nil, logging is disabled.
When the `sieve-manage-log' buffer doesn't exist, it gets created (and

2
lisp/net/soap-client.el
View file

@ -1953,7 +1953,7 @@ This is a specialization of `soap-decode-type' for
(xml-get-children node (intern e-name)))
;; e-name is nil so a) we don't know which
;; children to operate on, and b) we want to
;; re-use soap-decode-xs-complex-type, which
;; reuse soap-decode-xs-complex-type, which
;; expects a node argument with a complex
;; type; therefore we need to operate on the
;; entire node. We wrap node in a list so

6
lisp/net/tramp-sh.el
View file

@ -2498,7 +2498,7 @@ The method used must be an out-of-band method."
copy-program copy-args)))
(tramp-message v 6 "%s" (string-join (process-command p) " "))
(process-put p 'tramp-vector v)
;; This is neded for ssh or PuTTY based processes, and
;; This is needed for ssh or PuTTY based processes, and
;; only if the respective options are set. Perhaps,
;; the setting could be more fine-grained.
;; (process-put p 'tramp-shared-socket t)
@ -3840,7 +3840,7 @@ Fall back to normal file name handler if no Tramp handler exists."
(string-join sequence " "))
(tramp-message v 6 "Run `%s', %S" (string-join sequence " ") p)
(process-put p 'tramp-vector v)
;; This is neded for ssh or PuTTY based processes, and only if
;; This is needed for ssh or PuTTY based processes, and only if
;; the respective options are set. Perhaps, the setting could
;; be more fine-grained.
;; (process-put p 'tramp-shared-socket t)
@ -5224,7 +5224,7 @@ connection if a previous connection has died for some reason."
;; Set sentinel and query flag. Initialize variables.
(set-process-sentinel p #'tramp-process-sentinel)
(process-put p 'tramp-vector vec)
;; This is neded for ssh or PuTTY based processes, and
;; This is needed for ssh or PuTTY based processes, and
;; only if the respective options are set. Perhaps,
;; the setting could be more fine-grained.
;; (process-put p 'tramp-shared-socket t)

2
lisp/net/tramp.el
View file

@ -5083,7 +5083,7 @@ substitution. SPEC-LIST is a list of char/value pairs used for
(when filter
(set-process-filter p filter))
(process-put p 'tramp-vector v)
;; This is neded for ssh or PuTTY based processes, and
;; This is needed for ssh or PuTTY based processes, and
;; only if the respective options are set. Perhaps, the
;; setting could be more fine-grained.
;; (process-put p 'tramp-shared-socket t)

2
lisp/org/oc-biblatex.el
View file

@ -26,7 +26,7 @@
;; The processor relies on "biblatex" LaTeX package. As such it ensures that
;; the package is properly required in the document's preamble. More
;; accurately, it will re-use any "\usepackage{biblatex}" already present in
;; accurately, it will reuse any "\usepackage{biblatex}" already present in
;; the document (e.g., through `org-latex-packages-alist'), or insert one using
;; options defined in `org-cite-biblatex-options'.

2
lisp/org/oc.el
View file

@ -52,7 +52,7 @@
;; through the "cite_export" keyword.
;; Eventually, this library provides some tools, mainly targeted at
;; processor implementors. Most are export-specific and are located
;; processor implementers. Most are export-specific and are located
;; in the "Tools only available during export" and "Tools generating
;; or operating on parsed data" sections.

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

@ -1312,7 +1312,7 @@ may have been stored before."
(while (< (point) end)
(indent-to i)
(forward-line)))
;; Pre-pending an item could change the type of the list
;; Prepending an item could change the type of the list
;; if there is a mismatch. In this situation,
;; prioritize the existing list.
(when prepend?

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

@ -141,7 +141,7 @@ Unibyte strings are converted to multibyte for comparison."
Elements in COMPONENTS must be a string or nil.
DIRECTORY or the non-final elements in COMPONENTS may or may not end
with a slash -- if they don't end with a slash, a slash will be
inserted before contatenating."
inserted before concatenating."
(save-match-data
(mapconcat
#'identity

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

@ -5484,7 +5484,7 @@ This variable is used to determine when re-parsing buffer is not going
to slow down the command.
If the commands end up modifying the cache, the worst case scenario is
performance drop. So, advicing these commands is safe. Yet, it is
performance drop. So, advising these commands is safe. Yet, it is
better to remove the commands advised in such a way from this list.")
(defmacro org-element--request-key (request)

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

@ -111,7 +111,7 @@
;;
;; Each collection is represented as a plist containing the following
;; properties:
;; - `:container' : list of data continers to be stored in single
;; - `:container' : list of data containers to be stored in single
;; file;
;; - `:persist-file': data file name;
;; - `:associated' : list of associated objects;
@ -253,7 +253,7 @@ The index is a list of plists. Each plist contains information about
persistent data storage. Each plist contains the following
properties:
- `:container' : list of data continers to be stored in single file
- `:container' : list of data containers to be stored in single file
- `:persist-file': data file name
- `:associated' : list of associated objects
- `:last-access' : last date when the container has been read

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

@ -4894,7 +4894,7 @@ This function sets up the following dynamically scoped variables:
(push (cons field v) org-table-local-parameters)
(push (list field line col)
org-table-named-field-locations))))))))))
;; Re-use existing markers when possible.
;; Reuse existing markers when possible.
(if (markerp org-table-current-begin-pos)
(move-marker org-table-current-begin-pos (point))
(setq org-table-current-begin-pos (point-marker)))

4
lisp/org/org.el
View file

@ -1230,7 +1230,7 @@ This applies to indirect buffers created with the commands
Valid values are:
current-window Display in the current window
other-window Just display in another window.
dedicated-frame Create one new frame, and re-use it each time.
dedicated-frame Create one new frame, and reuse it each time.
new-frame Make a new frame each time. Note that in this case
previously-made indirect buffers are kept, and you need to
kill these buffers yourself."
@ -4582,7 +4582,7 @@ is available. This option applies only if FILE is a URL."
file)
nil))
(error (if noerror
(message "Org could't download \"%s\": %s %S" file (car error) (cdr error))
(message "Org couldn't download \"%s\": %s %S" file (car error) (cdr error))
(signal (car error) (cdr error)))))
(funcall (if noerror #'message #'user-error)
"The remote resource %S is considered unsafe, and will not be downloaded."

4
lisp/progmodes/c-ts-common.el
View file

@ -116,7 +116,7 @@ non-whitespace characters of the current line."
"Regexp pattern that matches a comment in C-like languages.")
(defun c-ts-common--fill-paragraph (&optional arg)
"Fillling function for `c-ts-common'.
"Filling function for `c-ts-common'.
ARG is passed to `fill-paragraph'."
(interactive "*P")
(save-restriction
@ -134,7 +134,7 @@ ARG is passed to `fill-paragraph'."
t)))
(defun c-ts-common--fill-block-comment (&optional arg)
"Fillling function for block comments.
"Filling function for block comments.
ARG is passed to `fill-paragraph'. Assume point is in a block
comment."
(let* ((node (treesit-node-at (point)))

2
lisp/progmodes/c-ts-mode.el
View file

@ -1321,7 +1321,7 @@ recommended to enable `electric-pair-mode' with this mode."
c-ts-mode-indent-style)
:help "Show the name of the C/C++ indentation style for current buffer"]
["Set Comment Style" c-ts-mode-toggle-comment-style
:help "Toglle C/C++ comment style between block and line comments"])
:help "Toggle C/C++ comment style between block and line comments"])
"--"
("Toggle..."
["SubWord Mode" subword-mode

2
lisp/progmodes/compile.el
View file

@ -1786,7 +1786,7 @@ to a function that generates a unique name."
;; run compile with the default command line
(defun recompile (&optional edit-command)
"Re-compile the program including the current buffer.
If this is run in a Compilation mode buffer, re-use the arguments from the
If this is run in a Compilation mode buffer, reuse the arguments from the
original use. Otherwise, recompile using `compile-command'.
If the optional argument `edit-command' is non-nil, the command can be edited."
(interactive "P")

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

@ -1329,7 +1329,7 @@ Covers packages, subroutines, and POD headings.")
(defun cperl-block-declaration-p ()
"Test whether the following ?\\{ opens a declaration block.
Returns the column where the declarating keyword is found, or nil
Returns the column where the declaring keyword is found, or nil
if this isn't a declaration block. Declaration blocks are named
subroutines, packages and the like. They start with a keyword
and a name, to be followed by various descriptive items which are

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

@ -465,7 +465,7 @@
(scan-error (goto-char startpos) nil))
(not (or (nth 8 (parse-partial-sexp
;; Since we don't know if point is within
;; the first or the scond arg, we have to
;; the first or the second arg, we have to
;; start from the beginning.
(if twoargs (1+ (nth 8 state)) (point))
limit nil nil state 'syntax-table))
@ -511,7 +511,7 @@
(string-to-syntax "|e")
(string-to-syntax "\"e")))
(forward-char 1)
;; Re-use perl-syntax-propertize-special-constructs to handle the
;; Reuse perl-syntax-propertize-special-constructs to handle the
;; second part (the first delimiter of second part can't be
;; preceded by "s" or "tr" or "y", so it will not be considered
;; as twoarg).

2
lisp/progmodes/ruby-ts-mode.el
View file

@ -601,7 +601,7 @@ a statement container is a node that matches
;; case expression: when, in_clause, and else are all
;; children of case. when and in_clause have pattern and
;; body as fields. body has "then" and then the statemets.
;; body as fields. body has "then" and then the statements.
;; i.e. the statements are not children of when but then.
;; But for the statements are children of else.
((match "when" "case")

2
lisp/ses.el
View file

@ -2245,7 +2245,7 @@ Based on the current set of columns and `window-hscroll' position."
;; Redisplay and recalculation
;;----------------------------------------------------------------------------
(defun ses-jump-prefix (prefix-int)
"Convert an integer (unversal prefix) into a (ROW . COL).
"Convert an integer (universal prefix) into a (ROW . COL).
Does it by numbering cells starting from 0 from top left to bottom right,
going row by row."
(and (>= prefix-int 0)

2
lisp/simple.el
View file

@ -8705,7 +8705,7 @@ node `(elisp) Word Motion' for details."
(defun mark-word (&optional arg allow-extend)
"Set mark ARG words from point or move mark one word.
When called from Lisp with ALLOW-EXTEND ommitted or nil, mark is
When called from Lisp with ALLOW-EXTEND omitted or nil, mark is
set ARG words from point.
With ARG and ALLOW-EXTEND both non-nil (interactively, with prefix
argument), the place to which mark goes is the same place \\[forward-word]

2
lisp/vc/vc-rcs.el
View file

@ -714,7 +714,7 @@ Optional arg REVISION is a revision to annotate from."
(insert insn)
(delete-char insn)))
;; Now apply the forward-chronological edits (directly from the
;; parse-tree) for the branch(es), if necessary. We re-use vars
;; parse-tree) for the branch(es), if necessary. We reuse vars
;; `pre' and `meta' for the sake of internal func `r/d/a'.
(while nbls
(setq pre (cdr (pop nbls)))

2
lisp/vc/vc.el
View file

@ -668,7 +668,7 @@
;;;; New Primitives:
;;
;; - uncommit: undo last checkin, leave changes in place in the workfile,
;; stash the commit comment for re-use.
;; stash the commit comment for reuse.
;;
;; - deal with push operations.
;;

2
src/conf_post.h
View file

@ -96,7 +96,7 @@ typedef bool bool_bf;
#ifdef emacs
/* We include stdlib.h here, because Gnulib's stdlib.h might redirect
'free' to its replacement, and we want to avoid that in unexec
builds. Inclduing it here will render its inclusion after config.h
builds. Including it here will render its inclusion after config.h
a no-op. */
# if (defined DARWIN_OS && defined HAVE_UNEXEC) || defined HYBRID_MALLOC
# include <stdlib.h>

2
src/fileio.c
View file

@ -758,7 +758,7 @@ DEFUN ("file-name-concat", Ffile_name_concat, Sfile_name_concat, 1, MANY, 0,
Elements in COMPONENTS must be a string or nil.
DIRECTORY or the non-final elements in COMPONENTS may or may not end
with a slash -- if they don't end with a slash, a slash will be
inserted before contatenating.
inserted before concatenating.
usage: (record DIRECTORY &rest COMPONENTS) */)
(ptrdiff_t nargs, Lisp_Object *args)
{

2
src/image.c
View file

@ -11424,7 +11424,7 @@ svg_load_image (struct frame *f, struct image *img, char *contents,
}
#if HAVE_NTGUI
/* Windows stores the image colours in BGR format, and SVG expects
/* Windows stores the image colors in BGR format, and SVG expects
them in RGB. */
foreground = (foreground & 0x0000FF) << 16
| (foreground & 0xFF0000) >> 16

2
src/itree.c
View file

@ -74,7 +74,7 @@ along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>. */
Consider the case where next-overlay-change is called at POS, all
interval BEG positions are less than pos POS and all interval END
posistions are after. These END positions have no order, and so
positions are after. These END positions have no order, and so
*every* interval must be examined. This is at least O(N). The
previous-overlay-change case is similar. The root issue is that
the iterative "narrowing" approach is not guaranteed to reduce the

2
src/tparam.c
View file

@ -184,7 +184,7 @@ tparam1 (const char *string, char *outstring, int len,
argp++;
break;
case 'b': /* %b means back up one arg (and re-use it). */
case 'b': /* %b means back up one arg (and reuse it). */
argp--;
break;

2
src/window.c
View file

@ -526,7 +526,7 @@ select_window (Lisp_Object window, Lisp_Object norecord,
/* Do not select a tooltip window (Bug#47207). */
error ("Cannot select a tooltip window");
/* We deinitely want to select WINDOW, not the mini-window. */
/* We definitely want to select WINDOW, not the mini-window. */
f->select_mini_window_flag = false;
/* Make the selected window's buffer current. */

2
src/xfont.c
View file

@ -238,7 +238,7 @@ xfont_chars_supported (Lisp_Object chars, XFontStruct *xfont,
static Lisp_Object xfont_scripts_cache;
/* Re-usable vector to store characteristic font properties. */
/* Reusable vector to store characteristic font properties. */
static Lisp_Object xfont_scratch_props;
/* Return a list of scripts supported by the font of FONTNAME whose

2
src/xterm.c
View file

@ -12229,7 +12229,7 @@ x_dnd_process_quit (struct frame *f, Time timestamp)
/* This function is defined far away from the rest of the XDND code so
it can utilize `x_any_window_to_frame'. */
/* Implementors beware! On most other platforms (where drag-and-drop
/* Implementers beware! On most other platforms (where drag-and-drop
data is not provided via selections, but some kind of serialization
mechanism), it is usually much easier to implement a suitable
primitive instead of copying the C code here, and then to build

2
test/lisp/international/mule-tests.el
View file

@ -49,7 +49,7 @@
(kbd "C-x RET c u t f - 8 RET C-u C-u c a b RET")
(read-string "prompt:"))))))
;;Bug#65997, ensure that old-names haven't overriden new names.
;;Bug#65997, ensure that old-names haven't overridden new names.
(ert-deftest mule-cmds-tests--ucs-names-old-name-override ()
(let (code-points)
(dotimes (u (1+ (max-char 'ucs)))

2
test/lisp/progmodes/perl-mode-tests.el
View file

@ -28,7 +28,7 @@
(font-lock-ensure (point-min) (point-max))
(should (equal (get-text-property 4 'face) 'font-lock-variable-name-face))))
;;;; Re-use cperl-mode tests
;;;; Reuse cperl-mode tests
(defvar cperl-test-mode)
(setq cperl-test-mode #'perl-mode)