X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/bd358779861f265a7acff31ead40172735af693e..e2ae1c5a40e2802fcd9f5ee26b4906be97c8b878:/lisp/cedet/semantic/util.el?ds=sidebyside

diff --git a/lisp/cedet/semantic/util.el b/lisp/cedet/semantic/util.el
index 9e89ccb3e6..fedc28135a 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-2013 Free Software Foundation, Inc.
+;;; Copyright (C) 1999-2005, 2007-2015 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))))))