From: Dmitry Gutov <dgutov@yandex.ru>
Date: Mon, 12 Jan 2015 08:41:24 +0000 (+0300)
Subject: company-search-delete-char: Use `ding'
X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/5b0f1c8ef7267d161a6eba5003f48317bda1c4e0?ds=sidebyside

company-search-delete-char: Use `ding'
---

diff --git a/company.el b/company.el
index be947430b..8b8f6ca2a 100644
--- a/company.el
+++ b/company.el
@@ -1668,7 +1668,8 @@ from the rest of the back-ends in the group, if any, will be left at the end."
 (defun company-search-delete-char ()
   (interactive)
   (company--search-assert-enabled)
-  (unless (string= company-search-string "")
+  (if (string= company-search-string "")
+      (ding)
     (let ((ss (substring company-search-string 0 -1)))
       (when company-search-filtering
         (company--search-update-predicate ss))