From: Michael Heerdegen <michael_heerdegen@web.de>
Date: Fri, 25 Sep 2015 20:55:57 +0000 (+0200)
Subject: rename a function
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/ca3fe58e6a91b3434bad200d6bd8f20421fdab74

rename a function
---

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 5b78aa0b8..446782839 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -285,7 +285,7 @@ Don't move if already at beginning of a sexp."
         (,pattern t)
         (_        nil)))))
 
-(defun el-search--maybe-wrap-pattern (pattern)
+(defun el-search--wrap-pattern (pattern)
   `(and ,el-search-this-expression-identifier ,pattern))
 
 (defun el-search--search-pattern (pattern &optional noerror)
@@ -404,7 +404,7 @@ return nil (no error)."
                                     (or (not (boundp pattern))
                                         (not (eq (symbol-value pattern) pattern))))
                            (error "Please don't forget the quote when searching for a symbol"))
-                         (el-search--maybe-wrap-pattern pattern)))))
+                         (el-search--wrap-pattern pattern)))))
   (setq el-search-current-pattern pattern)
   (setq el-search-success nil)
   (let ((opoint (point)))
@@ -483,7 +483,7 @@ return nil (no error)."
   (barf-if-buffer-read-only)
   (let* ((from (el-search--read-pattern "Replace from: " nil initial-contents))
          (to   (el-search--read-pattern "Replace with result of evaluation of: " from)))
-    (list (el-search--maybe-wrap-pattern (read from)) (read to)
+    (list (el-search--wrap-pattern (read from)) (read to)
           (with-temp-buffer
             (insert to)
             (el-search--create-read-map 1)))))