[elpa] master 11d580b 2/7: el-search: fix two typos

[Michael Heerdegen]

branch: master
commit 11d580b2ff1d306b62d6f34a78dce572cdbb29d7
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    el-search: fix two typos
---
 packages/el-search/el-search.el |    8 ++++----
 1 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index bb0b048..a61f70a 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Michael Heerdegen <address@hidden>
 ;; 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))))))