el-search: fix two typos

[gnu-emacs-elpa] / packages / el-search / el-search.el

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index bb0b04872637a69e3fc5f863d86eb631898e10e7..a61f70a09ee953b068624f1f05335beccf458003 100644 (file)
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Michael Heerdegen <michael_heerdegen@web.de>
 ;; Created: 29 Jul 2015
 ;; Keywords: lisp
-;; Compatibility: Gnu Emacs 25
+;; Compatibility: GNU Emacs 25
 ;; Version: 0.0.2
 ;; Package-Requires: ((emacs "25") (cl-lib "0"))
 
@@ -507,7 +507,7 @@ return nil (no error)."
   (barf-if-buffer-read-only)
   (el-search-search-and-replace-pattern from to mapping))
 
-(defun el-search--take-over-from-dired ()
+(defun el-search--take-over-from-isearch ()
   (let ((other-end isearch-other-end)
         (input isearch-string))
     (isearch-exit)
@@ -519,14 +519,14 @@ return nil (no error)."
   (interactive)
   (el-search-pattern
    (el-search--read-pattern
-    "Find pcase pattern: " nil (concat "'" (el-search--take-over-from-dired)) t))
+    "Find pcase pattern: " nil (concat "'" (el-search--take-over-from-isearch)) t))
   (setq this-command 'el-search-pattern))
 
 (defun el-search-replace-from-isearch ()
   (interactive)
   (let ((this-command 'el-search-query-replace))
     (apply #'el-search-query-replace
-           (el-search-query-replace-read-args (concat "'" (el-search--take-over-from-dired))))))
+           (el-search-query-replace-read-args (concat "'" (el-search--take-over-from-isearch))))))