From 5b0f1c8ef7267d161a6eba5003f48317bda1c4e0 Mon Sep 17 00:00:00 2001
From: Dmitry Gutov <dgutov@yandex.ru>
Date: Mon, 12 Jan 2015 11:41:24 +0300
Subject: [PATCH] company-search-delete-char: Use `ding'

---
 company.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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))
-- 
2.39.2