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 <eliz@gnu.org>
* 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,
,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
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'."
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.
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
(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))
(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
;;
;; 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:
;;
(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
;; 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)