[elpa] master 6cadf4a: Fix el-search's check for buffers visiting a given file

[Michael Heerdegen]

branch: master
commit 6cadf4a63440d2e5998e0ffd73f4d6e1b8249a39
Author: Michael Heerdegen <address@hidden>
Commit: Michael Heerdegen <address@hidden>

    Fix el-search's check for buffers visiting a given file
    
    * packages/el-search/el-search.el (el-search-atom-list)
    (el-search--next-buffer): Use `find-buffer-visiting' instead of
    `get-file-buffer' to identify buffers already visiting a given file.
    `find-buffer-visiting' also checks for buffers visiting a file under a
    different name, which is what we want.
---
 packages/el-search/el-search.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 7a5c662..e9b70f2 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/el-search.el
@@ -7,7 +7,7 @@
 ;; Created: 29 Jul 2015
 ;; Keywords: lisp
 ;; Compatibility: GNU Emacs 25
-;; Version: 1.6.5
+;; Version: 1.6.6
 ;; Package-Requires: ((emacs "25") (stream "2.2.4") (cl-print "1.0"))
 
 
@@ -1260,7 +1260,7 @@ PATTERN and combining the heuristic matchers of the 
subpatterns."
                                      nil))))))))
         (buffer (if (bufferp file-name-or-buffer)
                     file-name-or-buffer
-                  (get-file-buffer file-name-or-buffer))))
+                  (find-buffer-visiting file-name-or-buffer))))
     (if buffer
         (if (buffer-live-p buffer)
             (with-current-buffer buffer (funcall get-buffer-atoms))
@@ -1355,7 +1355,7 @@ PATTERN and combining the heuristic matchers of the 
subpatterns."
         (if (bufferp next)
             (setq buffer next)
           (setf (el-search-head-file head) next)
-          (setq buffer (or (get-file-buffer next)
+          (setq buffer (or (find-buffer-visiting next)
                            (let ((warning-minimum-level :error)
                                  (inhibit-message t))
                              (let ((fresh-buffer (generate-new-buffer " 
el-search-helper-buffer"))