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

Replace use of obsolete argument of display-completion-list.

2 files changed, 7 insertions, 1 deletions

diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index cae0dd1c435..fbe32ff610b 100644
--- a/lisp/cedet/ChangeLog
+++ b/lisp/cedet/ChangeLog
@@ -1,3 +1,8 @@
+2014-03-04  Glenn Morris  <rgm@gnu.org>
+
+        * semantic/util.el (semantic-complete-symbol):
+        Replace use of obsolete argument of display-completion-list.
+
 2014-02-03  Glenn Morris  <rgm@gnu.org>
 
         * semantic/senator.el (senator-copy-tag-to-register):
diff --git a/lisp/cedet/semantic/util.el b/lisp/cedet/semantic/util.el
index c7a1e2180ca..ea9e158e6c2 100644
--- 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))))))