[elpa] master a23fe08: * el-search/el-search.el: Add `el-search-edit-search-description'

[Michael Heerdegen]

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

    * 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.