[Top][All Lists]

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] master 837adb2: * el-search/el-search.el: Minor tweak.

From: Stefan Monnier
Subject: [elpa] master 837adb2: * el-search/el-search.el: Minor tweak.
Date: Fri, 1 Dec 2017 15:32:51 -0500 (EST)

branch: master
commit 837adb2f78e813c3e5510e5465c895e54f491dbe
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * el-search/el-search.el: Minor tweak.
    (el-search-make-search): Use `letrec'.
    (el-search-previous-match): Specify when it was obsoleted.
 packages/el-search/el-search.el | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 02f259e..728e384 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -1337,14 +1337,13 @@ position of the beginning of the match."
 PATTERN is the pattern to search, and GET-BUFFER-STREAM a
 function that returns a stream of buffers and/or files to search
 in, in order, when called with no arguments."
-  (let (search)
-    (setq search
-          (make-el-search-object
-           :pattern pattern
-           :head (make-el-search-head
-                  :get-buffer-stream get-buffer-stream
-                  :buffers (funcall get-buffer-stream))
-           :get-matches (lambda () (el-search--all-matches search))))
+  (letrec ((search
+            (make-el-search-object
+             :pattern pattern
+             :head (make-el-search-head
+                    :get-buffer-stream get-buffer-stream
+                    :buffers (funcall get-buffer-stream))
+             :get-matches (lambda () (el-search--all-matches search)))))
     (el-search-compile-pattern-in-search search)
@@ -2244,7 +2243,8 @@ With prefix arg, restart the current search."
             (el-search-hl-other-matches (el-search--current-matcher)))
           (setq el-search--success t))))))
-(define-obsolete-function-alias 'el-search-previous-match 
+(define-obsolete-function-alias 'el-search-previous-match
+  'el-search-pattern-backwards "since el-search-1.3")
 (defun el-search-this-sexp (sexp)
   "Prepare to el-search the `sexp-at-point'.

reply via email to

[Prev in Thread] Current Thread [Next in Thread]