X-Git-Url: https://code.delx.au/gnu-emacs-elpa/blobdiff_plain/733d4a9262303251bc2e7484fefb1cae93a92a3e..b0f206a2e8deb4c168d7dc989f4516741ae49a8c:/company-clang.el

diff --git a/company-clang.el b/company-clang.el
index 4929bad41..0c4252eff 100644
--- a/company-clang.el
+++ b/company-clang.el
@@ -144,6 +144,18 @@ or automatically through a custom `company-clang-prefix-guesser'."
   (get-text-property 0 'meta candidate))
 
 (defun company-clang--annotation (candidate)
+  (let ((ann (company-clang--annotation-1 candidate)))
+    (if (not (string-prefix-p "(*)" ann))
+        ann
+      (with-temp-buffer
+        (insert ann)
+        (search-backward ")")
+        (let ((pt (1+ (point))))
+          (forward-symbol 1)
+          (delete-region pt (point)))
+        (buffer-string)))))
+
+(defun company-clang--annotation-1 (candidate)
   (let ((meta (company-clang--meta candidate)))
     (cond
      ((null meta) nil)