From: Glenn Morris Date: Tue, 4 Mar 2014 08:37:48 +0000 (-0800) Subject: * lisp/cedet/semantic/util.el (semantic-complete-symbol): X-Git-Tag: emacs-24.3.90~298 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c60ed8728aa968a374b54a13f10ba3572205982a;p=emacs.git * 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 cae0dd1c435..fbe32ff610b 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog @@ -1,3 +1,8 @@ +2014-03-04 Glenn Morris + + * semantic/util.el (semantic-complete-symbol): + Replace use of obsolete argument of display-completion-list. + 2014-02-03 Glenn Morris * 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))))))