From: Stefan Kangas Date: Sun, 19 Jan 2025 12:59:13 +0000 (+0100) Subject: ; Fix typos X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e86430f704a3ec70d1f84e2f0c28302aebd6299b;p=emacs.git ; Fix typos (cherry picked from commit 702cb123faf1bdbacf555188ae4997d6be3765fe) --- diff --git a/admin/codespell/codespell.exclude b/admin/codespell/codespell.exclude index 52d7c71b921..eb6e84f71e9 100644 --- a/admin/codespell/codespell.exclude +++ b/admin/codespell/codespell.exclude @@ -1783,3 +1783,16 @@ ine\\(?:-global\\)?-minor-mode\\|ine-compilation-mode\\|un-cvs-mode\\|\ (oarticle (make-symbol "gnus-setup-message-oarticle")) (,oarticle gnus-article-reply) (gnus-inews-add-send-actions ,winconf ,buffer ,oarticle ,config + Thur, Fri, Sat, Sun +[3]: Merget, Brinkmann, Aviram, Somorovsky, Mittmann, and + (ansi-color-cyan :short "ansi-cyan" :slug "anc" :foreground ,fg-term-cyan) + (ansi-color-bright-cyan :short "ansi-bright-cyan" :slug "ANc" :foreground ,fg-term-cyan-bright) + (search-forward "foo.correc") + "Your finger was not centred, try swiping your finger again" + (ofrom (marker-position (widget-get group :from))) + (should (= ofrom (widget-get group :from))) + (ofrom (marker-position (widget-get group :from))) + (should (= ofrom (widget-get group :from))) + (should (equal (cl-subseq "hello world" -5 -1) "worl")) + ("\\.te?xi\\'" . texinfo-mode) + ("\\.te?xt\\'" . text-mode) diff --git a/admin/tree-sitter/treesit-admin.el b/admin/tree-sitter/treesit-admin.el index 54ae969442c..86174ed2625 100644 --- a/admin/tree-sitter/treesit-admin.el +++ b/admin/tree-sitter/treesit-admin.el @@ -219,7 +219,7 @@ queries that has problems with latest grammar." (special-mode)))) (defun treesit-admin-verify-major-mode-queries () - "Varify font-lock queries in builtin major modes. + "Verify font-lock queries in builtin major modes. If the font-lock queries work fine with the latest grammar, insert some comments in the source file saying that the modes are known to work with @@ -296,7 +296,7 @@ instead. Return a plist of the form - (:version VERSION :head-version HEAD-VERSION :timstamp TIMESTAMP). + (:version VERSION :head-version HEAD-VERSION :timestamp TIMESTAMP). HEAD-VERSION is the version of the HEAD, VERSION is the latest compatible version. TIMESTAMP is the commit date of VERSION in UNIX @@ -371,14 +371,14 @@ VERSION and HEAD-VERSION in the plist are the same as in (defun treesit-admin--generate-compatibility-report (emacs-executables modes out-file) - "Generate a table for language compatibiity for MODES. + "Generate a table for language compatibility for MODES. Note that this only works for Emacs 31 and later, because before Emacs 31 we can't validate a compiled query (because there's a bug preventing us from eager compiling a compiled query that's already lazily compiled). -EMACS-EXECUTABLES is a list of Emacs executbles to check for." +EMACS-EXECUTABLES is a list of Emacs executables to check for." (let ((tables (mapcar (lambda (emacs) diff --git a/doc/emacs/killing.texi b/doc/emacs/killing.texi index aee68608bbf..4f267e7b2d7 100644 --- a/doc/emacs/killing.texi +++ b/doc/emacs/killing.texi @@ -589,7 +589,7 @@ images, and this image will be put on the clipboard. On capable platforms, Emacs can yank these objects with the @code{yank-media} command---but only in modes that have support for it. By default, it auto-selects the preferred media type available in the clipboard but -this can be overriden by giving the prefix argument to the command +this can be overridden by giving the prefix argument to the command (@pxref{Yanking Media,,, elisp, The Emacs Lisp Reference Manual}). @cindex clipboard manager diff --git a/doc/lispref/internals.texi b/doc/lispref/internals.texi index dc55b63c5da..ee1fcbbbd68 100644 --- a/doc/lispref/internals.texi +++ b/doc/lispref/internals.texi @@ -963,7 +963,7 @@ the format to use. @cindex @code{staticpro}, protection from GC If you directly define a file-scope C variable of type -@code{Lisp_Object}, you must protect it from garbage-collection by +@code{Lisp_Object}, you must protect it from garbage collection by calling @code{staticpro} in @code{syms_of_@var{filename}}, like this: @example diff --git a/doc/lispref/parsing.texi b/doc/lispref/parsing.texi index 034c424105b..f12104ea267 100644 --- a/doc/lispref/parsing.texi +++ b/doc/lispref/parsing.texi @@ -171,7 +171,7 @@ the symbol name with first letter capitalized. For languages that has ``irregular'' names, @var{treesit-language-display-name-alist} maps language symbols to their display names. -If a major mode package uses a langauge with ``irregular'' name, they +If a major mode package uses a language with ``irregular'' name, they should add a mapping into @var{treesit-language-display-name-alist} on load. @end defun diff --git a/doc/misc/cc-mode.texi b/doc/misc/cc-mode.texi index 665cf8e41a8..6b58010b885 100644 --- a/doc/misc/cc-mode.texi +++ b/doc/misc/cc-mode.texi @@ -4188,7 +4188,7 @@ position of a later line. Instead, that anchor position is the latest line at the same level of nesting before the labeled line without a leading label or comment. If there is no such line, the latest line containing an enclosing opening brace or parenthesis, which doesn't -start with a label or comment, provides the anchor postion. In this +start with a label or comment, provides the anchor position. In this case extra syntactic element(s) with syntactic symbol @code{defun-block-intro}, @code{statement-block-intro}, or some other ``-intro'' symbol are inserted into the syntactic context to allow the diff --git a/doc/misc/tramp.texi b/doc/misc/tramp.texi index 941029a8ffc..0d4dc954674 100644 --- a/doc/misc/tramp.texi +++ b/doc/misc/tramp.texi @@ -6213,7 +6213,7 @@ as above in your @file{~/.emacs}: @item I get an error @samp{unix_listener: path "/very/long/path/.cache/emacs/tramp.XXX" too long for Unix domain -socket} when connectiong via @option{ssh} to a remote host. +socket} when connecting via @option{ssh} to a remote host. @vindex small-temporary-file-directory By default, @value{tramp} uses the directory @file{~/.cache/emacs/} diff --git a/etc/NEWS.28 b/etc/NEWS.28 index 6ec6e19942f..2c0009e1902 100644 --- a/etc/NEWS.28 +++ b/etc/NEWS.28 @@ -1559,7 +1559,7 @@ either an internal or external browser. If a remote file is specified, a local temporary copy of that file is passed to the browser. -*** Support for the conkeror browser is now obsolete. +*** Support for the Conkeror browser is now obsolete. *** Support for the Mosaic browser has been removed. This support has been obsolete since 25.1. diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS index 7f791de1988..1a73eea5c91 100644 --- a/etc/ORG-NEWS +++ b/etc/ORG-NEWS @@ -5568,7 +5568,7 @@ the end of the string. *** Function ~org-info-export~ changes. -HTML links created from certain info links now point to =gnu.org= URL's rather +HTML links created from certain info links now point to =gnu.org= URLs rather than just to local files. For example info links such as =info:emacs#List Buffers= used to be converted to HTML links like this: diff --git a/lisp/auth-source-pass.el b/lisp/auth-source-pass.el index 07bb8373d49..6b8e6f83549 100644 --- a/lisp/auth-source-pass.el +++ b/lisp/auth-source-pass.el @@ -196,7 +196,7 @@ See `auth-source-pass-get'." "Return a string with the file content of ENTRY." (with-temp-buffer ;; `file-name-handler-alist' could be nil, or miss the - ;; `epa-file-handler' entry. We ensure, that it does exist. + ;; `epa-file-handler' entry. We ensure that it does exist. ;; (Bug#67937) (let ((file-name-handler-alist (cons epa-file-handler file-name-handler-alist))) diff --git a/lisp/calendar/time-date.el b/lisp/calendar/time-date.el index 1d792952f98..1c8b27cf19e 100644 --- a/lisp/calendar/time-date.el +++ b/lisp/calendar/time-date.el @@ -420,7 +420,7 @@ The format is an alist, with string keys ABBREV-UNIT, and elements like: (ABBREV-UNIT UNIT UNIT-PLURAL SECS) -where UNIT is a unit of time, ABBREV-UNIT is the abreviated form of +where UNIT is a unit of time, ABBREV-UNIT is the abbreviated form of UNIT, UNIT-PLURAL is the plural form of UNIT, and SECS is the number of seconds per UNIT.") diff --git a/lisp/disp-table.el b/lisp/disp-table.el index afce22deb85..23671da5107 100644 --- a/lisp/disp-table.el +++ b/lisp/disp-table.el @@ -112,7 +112,7 @@ Valid symbols are `truncation', `wrap', `escape', `control', (princ "\nBox vertical line glyph: ") (prin1 (display-table-slot dt 'box-vertical)) - (princ "\nBox horizonal line glyph: ") + (princ "\nBox horizontal line glyph: ") (prin1 (display-table-slot dt 'box-horizontal)) (princ "\nBox upper left corner glyph: ") (prin1 (display-table-slot dt 'box-down-right)) @@ -125,7 +125,7 @@ Valid symbols are `truncation', `wrap', `escape', `control', (princ "\nBox double vertical line glyph: ") (prin1 (display-table-slot dt 'box-double-vertical)) - (princ "\nBox double horizonal line glyph: ") + (princ "\nBox double horizontal line glyph: ") (prin1 (display-table-slot dt 'box-double-horizontal)) (princ "\nBox double upper left corner glyph: ") (prin1 (display-table-slot dt 'box-double-down-right)) diff --git a/lisp/jsonrpc.el b/lisp/jsonrpc.el index c1743c13611..56017e5f976 100644 --- a/lisp/jsonrpc.el +++ b/lisp/jsonrpc.el @@ -403,7 +403,7 @@ If CANCEL-ON-INPUT is non-nil and the user inputs something while the function is waiting, then any future replies to the request by the remote endpoint (normal or error) are ignored and the function exits returning CANCEL-ON-INPUT-RETVAL. If CANCEL-ON-INPUT is a function, it -is invoked with one argument, an integer identifying the cancelled +is invoked with one argument, an integer identifying the canceled request as specified in the JSONRPC 2.0 spec." (let* ((tag (cl-gensym "jsonrpc-request-catch-tag")) id-and-timer canceled diff --git a/lisp/mail/smtpmail.el b/lisp/mail/smtpmail.el index c9855ce9528..7d733e57beb 100644 --- a/lisp/mail/smtpmail.el +++ b/lisp/mail/smtpmail.el @@ -356,7 +356,7 @@ for `smtpmail-try-auth-method'.") (erase-buffer)))) ;; Encode the header according to RFC2047. (mail-encode-header (point-min) delimline) - ;; Get recipients' adresses + ;; Get recipients' addresses (setq smtpmail-recipient-address-list (smtpmail-deduce-address-list tembuf (point-min) delimline)) diff --git a/lisp/net/nsm.el b/lisp/net/nsm.el index db7c6892e57..afc44dad061 100644 --- a/lisp/net/nsm.el +++ b/lisp/net/nsm.el @@ -417,7 +417,7 @@ were rampant use of small subgroup prime or composite number for DHE by many servers, and thus allowed themselves to be vulnerable to backdoors[1]. Given the difficulty in validating Diffie-Hellman parameters, major browser vendors had started to remove DHE since -2016[2]. In 2020, the so-called Racoon Attack was discovered, a +2016[2]. In 2020, the so-called Raccoon Attack was discovered, a server-side vulnerability that exploits a side-channel to get the shared secret key[3]. diff --git a/lisp/newcomment.el b/lisp/newcomment.el index 10cf51cdd6c..945187e863f 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el @@ -918,7 +918,7 @@ comment delimiters." (when (> beg end) (setq beg (prog1 end (setq end beg)))) ;; Bind `comment-use-global-state' to nil. While uncommenting a region ;; (which works a line at a time), a comment can appear to be - ;; included in a mult-line string, but it is actually not. + ;; included in a multi-line string, but it is actually not. (let ((comment-use-global-state nil)) (save-excursion (funcall uncomment-region-function beg end arg)))) diff --git a/lisp/progmodes/c-ts-common.el b/lisp/progmodes/c-ts-common.el index df29af948cc..98a395229ce 100644 --- a/lisp/progmodes/c-ts-common.el +++ b/lisp/progmodes/c-ts-common.el @@ -538,7 +538,7 @@ characters on the current line." ;;; Baseline indent rule (defvar c-ts-common-list-indent-style 'align - "Intructs `c-ts-common-baseline-indent-rule' how to indent lists. + "Instructs `c-ts-common-baseline-indent-rule' how to indent lists. If the value is `align', indent lists like this: @@ -594,7 +594,7 @@ chaining like .method() front of the node. But ff `treesit-simple-indent-standalone-predicate' is non-nil, use that -for determining standlone line." +for determining standalone line." (let (anchor) (save-excursion (catch 'term @@ -620,7 +620,7 @@ chaining like .method() front of the node. But ff `treesit-simple-indent-standalone-predicate' is non-nil, use that -for determining standlone line." +for determining standalone line." (save-excursion (setq node (treesit-node-prev-sibling node 'named)) (goto-char (treesit-node-start node)) @@ -710,7 +710,7 @@ The rule also handles method chaining like (rx (or "(" "["))) (let ((first-sibling (treesit-node-child parent 0 'named))) (cond - ;; Closing delimeters. + ;; Closing delimiters. ((treesit-node-match-p node (rx (or ")" "]"))) (if (eq c-ts-common-list-indent-style 'align) (cons (treesit-node-start (treesit-node-child parent 0)) diff --git a/lisp/progmodes/cc-engine.el b/lisp/progmodes/cc-engine.el index db73f2591e1..36c14750474 100644 --- a/lisp/progmodes/cc-engine.el +++ b/lisp/progmodes/cc-engine.el @@ -7511,7 +7511,7 @@ multi-line strings (but not C++, for example)." "Construct a regexp for a C++ raw string opener matching CLOSER." (concat "\\(R\\(\"\\)" (regexp-quote (substring closer 1 -1)) "(\\)")) -;; The positions of various components of mult-line strings surrounding BEG, +;; The positions of various components of multi-line strings surrounding BEG, ;; END and (1- BEG) (of before-change-functions) as returned by ;; `c-ml-string-delims-around-point'. (defvar c-old-beg-ml nil) diff --git a/lisp/progmodes/eglot.el b/lisp/progmodes/eglot.el index 2a64bb926d1..812a81ef35a 100644 --- a/lisp/progmodes/eglot.el +++ b/lisp/progmodes/eglot.el @@ -571,7 +571,7 @@ under cursor." (const :tag "Call hierarchies" :callHierarchyProvider))) (defcustom eglot-advertise-cancellation nil - "If non-nil, Eglot attemps to inform server of cancelled requests. + "If non-nil, Eglot attempts to inform server of canceled requests. This is done by sending an additional '$/cancelRequest' notification every time Eglot decides to forget a request. The effect of this notification is implementation defined, and is only useful for some diff --git a/lisp/progmodes/typescript-ts-mode.el b/lisp/progmodes/typescript-ts-mode.el index 7f81be05221..2be38260940 100644 --- a/lisp/progmodes/typescript-ts-mode.el +++ b/lisp/progmodes/typescript-ts-mode.el @@ -239,7 +239,7 @@ Argument LANGUAGE is either `typescript' or `tsx'." (ignore-errors (treesit-query-compile language queries-b t) queries-b) - ;; Return a dummy query that doens't do anything, if neither + ;; Return a dummy query that doesn't do anything, if neither ;; query works. '("," @_ignore)))) diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index 69b8e87613f..2bef0573bed 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -88,7 +88,7 @@ If this is a function, call it to generate the initial field text." :risky t) ;; The functionality provided by `bibtex-include-OPTkey' is a special case ;; of what `bibtex-aux-opt-alist' offers. Which BibTeX style files actually -;; use the key field? The BibTeX docomentation suggests it is used rarely. +;; use the key field? The BibTeX documentation suggests it is used rarely. ;; Under biblatex, the key field is an alias for sortkey, see Secs. 2.2.3 ;; and 2.2.5. (make-obsolete-variable 'bibtex-include-OPTkey diff --git a/lisp/textmodes/mhtml-ts-mode.el b/lisp/textmodes/mhtml-ts-mode.el index 190967fcab7..33c5f3c3019 100644 --- a/lisp/textmodes/mhtml-ts-mode.el +++ b/lisp/textmodes/mhtml-ts-mode.el @@ -107,7 +107,7 @@ By default should have same value as `html-ts-mode-indent-offset'." executable html-ts-mode-indent-offset)) ((setq executable (executable-find "xmllint")) (format "%s --html --quiet --format -" executable)) - (t "Install tidy, ore some other HTML pretty print tool, and set `mhtml-ts-mode-pretty-print-command'."))) + (t "Install tidy, or some other HTML pretty print tool, and set `mhtml-ts-mode-pretty-print-command'."))) "The command to pretty print the current HTML buffer." :type 'string :version "31.1") @@ -522,7 +522,7 @@ Powered by tree-sitter." js--treesit-jsdoc-comment-regexp)) - ;; Many treesit fuctions need to know the language at-point. + ;; Many treesit functions need to know the language at-point. ;; So you should define such a function. (setq-local treesit-language-at-point-function #'mhtml-ts-mode--language-at-point) (setq-local prettify-symbols-alist mhtml-ts-mode--prettify-symbols-alist) @@ -594,7 +594,7 @@ Powered by tree-sitter." ;; Flymake (add-hook 'flymake-diagnostic-functions #'mhtml-ts-mode-flymake-mhtml nil 'local))) -;; Add nome extra parents. +;; Add some extra parents. (derived-mode-add-parents 'mhtml-ts-mode '(css-mode js-mode)) (when (and (treesit-ready-p 'html) (treesit-ready-p 'javascript) (treesit-ready-p 'css)) diff --git a/lisp/treesit.el b/lisp/treesit.el index 9ef8a1a609b..4d8f92e9bd7 100644 --- a/lisp/treesit.el +++ b/lisp/treesit.el @@ -49,7 +49,7 @@ ;; so there will be more than one parser for each language in a buffer. ;; We can also have local parser of the same language as the host ;; parser. All of which means we can't equalize language and parser, -;; and create paresr for a language willy-nilly anymore. Major mode +;; and create parser for a language willy-nilly anymore. Major mode ;; will manage their parsers. ;;; Code: @@ -1839,7 +1839,7 @@ but not in this case: } The value of this variable affects the `standalone-parent' indent preset -for treesit-simple-indent. If the value is nil, the standlone condition +for treesit-simple-indent. If the value is nil, the standalone condition is as described. Some major mode might want to relax the condition a little bit, so that it ignores some punctuation like \".\". For example, a Javascript mode might want to consider the method call below @@ -2508,7 +2508,7 @@ This function only affects `treesit-simple-indent-rules', WHERE can be either :before or :after, which means adding RULES before or after the existing rules in `treesit-simple-indent-rules'. If -ommited, default to adding the rules before (so it overrides existing +omitted, default to adding the rules before (so it overrides existing rules). If ANCHOR is non-nil, add RULES before/after the rules in diff --git a/lisp/window-x.el b/lisp/window-x.el index 2b72f058553..2eca32ab6ee 100644 --- a/lisp/window-x.el +++ b/lisp/window-x.el @@ -73,7 +73,7 @@ where HEIGHT and WIDTH are the normal height and width of the window. (nreverse list))) (defsubst window--rotate-interactive-arg () - "Return interative window argument for window rotation commands." + "Return interactive window argument for window rotation commands." (if current-prefix-arg (window-parent) (window-main-window))) ;;;###autoload diff --git a/src/buffer.c b/src/buffer.c index 40f7ec83d6b..a408b799ff4 100644 --- a/src/buffer.c +++ b/src/buffer.c @@ -1357,7 +1357,7 @@ buffer_local_value (Lisp_Object variable, Lisp_Object buffer) case SYMBOL_LOCALIZED: { /* Look in local_var_alist. */ struct Lisp_Buffer_Local_Value *blv = SYMBOL_BLV (sym); - XSETSYMBOL (variable, sym); /* Update In case of aliasing. */ + XSETSYMBOL (variable, sym); /* Update in case of aliasing. */ result = assq_no_quit (variable, BVAR (buf, local_var_alist)); if (!NILP (result)) { diff --git a/src/dispnew.c b/src/dispnew.c index 349a415ebf9..e5070d4554d 100644 --- a/src/dispnew.c +++ b/src/dispnew.c @@ -3511,7 +3511,7 @@ make_matrix_current (struct frame *f) /* Prepare ROOT's desired row at index Y for copying child frame contents to it. Value is the prepared desired row or NULL if we - don't have, and can't contruct a desired row. */ + don't have, and can't construct a desired row. */ static struct glyph_row * prepare_desired_root_row (struct frame *root, int y) diff --git a/src/doprnt.c b/src/doprnt.c index d8403bedbe4..fb97b89c243 100644 --- a/src/doprnt.c +++ b/src/doprnt.c @@ -164,7 +164,7 @@ doprnt_non_null_end (char *buffer, ptrdiff_t bufsize, char const *format, return nbytes; } -/* Format to BUFFER (of positive size BUFSIZE) data formated by FORMAT, +/* Format to BUFFER (of positive size BUFSIZE) data formatted by FORMAT, terminated at either the first NUL or (if FORMAT_END is non-null and there are no NUL bytes between FORMAT and FORMAT_END) terminated at position FORMAT_END. AP specifies format arguments. diff --git a/src/emacs.c b/src/emacs.c index 42074c56271..dc7041c2338 100644 --- a/src/emacs.c +++ b/src/emacs.c @@ -166,7 +166,7 @@ char const EXTERNALLY_VISIBLE RCS_Id[] = "$Id" ": GNU Emacs " PACKAGE_VERSION " (" EMACS_CONFIGURATION " " EMACS_CONFIG_FEATURES ") $"; -/* Empty lisp strings. To avoid having to build any others. */ +/* Empty Lisp strings. To avoid having to build any others. */ Lisp_Object empty_unibyte_string, empty_multibyte_string; #ifdef WINDOWSNT @@ -3539,7 +3539,7 @@ Also note that this is not a generic facility for accessing external libraries; only those already known by Emacs will be loaded. */); #ifdef WINDOWSNT /* FIXME: We may need to load libgccjit when dumping before - term/w32-win.el defines `dynamic-library-alist`. This will fail + term/w32-win.el defines `dynamic-library-alist`. This will fail if that variable is empty, so add libgccjit-0.dll to it. */ if (will_dump_p ()) Vdynamic_library_alist = list1 (list2 (Qgccjit, diff --git a/src/frame.c b/src/frame.c index d1c37f4e722..ccd95b8bf4e 100644 --- a/src/frame.c +++ b/src/frame.c @@ -206,7 +206,7 @@ set_menu_bar_lines (struct frame *f, Lisp_Object value, Lisp_Object oldval) /* Menu bars on child frames don't work on all platforms, which is the reason why prepare_menu_bar does not update_menu_bar for child frames (info from Martin Rudalics). This could be - implemented in ttys, but it's probaly not worth it. */ + implemented in ttys, but it's probably not worth it. */ if (is_tty_child_frame (f)) { FRAME_MENU_BAR_LINES (f) = 0; diff --git a/src/image.c b/src/image.c index dfab0d76edb..b051e4ca796 100644 --- a/src/image.c +++ b/src/image.c @@ -12030,7 +12030,7 @@ svg_css_length_to_pixels (RsvgLength length, double dpi, int font_size) The basic process, which is used for all versions of librsvg, is to load the SVG and parse it, then extract the image dimensions. We then use those image dimensions to calculate the final size and - wrap the SVG data inside another SVG we build on the fly. This + wrap the SVG data inside another SVG we build on the fly. This wrapper does the necessary resizing and setting of foreground and background colors and is then parsed and rasterized. @@ -12117,8 +12117,8 @@ svg_load_image (struct frame *f, struct image *img, char *contents, rsvg_handle_write (rsvg_handle, (unsigned char *) contents, size, &err); if (err) goto rsvg_error; - /* The parsing is complete, rsvg_handle is ready to be used, close - it for further writes. */ + /* The parsing is complete, rsvg_handle is ready to be used, close it + for further writes. */ rsvg_handle_close (rsvg_handle, &err); if (err) goto rsvg_error; #endif @@ -12348,7 +12348,7 @@ svg_load_image (struct frame *f, struct image *img, char *contents, SBYTES (wrapped_contents), &err); if (err) goto rsvg_error; - /* The parsing is complete, rsvg_handle is ready to used, close it + /* The parsing is complete, rsvg_handle is ready to be used, close it for further writes. */ rsvg_handle_close (rsvg_handle, &err); if (err) goto rsvg_error; diff --git a/src/pdumper.c b/src/pdumper.c index fc3b5d18bde..b954421e225 100644 --- a/src/pdumper.c +++ b/src/pdumper.c @@ -4295,7 +4295,7 @@ types. */) dump_emacs_reloc_to_emacs_ptr_raw (ctx, &staticvec[i], staticvec[i]); dump_emacs_reloc_immediate_int (ctx, &staticidx, staticidx); - /* Dump until while we keep finding objects to dump. We add new + /* Dump while we keep finding objects to dump. We add new objects to the queue by side effect during dumping. We accumulate some types of objects in special lists to get more locality for these object types at runtime. */ diff --git a/src/pgtkterm.c b/src/pgtkterm.c index 605250da1b7..94b29b5ac9b 100644 --- a/src/pgtkterm.c +++ b/src/pgtkterm.c @@ -195,7 +195,7 @@ pgtk_enumerate_devices (struct pgtk_display_info *dpyinfo, else { /* GTK bug 7737 results in GDK seats being initialized - with NULL devices in some cirumstances. As events will + with NULL devices in some circumstances. As events will presumably also be delivered with their device fields set to NULL, insert a ersatz device record associated with NULL. (bug#76239) */ diff --git a/src/sound.c b/src/sound.c index 5e6acdb4743..38f1b0c356c 100644 --- a/src/sound.c +++ b/src/sound.c @@ -139,7 +139,7 @@ struct wav_header u_int32_t data_length; }; -/* The file header of Sun adio files (*.au). Files are always in +/* The file header of Sun audio files (*.au). Files are always in big-endian byte-order. */ struct au_header diff --git a/src/xdisp.c b/src/xdisp.c index 48229c0e069..a7124d02044 100644 --- a/src/xdisp.c +++ b/src/xdisp.c @@ -17466,7 +17466,7 @@ redisplay_internal (void) if (is_tty_frame (f)) { - /* Ignore all invisble tty frames, children or root. */ + /* Ignore all invisible tty frames, children or root. */ if (!frame_redisplay_p (f)) continue;