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

diff --git a/company.el b/company.el
index be947430b80b94b74cf10227dfd3d4656ea69586..8b8f6ca2ace1d7122cc882adc77222448252baf3 100644 (file)
--- 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))