branch: master commit 10a2bf0dde18d88123599cad8b4e72882a1971a1 Author: Michael Heerdegen <michael_heerde...@web.de> Commit: Michael Heerdegen <michael_heerde...@web.de>
Tweak el-search--get-search-description-string * el-search/el-search.el (el-search--get-search-description-string): Some minor tweaks. --- packages/el-search/el-search.el | 22 ++++++++++++++-------- 1 file changed, 14 insertions(+), 8 deletions(-) diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el index 435a8bd..f84c6eb 100644 --- a/packages/el-search/el-search.el +++ b/packages/el-search/el-search.el @@ -1010,21 +1010,27 @@ optional MESSAGE are used to construct the error message." `(el-search-when-unwind (progn ,@body) (setf (el-search-object-head el-search--current-search) ,head-copy)))) -(defun el-search--get-search-description-string (search &optional verbose) +(defun el-search--get-search-description-string (search &optional verbose dont-propertize) (concat (or (alist-get 'description (el-search-object-properties search)) "Search") (when verbose - (format " [%s, %s]" - (if (alist-get 'is-single-buffer (el-search-object-properties search)) - "single-buffer" "paused") - (if-let ((buffer (el-search-head-buffer (el-search-object-head search)))) - (if (buffer-live-p buffer) (buffer-name buffer) "a killed buffer") - "completed"))) + (let ((search-head (el-search-object-head search))) + (format " [%s %s]" + (if (alist-get 'is-single-buffer (el-search-object-properties search)) + "single-buffer" "paused") + (if-let ((buffer (el-search-head-buffer search-head))) + (concat "-> "(if (buffer-live-p buffer) + (buffer-name buffer) + (if-let ((head-file (el-search-head-file search-head))) + (file-name-nondirectory head-file) + "killed buffer"))) + "(completed)")))) " for" (let ((printed-pattern (el-search--pp-to-string (el-search-object-pattern search)))) (format (if (string-match-p "\n" printed-pattern) "\n%s" " %s") - (propertize printed-pattern 'face 'shadow))))) + (if dont-propertize printed-pattern + (propertize printed-pattern 'face 'shadow)))))) (defun el-search-kill-left-over-search-buffers (&optional not-current-buffer)