* lisp/cedet/semantic/util.el (semantic-complete-symbol):

[bpt/emacs.git] / lisp / cedet / semantic / util.el

diff --git a/lisp/cedet/semantic/util.el b/lisp/cedet/semantic/util.el
index c7a1e21..ea9e158 100644 (file)
--- a/lisp/cedet/semantic/util.el
+++ b/lisp/cedet/semantic/util.el
@@ -419,7 +419,8 @@ determining which symbols are considered."
            (setq list (sort list 'string<))
            (if (> (length list) 1)
                (with-output-to-temp-buffer "*Completions*"
-                 (display-completion-list list pattern))
+                 (display-completion-list
+                  (completion-hilit-commonality list (length pattern) nil)))
              ;; Bury any out-of-date completions buffer.
              (let ((win (get-buffer-window "*Completions*" 0)))
                (if win (with-selected-window win (bury-buffer))))))