branch: master commit a23fe08b4a260816f90227dd7e322ed3db556144 Author: Michael Heerdegen <michael_heerde...@web.de> Commit: Michael Heerdegen <michael_heerde...@web.de>
* el-search/el-search.el: Add `el-search-edit-search-description' (el-search-edit-search-description): New command to modify the description of the current search. --- packages/el-search/el-search.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/packages/el-search/el-search.el b/packages/el-search/el-search.el index a560672..a4d43ed 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.5.2 +;; Version: 1.5.3 ;; Package-Requires: ((emacs "25") (stream "2.2.4") (cl-print "1.0")) @@ -1090,6 +1090,14 @@ optional MESSAGE are used to construct the error message." (if dont-propertize printed-pattern (propertize printed-pattern 'face 'shadow)))))) +(defun el-search-edit-search-description () + "Edit the description string of the current search. +That string appears in the printed representation of the search, +so this is mainly useful to add short notes." + (interactive) + (cl-callf (lambda (old-description) (read-string "New description: " old-description)) + (alist-get 'description (el-search-object-properties el-search--current-search)))) + (defun el-search-kill-left-over-search-buffers (&optional not-current-buffer) "Kill all buffers that were opened just for searching.