From c60ed8728aa968a374b54a13f10ba3572205982a Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 4 Mar 2014 00:37:48 -0800 Subject: [PATCH] * lisp/cedet/semantic/util.el (semantic-complete-symbol): Replace use of obsolete argument of display-completion-list. --- lisp/cedet/ChangeLog | 5 +++++ lisp/cedet/semantic/util.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index cae0dd1c43..fbe32ff610 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 c7a1e2180c..ea9e158e6c 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)))))) -- 2.39.2