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

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

diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog
index cae0dd1c4354c73642d0b7e891f831c831cb2938..fbe32ff610bfab955de1d9c1e92e5f4508494649 100644 (file)
--- 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 c7a1e2180ca8c11735450aa9bf6fd46e05444fee..ea9e158e6c2eb3bfb18a9ba6b3459895bf6561f8 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))))))