Fix a bunch of typos

Author: bbatsov

cider-common.el

@@ -277,7 +277,7 @@ otherwise, nil."
 (defcustom cider-path-translations nil
   "Alist of path prefixes to path prefixes.
 Useful to intercept the location of a path in a container (or virtual
-machine) and translate to the oringal location.  If your project is located
+machine) and translate to the original location.  If your project is located
 at \"~/projects/foo\" and the src directory of foo is mounted at \"/src\"
 in the container, the alist would be `((\"/src\" \"~/projects/foo/src\"))."
   :type '(alist :key-type string :value-type string)

cider-debug.el

@@ -93,7 +93,7 @@ If nil, don't list available keys at all."
   :package-version '(cider . "0.10.0"))
 
 (defcustom cider-debug-use-overlays t
-  "Whether to higlight debugging information with overlays.
+  "Whether to highlight debugging information with overlays.
 Takes the same possible values as `cider-use-overlays', but only applies to
 values displayed during debugging sessions.
 To control the overlay that lists possible keys above the current function,

cider-eval.el

@@ -263,7 +263,7 @@ CONTINUE is an optional continuation function."
 (defun cider-request:sideloader-start (&optional connection tooling)
   "Perform the nREPL \"sideloader-start\" op.
 If CONNECTION is nil, use `cider-current-repl'.
-If TOOLING is truthy then the operation is perfomed over the tooling
+If TOOLING is truthy then the operation is performed over the tooling
 session, rather than the regular session."
   (cider-ensure-op-supported "sideloader-start")
   (cider-nrepl-send-request `("op" "sideloader-start")
@@ -324,7 +324,7 @@ If CONNECTION is nil, use `cider-current-repl'."
 - If CONNECTION is nil, use `cider-current-repl'.
 - If TOOLING it truthy, use the tooling session instead of the main session.
 - CONTINUE is an optional continuation function, which will be called when the
-add-middleware op has finished succesfully."
+add-middleware op has finished successfully."
   (cider-nrepl-send-request `("op" "add-middleware"
                               "middleware" ,middlewares)
                             (cider-add-middleware-handler continue)

cider-inspector.el

@@ -375,7 +375,7 @@ MAX-COLL-SIZE if non nil."
     (when (eq cider-inspector-last-command 'cider-inspector-pop)
       (setq cider-inspector-last-command nil)
       ;; Prevents error message being displayed when we try to pop
-      ;; from the top-level of a data struture
+      ;; from the top-level of a data structure
       (when cider-inspector-location-stack
         (goto-char (pop cider-inspector-location-stack))))
 

cider-macroexpansion.el

@@ -83,7 +83,7 @@ ARG is passed along to `undo-only'."
     (undo-only arg)))
 
 (defvar cider-last-macroexpand-expression nil
-  "Specify the last macroexpansion preformed.
+  "Specify the last macroexpansion performed.
 This variable specifies both what was expanded and the expander.")
 
 (defun cider-macroexpand-expr (expander expr)

cider-mode.el

@@ -270,7 +270,7 @@ If invoked with a prefix ARG eval the expression after inserting it."
   (cider-insert-in-repl (cider-defun-at-point) arg))
 
 (defun cider-insert-region-in-repl (start end &optional arg)
-  "Insert the curent region in the REPL buffer.
+  "Insert the current region in the REPL buffer.
 START and END represent the region's boundaries.
 If invoked with a prefix ARG eval the expression after inserting it."
   (interactive "rP")

cider-repl-history.el

@@ -348,7 +348,7 @@ it's turned on."
 (defun cider-repl-history-target-overlay-at (position &optional no-error)
   "Return overlay at POSITION that has property `cider-repl-history-target'.
 If no such overlay, raise an error unless NO-ERROR is true, in which
-case retun nil."
+case return nil."
   (let ((ovs  (overlays-at (point))))
     (catch 'cider-repl-history-target-overlay-at
       (dolist (ov ovs)

cider-repl.el

@@ -1027,7 +1027,7 @@ If NEWLINE is true then add a newline at the end of the input."
 
 (defun cider-repl-return (&optional end-of-input)
   "Evaluate the current input string, or insert a newline.
-Send the current input ony if a whole expression has been entered,
+Send the current input only if a whole expression has been entered,
 i.e. the parenthesis are matched.
 When END-OF-INPUT is non-nil, send the input even if the parentheses
 are not balanced."
@@ -1150,7 +1150,7 @@ With a prefix argument CLEAR-REPL it will clear the entire REPL buffer instead."
   (interactive)
   ;; TODO: Improve the boundaries detecting logic
   ;; probably it should be based on text properties
-  ;; the current implemetation will clear warnings as well
+  ;; the current implementation will clear warnings as well
   (let ((start (point-min))
         (end (save-excursion
                (goto-char (point-min))

cider-stacktrace.el

@@ -415,7 +415,7 @@ grouped with a suppressed error type."
 
 (defun cider-stacktrace-cycle-cause (num &optional level)
   "Update element NUM of `cider-stacktrace-cause-visibility'.
-If LEVEL is specified, it is useed, otherwise its current value is incremented.
+If LEVEL is specified, it is used, otherwise its current value is incremented.
 When it reaches 3, it wraps to 0."
   (let ((level (or level (1+ (elt cider-stacktrace-cause-visibility num)))))
     (aset cider-stacktrace-cause-visibility num (mod level 3))

nrepl-client.el

@@ -1109,7 +1109,7 @@ match groups:
     (emacs-bug-46284/when-27.1-windows-nt
      ;; There is a bug in emacs 27.1 (since fixed) that sets all EVENT
      ;; descriptions for signals to "unknown signal". We correct this by
-     ;; reseting it back to its canonical value.
+     ;; resetting it back to its canonical value.
      (when (eq (process-status process) 'signal)
        (cl-case (process-exit-status process)
          ;; SIGHUP==1 emacs nt/inc/ms-w32.h