[elpa] externals/el-search 2d6aad6 132/332: Explicitly `error' when trying to jump to invalid search head

[Stefan Monnier]

branch: externals/el-search
commit 2d6aad695b01eb15e15c8bcc6f4377c49d306e12
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

    Explicitly `error' when trying to jump to invalid search head
    
    Give a meaningful error message when the user calls
    `el-search-jump-to-search-head' but the search head points to a killed
    buffer.
---
 el-search.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/el-search.el b/el-search.el
index 2e2824c..6ac1e1c 100644
--- a/el-search.el
+++ b/el-search.el
@@ -1507,7 +1507,8 @@ that the current search."
   (if-let ((search el-search--current-search)
            (current-head (el-search-object-head search))
            (current-search-buffer (el-search-head-buffer current-head)))
-      (progn
+      (if (not (buffer-live-p current-search-buffer))
+          (error "Search head points to a killed buffer")
         (setq this-command 'el-search-pattern)
         (let ((win (display-buffer current-search-buffer 
el-search-display-buffer-action)))
           (select-frame-set-input-focus (window-frame win))