X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/3e93bafb95608467e438ba7f725fd1f020669f8c..0e963201d03d9229bb8ac4323291d2b0119526ed:/lisp/cedet/semantic/util.el

diff --git a/lisp/cedet/semantic/util.el b/lisp/cedet/semantic/util.el
index c7a1e2180c..2b40e94677 100644
--- a/lisp/cedet/semantic/util.el
+++ b/lisp/cedet/semantic/util.el
@@ -1,6 +1,6 @@
 ;;; semantic/util.el --- Utilities for use with semantic tag tables
 
-;;; Copyright (C) 1999-2005, 2007-2014 Free Software Foundation, Inc.
+;;; Copyright (C) 1999-2005, 2007-2016 Free Software Foundation, Inc.
 
 ;; Author: Eric M. Ludlam <zappo@gnu.org>
 ;; Keywords: syntax
@@ -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))))))