From def51dd6458d2f276018aaac36283bbe44428de7 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 12 Dec 2022 08:50:21 +0100 Subject: [PATCH] ; Fix typos --- ChangeLog.3 | 2 +- lisp/ChangeLog.15 | 2 +- lisp/emacs-lisp/cl-extra.el | 2 +- lisp/treesit.el | 4 ++-- src/xfaces.c | 2 +- test/lisp/progmodes/eglot-tests.el | 4 ++-- test/src/treesit-tests.el | 6 +++--- 7 files changed, 11 insertions(+), 11 deletions(-) diff --git a/ChangeLog.3 b/ChangeLog.3 index edb738b56c9..b162f96cb11 100644 --- a/ChangeLog.3 +++ b/ChangeLog.3 @@ -1654,7 +1654,7 @@ This reverts commit 78f76fe16e2737b40694f82af28d17a90a21ed7b. The commit made calls to cl-concatenate bug out, since - autoloading defalises doesn't work very well (bug#54901). + autoloading defaliases doesn't work very well (bug#54901). 2022-04-12 Eli Zaretskii diff --git a/lisp/ChangeLog.15 b/lisp/ChangeLog.15 index 8a21c291e72..ac1befac1e6 100644 --- a/lisp/ChangeLog.15 +++ b/lisp/ChangeLog.15 @@ -10320,7 +10320,7 @@ * bs.el, expand.el, ido.el, image-dired.el, lpr.el, pcomplete.el, * skeleton.el, term.el, time.el, wid-edit.el, woman.el, * calc/calc-graph.el, calc/calc-help.el, calc/calc-incom.el, - * calc/calc.el, emacs-lisp/cl-extra.el, emacs-lips/cl-loaddefs.el, + * calc/calc.el, emacs-lisp/cl-extra.el, emacs-lisp/cl-loaddefs.el, * emulation/cua-rect.el, emulation/viper-ex.el, eshell/esh-test.el, * eshell/eshell.el, gnus/gnus-uu.el, gnus/nndoc.el, gnus/nnrss.el, * gnus/rfc2047.el, gnus/utf7.el, international/utf-7.el, diff --git a/lisp/emacs-lisp/cl-extra.el b/lisp/emacs-lisp/cl-extra.el index 66b214554ee..60b01051a33 100644 --- a/lisp/emacs-lisp/cl-extra.el +++ b/lisp/emacs-lisp/cl-extra.el @@ -552,7 +552,7 @@ too large if positive or too small if negative)." ,new))))) (seq-subseq seq start end)) -;;; This isn't a defalias because autoloading defalises doesn't work +;;; This isn't a defalias because autoloading defaliases doesn't work ;;; very well. ;;;###autoload diff --git a/lisp/treesit.el b/lisp/treesit.el index d404bc96327..9b33bc8e765 100644 --- a/lisp/treesit.el +++ b/lisp/treesit.el @@ -1685,7 +1685,7 @@ the current line if the beginning of the defun is indented." Return a list of (PREV NEXT PARENT), where PREV and NEXT are previous and next sibling defuns around POS, and PARENT is the -parent defun surrouding POS. All of three could be nil if no +parent defun surrounding POS. All of three could be nil if no sound defun exists. REGEXP and PRED are the same as in `treesit-defun-type-regexp'." @@ -1767,7 +1767,7 @@ If ARG is positive, move forward that many steps, if negative, move backward. If SIDE is `beg', stop at the beginning of a defun, if SIDE is `end', stop at the end. -This function doesn't actaully move point, it just returns the +This function doesn't actually move point, it just returns the position it would move to. If there aren't enough defuns to move across, return nil. diff --git a/src/xfaces.c b/src/xfaces.c index 94247f55969..be4a7ca71cc 100644 --- a/src/xfaces.c +++ b/src/xfaces.c @@ -7443,7 +7443,7 @@ If the value is nil, candidate fonts might be rejected if the don't have exactly the same values of attributes as the face requests. This variable exists for debugging of the font-selection process, -and we advise not to change it othersie. */); +and we advise not to change it otherwise. */); Vface_font_lax_matched_attributes = Qt; #ifdef HAVE_WINDOW_SYSTEM diff --git a/test/lisp/progmodes/eglot-tests.el b/test/lisp/progmodes/eglot-tests.el index 04ecd7891ab..47d2e2ee6a6 100644 --- a/test/lisp/progmodes/eglot-tests.el +++ b/test/lisp/progmodes/eglot-tests.el @@ -329,7 +329,7 @@ Pass TIMEOUT to `eglot--with-timeout'." (should-error (eglot--current-server-or-lose)))))) (ert-deftest auto-detect-running-server () - "Visit a file and \\[eglot], then visit a neighbour." + "Visit a file and \\[eglot], then visit a neighbor." (skip-unless (executable-find "clangd")) (eglot-tests--auto-detect-running-server-1)) @@ -704,7 +704,7 @@ pylsp prefers autopep over yafp, despite its README stating the contrary." (string= (buffer-string) "def a():\n pass\n\n\ndef b():\n pass\n"))))) (ert-deftest rust-on-type-formatting () - "Test textDocument/onTypeFormatting agains rust-analyzer." + "Test textDocument/onTypeFormatting against rust-analyzer." (skip-unless (executable-find "rust-analyzer")) (skip-unless (executable-find "cargo")) (eglot--with-fixture diff --git a/test/src/treesit-tests.el b/test/src/treesit-tests.el index eaf2df62104..3617264502b 100644 --- a/test/src/treesit-tests.el +++ b/test/src/treesit-tests.el @@ -611,7 +611,7 @@ visible_end.)" ;; ;; I've setup a framework for easier testing of defun navigation. ;; -;; To use it for a particular langauge, first write a test program +;; To use it for a particular language, first write a test program ;; similar to `treesit--ert-defun-navigation-python-program', and ;; insert markers. Markers that marks BOLs are defined as follows: ;; @@ -661,7 +661,7 @@ marking's number, and POS is each marking's position." (nreverse result))) (defun treesit--ert-collect-positions (positions functions) - "Collect posifions after caling each function in FUNCTIONS. + "Collect positions after calling each function in FUNCTIONS. POSITIONS should be a list of buffer positions, FUNCTIONS should be a list of functions. This function collects the return value @@ -710,7 +710,7 @@ and \"]\"." ;; Collect positions each function returns. (positions (treesit--ert-collect-positions - ;; The first columnn of DECODED-MASTER. + ;; The first column of DECODED-MASTER. (mapcar #'car decoded-master) ;; Four functions: next-end, prev-beg, next-beg, prev-end. (mapcar (lambda (conf) -- 2.39.2