branch: master
commit e331331f6f9e4bd60457662d043fcd393e6d4944
Author: Michael Heerdegen <michael_heerde...@web.de>
Commit: Michael Heerdegen <michael_heerde...@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.
---
packages/el-search/el-search.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el
index 2e2824c..6ac1e1c 100644
--- a/packages/el-search/el-search.el
+++ b/packages/el-search/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))
