mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Improve messaging in ecomplete-remove

Browse source 
* lisp/ecomplete.el (ecomplete-remove): Make messaging better.
This commit is contained in:
Lars Ingebrigtsen 2022-10-03 21:40:27 +02:00
parent 8ef8da13f6
commit 129fcb3d38
1 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/ecomplete.el
View file

@ -314,12 +314,17 @@ non-nil and there is only a single completion option available."
(elems (seq-filter (lambda (elem)
(string-match-p match (car elem)))
data)))
(when (yes-or-no-p (format "Delete %s matching ecomplete entries? "
(length elems)))
(dolist (elem elems)
(ecomplete--remove-item type (car elem)))
(ecomplete-save)
(message "Deleted entries"))))
(if (length= elems 0)
(message "No matching entries for %s" match)
(when (yes-or-no-p (format "Delete %s matching ecomplete %s? "
(length elems)
(if (length= elems 1)
"entry"
"entries")))
(dolist (elem elems)
(ecomplete--remove-item type (car elem)))
(ecomplete-save)
(message "Deleted entries")))))
(provide 'ecomplete)