[Emacs-diffs] trunk r116652: * lisp/cedet/semantic/util.el (semantic-complete-symbol):

[Glenn Morris]

------------------------------------------------------------
revno: 116652
revision-id: address@hidden
parent: address@hidden
committer: Glenn Morris <address@hidden>
branch nick: trunk
timestamp: Tue 2014-03-04 00:37:48 -0800
message:
  * lisp/cedet/semantic/util.el (semantic-complete-symbol):
  Replace use of obsolete argument of display-completion-list.
modified:
  lisp/cedet/ChangeLog           changelog-20100919015713-3rbr456yray5m84f-1
  lisp/cedet/semantic/util.el    util.el-20091113204419-o5vbwnq5f7feedwu-11308

=== modified file 'lisp/cedet/ChangeLog'
--- a/lisp/cedet/ChangeLog      2014-03-03 04:57:26 +0000
+++ b/lisp/cedet/ChangeLog      2014-03-04 08:37:48 +0000
@@ -1,3 +1,8 @@
+2014-03-04  Glenn Morris  <address@hidden>
+
+       * semantic/util.el (semantic-complete-symbol):
+       Replace use of obsolete argument of display-completion-list.
+
 2014-02-03  Glenn Morris  <address@hidden>
 
        * semantic/senator.el (senator-copy-tag-to-register):

=== modified file 'lisp/cedet/semantic/util.el'
--- a/lisp/cedet/semantic/util.el       2014-01-01 07:43:34 +0000
+++ b/lisp/cedet/semantic/util.el       2014-03-04 08:37:48 +0000
@@ -419,7 +419,8 @@
            (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))))))