[nongnu] elpa/symbol-overlay 06c5a46ef7 017/152: fix some typos

[ELPA Syncer]

branch: elpa/symbol-overlay
commit 06c5a46ef7f105ac0281a881b5b4f914e2de314b
Author: wolray <290061869@qq.com>
Commit: wolray <290061869@qq.com>

    fix some typos
---
 symbol-overlay.el | 12 +++++++-----
 1 file changed, 7 insertions(+), 5 deletions(-)

diff --git a/symbol-overlay.el b/symbol-overlay.el
index 536c78955d..70ffad7a9c 100644
--- a/symbol-overlay.el
+++ b/symbol-overlay.el
@@ -71,6 +71,7 @@
 
 (require 'thingatpt)
 (require 'cl-lib)
+(require 'seq)
 
 (defvar symbol-overlay-map
   (let ((map (make-sparse-keymap)))
@@ -185,7 +186,7 @@ If COLOR-MSG is non-nil, add the color used by current 
overlay in brackets."
 
 (defun symbol-overlay-jump-call (jump-function &optional dir)
   "A general jumping process during which JUMP-FUNCTION is called to jump.
-If optional argument DIR is non-nil, use it rather than the default value 1."
+If DIR is non-nil, use it rather than the default value 1."
   (unless (minibufferp)
     (let ((symbol (symbol-overlay-get-symbol)))
       (funcall jump-function symbol (or dir 1))
@@ -223,7 +224,7 @@ If optional argument DIR is non-nil, use it rather than the 
default value 1."
 ;;;###autoload
 (defun symbol-overlay-jump-to-definition ()
   "Jump to the definition of symbol at point.
-The definition syntax should be defined in a lambda funtion stored in
+The definition syntax should be defined in a lambda function stored in
 `symbol-overlay-definition-function' that will return the definition's regexp
 with the input symbol."
   (interactive)
@@ -241,7 +242,7 @@ with the input symbol."
          (when (= pt (point)) (setq p nil)))))))
 
 (defun symbol-overlay-switch-symbol (dir)
-  "Switch to the closest symbol hightlighted nearby, in the direction DIR.
+  "Switch to the closest symbol highlighted nearby, in the direction DIR.
 DIR must be 1 or -1."
   (let* ((symbol (symbol-overlay-get-symbol nil t))
         (keyword (symbol-overlay-assoc symbol t))
@@ -283,9 +284,10 @@ DIR must be 1 or -1."
   (unless (minibufferp)
     (let* ((symbol (symbol-overlay-get-symbol))
           (keyword (symbol-overlay-assoc symbol))
-          (new (read-string "Replacement: "))
-          (defaults (cons symbol new)))
+          new defaults)
       (beginning-of-thing 'symbol)
+      (setq new (read-string "Replacement: ")
+           defaults (cons symbol new))
       (query-replace-regexp symbol new)
       (setq query-replace-defaults
            (if (< emacs-major-version 25) `,defaults `(,defaults)))